Nada nao

Delphi 7 >

29

Módulo

4
ESTRUTURAS DE DECISÃO If if Nota < 5 then ShowMessage(‘Reprovado’) else ShowMessage(‘Aprovado’); Case

Object Pascal II

O if é uma estrutura de decisão usada para realizar instruções em determinadas condições. O if é considerado uma só instrução, por isso, só encontramos o ponto-e-vírgula no final. O else é opcional. if Opn.Execute then Img.Picture.LoadFromFile(Opn.FileName);

Permite que o fluxo da execução seja desviado em função de várias condições de acordo com o valor do argumento, que tem que ser ordinal, caso o valor do argumento não corresponda a nenhum dos valores listados, podemos incluir um else. case Ch of ‘ ‘: ShowMessage(‘Espaço’); ‘0’..’9': ShowMessage(‘Dígito’); ‘+’, ‘-’, ‘*’, ‘/’: ShowMessage(‘Operador’); else ShowMessage(‘Caractere especial’); end; case 0: 1: 2: end; CbbBorda.ItemIndex of BorderStyle := bsDialog; BorderStyle := bsSingle; BorderStyle := bsSizeable;

ESTRUTURAS DE REPETIÇÃO While O laço while executa uma instrução até que uma condição seja falsa. I := 10; while I >= 0 do begin ShowMessage(IntToStr(I)); Dec(I); end; For O laço for executa uma instrução um número determinado de vezes, incrementando uma variável de controle automaticamente a cada iteração. Caso seja preciso que a contagem seja decremental, pode-se usar downto em vez de to. for I := 1 to ComponentCount do ShowMessage(‘O ‘ + IntToStr(I) + ‘º Componente é ‘ + Components[I - 1].Name);

www.alberteije.com

30 for I := Length(Edit1.Text) downto 1 do ShowMessage(Edit1.Text[I]); Repeat O laço repeat executa instruções até que uma condição seja verdadeira. I := 1; repeat S := InputBox(‘Acesso’, ‘Digite a senha’, ‘’); Inc(I); if I > 3 then Halt; until S = ‘fluminense’;

Delphi 7 >

Quebras de Laço Em qualquer um dos laços mostrados podemos usar o procedimento Break para cancelar a repetição e sair do laço, podemos também forçar a próxima iteração com o procedimento Continue. I := 1; while true do begin Inc(I); if I < 10000000