Question

Delphi中Object循环

Delphi中
a1...a100:string,
edit1...edit100:tedit;
如果让a1 ：=edit1.text, ... a100:=edit100.text，
如何循环？
当然，不止有edit控件，还有combobox，checkbox，dbedit等等
笨方法，一个一个写

Answer 1

用数组变量来完成这个工作。

追问

具体应该怎么做呢？

追答

procedure TForm1.btn1Click(Sender: TObject);
var
i : integer;
s : array[0..10] of string;
begin
for i := 0 to 10 do
begin
s[i] := TEdit(FindComponent('Edit'+IntToStr(i))).Text;
end;
end;