comando For to do com edit ?

Delphi

05/07/2006

E ai galera
Bom estou querendo saber como eu faço para usar um FOR I:=1 e vai até o numero que eu estipular em um edit :roll:

Por exemplo

coloco um numero em edit sendo 4 dai o for vai repetir 4 vezes aquela ação.


Valeu Galera :wink:


Alecsandro Moura

Alecsandro Moura

Curtidas 0

Respostas

Madcat

Madcat

05/07/2006

var
qtd,i:integer;
begin
try
qtd:=StrToInt(Edit1.text);
except
begin
showmessage(´Valor não válido´);
edit.setfocus;
exit;
end;
end;
for i:=1 to qtd do
...
end;


GOSTEI 0
Marco Salles

Marco Salles

05/07/2006

a partir do delphi 6.0 acho eu .. função [b:c20a115fcb]TryStrToInt[/b:c20a115fcb]

procedure TForm1.Button1Click(Sender: TObject);
var
qtd,i:integer;
begin
if not TryStrToInt(edit1.Text,qtd) then
  showmessage(´valor inválido´)
else
 for i:=1 to qtd do
   begin
     //seu codigo
   end;
end;



GOSTEI 0
Madcat

Madcat

05/07/2006

Legal não sabia q isso existia...


GOSTEI 0
POSTAR