FOR com Edit

[edson_hh 0]

Tenho 10 campos edit nomeados: Edit1, Edit2... Edit10preciso pegar os valores.. mas ao invez de fazervalor1 := Edit1.text;valor2 := Edit2.text;...valor10 := Edit10.text;tem como eu fazer com FOR???tp..for := 1 to 10 do begin valor+inttostr(i) := (????)end;como eu faço??? nao sei como pegar o valor..tentei TEdit ('edit'+inttostr(i)).textmas nao funciona

[marcio.theis 3]

Tente o seguinte:

 

var	x, valor: integer;beginvalor:=0;for x:=1 to 10 do	valor:=valor + StrToInt(TEdit(FindComponent('edit' + IntToStr(x))).Text);

[edson_hh 0]

eh isso mesmo!!!

mto obrigado!!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif