Estrutura Case no Delphi!:)

Vamos conhecer a estrutura case no Delphi.

Monte o form como na imagem abaixo:

Vamos aos códigos do botão ok:

var
temperatura: integer;
begin
temperatura:=strtoint(edit1.text);
case temperatura of
25..50:
begin
Showmessage('Praia não esquecer o bronzeador!');
end;
15..24:
begin
Showmessage('Dormir até tarde!');
end;
1..14:
begin
Showmessage('Passar na locadora!');
end;
else
showmessage('Temperatura inválida');
edit1.SetFocus;
end;
end;

A estrutura case é uma alternativa a estrutura if e sua vantagem é verificar nesse caso "intervalos" da condição.