Código Delphi [-] procedure TForm1.btnPasarClick(Sender: TObject); var i,c: Integer; begin c:= 0; for i:= 0 to ControlCount-1 do if Controls[i] is TEdit then begin TEdit(Controls[i]).Text:= ListBox1.Items[c]; Inc(c); end; end;
procedure TForm1.btnPasarClick(Sender: TObject); var i,c: Integer; begin c:= 0; for i:= 0 to ControlCount-1 do if Controls[i] is TEdit then begin TEdit(Controls[i]).Text:= ListBox1.Items[c]; Inc(c); end; end;