Estrutura Condicional: Case Of No Delphi

[V¡®u§ 849]

As estruturas de controle de fluxo são fundamentais para qualquer linguagem de programação. Sem elas só haveria uma maneira do programa ser executado: de cima para baixo, comando por comando. Não haveria condições, repetições ou saltos.

A Linguagem Delphi possui diversas estruturas para controlar o fluxo de execução de comandos. É possível resolver os problemas sem utilizar todas elas, no entanto, devemos lembrar que a elegância e facilidade de entendimento de um programa dependem do uso correto das estruturas no local certo.

Vamos analisar uma dessas estruturas:

Case-of

O comando case é um substituto mais elegante e mais legível para if-then-else múltiplos. A expressão (ou seletor) deverá ser do tipo com o tamanho máximo de 2 bytes (Byte, Char, Word ou Integer).

Sintaxe:

case (expressão) of

constante 1 : bloco de comandos;

constante 2 : bloco de comandos;

else

bloco de comandos

end;

Exemplos:

Abra seu Delphi e adicione 1 edit e 1 button:

No evento OnClick do button coloque:

var

x : integer;

begin

x := strtoint(edit1.Text);

case x of

1: begin

showmessage('A');

end;

2: begin

ShowMessage('B');

end;

3: begin

showmessage('C');

end;

else

ShowMessage('O número não está dentro dos permitidos. ');

end;

[Vitor Pinho ☮ 1,199]

Bom tópico, continua.

http://cyber-gamers.org/public/style_emoticons/default/451960.gif