Desvio Condicional com "if... then... else..."
A instrução if... then... else... é semelhante a instrução if... then..., mas nesse caso quando a condição for falsa, será executado um bloco de comandos alternativo.
Sintaxe:
if condição then {bloco de comandos}
else {bloco de comandos}
begin
{ ... comandos iniciais ... }
if x > 2 then
{ ... bloco verdadeiro ... }
else
{ ... bloco falso ... }
{ ... 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 |
09 |
begin |
10 |
ShowMessage('O Número é menor ou igual a 10'); |
11 |
end; |
12 |
ShowMessage('Comandos Finais'); |
13 |
end; |
As linhas 08 à 11 complementam o código anterior, elas só serão executadas se o número digitado pelo usuário for menor ou igual a 10. Outro ponto que merece nossa atenção é a linha 07 que tem a palavra chave end só que nesse caso não está acompanhado de ponto-e-vírgula, o motivo é que nesse caso ele precede o else e sempre preceder um else deve está sem o ponto-e-vírgula.