Código Delphi [-] var i, n: integer; Comp : TComponent; s: string; begin n := 20 //Cantidad de Edits a recorrer s := 'Edit'; for i:= 1 to n do begin Comp := FindComponent(s + IntToStr(i)); if Comp is TEdit then showmessage(TEdit(Comp).Text); end; end;
var i, n: integer; Comp : TComponent; s: string; begin n := 20 //Cantidad de Edits a recorrer s := 'Edit'; for i:= 1 to n do begin Comp := FindComponent(s + IntToStr(i)); if Comp is TEdit then showmessage(TEdit(Comp).Text); end; end;