delphi怎样用循环把一些文本框里面的内容都赋值到一个数组上???
发布网友
发布时间：2023-07-25 11:22
共1个回答
热心网友
时间：2024-02-03 22:18
procere TForm1.btn1Click(Sender: TObject);
var
SL: TStringList;
I: Integer;
begin
SL := TStringList.Create;
with Form1 do
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then //加自己的一些判断条件
SL.Add(TEdit(Components[I]).Text);
end;
ShowMessage(SL.CommaText);
SL.Free;
end;
