Cassic

Desvio Condicional com "if... then... else if... then..."

Autor: Tadeu Pereira


  A instrução if... then... else if... then... é usada quando se quer analisar mais de uma condição. Caso a primeira condição seja verdadeira será executado o bloco de comandos pertencente a essa condição e em seguida irá para os comandos finais, caso seja falso, irá para a próxima condição, agindo nessa condição da mesma maneira que na primeira.

  Sintaxe:
  if condição then {bloco de comandos}
  else if condição then {bloco de comandos}

  begin
   { ... comandos iniciais ... }
   if x > 2 then
    { ... bloco verdadeiro da primeira condição ... }
   else if x = 2 then
    { ... bloco verdadeiro da segunda condição ... }
   { ... comandos finais ... }
  end;

  Utilizando o projeto anterior, altere apenas o código existente no evento OnClick do componente BtnConferir:

01
procedure TForm1.BtnConferirClick(Sender: TObject);
02
begin
03
  ShowMessage('Comandos Iniciais');
04
  if ( StrToInt( EdNum.Text ) > 10 ) then
05
   begin
06
   ShowMessage('O Número é maior que 10');
07
   end
08
  else if ( StrToInt( EdNum.Text ) = 10 ) then
09
   begin
10
   ShowMessage('O Número é igual a 10');
11
   end;
12
  ShowMessage('Comandos Finais');
13
end;

  A linha 08 avaliará se o número digitado pelo o usuário é igual a 10, mas lembrando que essa avaliação só acontecerá se a primeira avaliação (linha 04) for falsa.