可以用循环呀，遍历一下
for i:=0 to form1.controlcount-1do
begin
if uppercase(form1.controls.ClassName)="TEDIT" then
printstring:=((form1.controls) as Tedit).Text;
//printstring就是你要得到的字符串
end;
一定要给分,因为我保证能完成.在Delphi上验证通过!
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
str :string;
begin
str:='';
for i:=0 to componentcount-1do
begin
if components is Tedit then
str:=str+' '+Tedit(components).text;
end;
showmessage(str )
end;
当然可以用循环了，以下代码你可以参考一下，然后加以改造成你所需的:
var
i : integer;
slTxt : Tstrings;
begin
slTxt := TStringList.Create;
for i := 0 to ComponentCount - 1do
begin
if Components is TEdit then
slTxt.Add(TEdit(Components).Text);
end;
showmessage(slTxt.Text);
//显示Form上所有Edit中的内容
slTxt.Free;
end;
