dim sfile[5] as string
For i := 0 To 4
sFile[i] = form1.Text1(i).Text
exit for
我在 delphi 中如何写,能向vb那样有控件数组吗?vb 的 do..loop 和delphi的
while...doend;
功能一样吧???
For i := 0 To 4
sFile[i] = form1.Text1(i).Text
exit for
我在 delphi 中如何写,能向vb那样有控件数组吗?vb 的 do..loop 和delphi的
while...doend;
功能一样吧???
var
A: array[1..5] of TEdit;
I: Integer;
begin
for I := 0 to 4 do begin
A[I] := TEdit.Create(Self);
A[I].Parent := Self;
A[I].Top := I * A[I].Height;
A[I].Name := Format('NewEdit%d', [I]);
end;