Fórum comando For to do com edit ? #324806
05/07/2006
0
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:
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
Curtir tópico
+ 0
Responder
Posts
05/07/2006
Madcat
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;
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;
Responder
Gostei + 0
05/07/2006
Marco Salles
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;
Responder
Gostei + 0
05/07/2006
Madcat
Legal não sabia q isso existia...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)