Question

delphi怎样用循环把一些文本框里面的内容都赋值到一个数组上?????

有N个EDIT文本框,想实现把其中的某些文本框赋值到一个数组上.应该怎样做?给个例子.用循环!..

Answer 1

//遍历components即可
procedure 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;

追问

我不是添加到一个字符串上,我是想添加到一个数组上..不想每次写A[0]:=EDIT1.TEXT…能帮下吗??

追答

TStringList 就相当于一个动态数组啊, 把SL.Add()那行换成你的数组赋值就OK了, 如:
A[I] := TEdit(Components[I]).Text

追问

如果我定义的数组A[1..50],但我实际上的EDIT有53个..那怎么办??

追答

那就定义成动态数组, 然后用SetLength不停扩充数组长度, 这样我觉得你还不如就用TStringList,那个用起来和数组没区别啊,一定要用传统的数组么?

追问

其实我目的是把这些文本框都用来计算,那用普通数组不是更好??

追答

那不就会出现你的第二个追问么?? TStringList类型的变量使用的时候也可以SL[0], SL[1], ...和普通数组A[0], A[1], A[2]...有区别? 而且这样你也不用关心数组长度了啊, 或者就像我之前说的那样用动态数组, 肯定不能用A[1..50]这样的定长数组, 除非你定义长一点就像A[1..500], 反正条条大路通罗马, 我觉得我已经给出所有解决方案了, 就看你怎么取舍了...