procedure TForm1.Button1Click(Sender: TObject); var aa : Array [0..2] of Tobject; I : Integer; begin aa[0] := Edit1; aa[1] := Edit2; aa[2] := Edit3; for i := 0 to high(aa) do begin showmessage(tedit(aa[i]).name); end; end;
for i:=0 to compopent.count if component[i] is tbutton then ......
var
aa : Array [0..2] of Tobject;
I : Integer;
begin
aa[0] := Edit1;
aa[1] := Edit2;
aa[2] := Edit3;
for i := 0 to high(aa) do
begin
showmessage(tedit(aa[i]).name);
end;
end;
if component[i] is tbutton then
......
标签可以用来选择控件操作
用tag属性区分