Desvio Condicional com "if... then... else if... then..."
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.