Comando FOR

O comando [b:0eaa8ef92a]for[/b:0eaa8ef92a] serve para fazer um laço de repetição. Você usa para repetir uma ação [i:0eaa8ef92a]n[/i:0eaa8ef92a] vezes.

[b:0eaa8ef92a]procedure[/b:0eaa8ef92a] Exemplo;
[b:0eaa8ef92a]var[/b:0eaa8ef92a]
_contador : Integer; [i:0eaa8ef92a]//Esse contador controlará o fluxo[/i:0eaa8ef92a]
[b:0eaa8ef92a]begin[/b:0eaa8ef92a]
[b:0eaa8ef92a]for[/b:0eaa8ef92a] _contador := 1 [b:0eaa8ef92a]to[/b:0eaa8ef92a] 1000 [b:0eaa8ef92a]do[/b:0eaa8ef92a]
[b:0eaa8ef92a]begin[/b:0eaa8ef92a]
[i:0eaa8ef92a]{Seu código aqui que vai se repetir 1000 vezes}[/i:0eaa8ef92a]
[b:0eaa8ef92a]end[/b:0eaa8ef92a];
[b:0eaa8ef92a]end;[/b:0eaa8ef92a]

O comando for cria um laço de repetição para os comandos.

No exemplo abaixo existe um form com senha que é reexibido a cada vez que a senha ou o usuário forem digitados incorretamente:

procedure TF_Menu.FormShow(Sender: TObject);
[b:fcfe3391a0]var
i: integer;[/b:fcfe3391a0] [i:fcfe3391a0]// Variável criada para utilização com For[/i:fcfe3391a0]
begin
DM_Geral.TabSenha.Open;
for i:= 0 to 2 do [i:fcfe3391a0]// Esta linha define que os comandos dentro do begin...end serão executados 3(três) vezes (0,1 e 2)[/i:fcfe3391a0]
begin
F_Senha.ShowModal;
vusuario:=F_Senha.Edit1.Text;
vsenha:=F_Senha.Edit2.Text;
if not DM_Geral.TabSenha.Locate(´Usuario;Entrada´, VarArrayOf([vusuario, ´True´]), []) then
MessageDlg(´ Usuário não Cadastrado !!! ´, mtInformation, [mbOk], 0)
else
if DM_Geral.TabSenhaSenha.Value<>vsenha then
MessageDlg(´ Senha inválida !!! ´, mtInformation, [mbOk], 0)
else
break;
if i=3 then
close;
end;
end;


Se você não entendeu, me envie uma mensagem particular.