各位先進,請教一個 for 迴圈的問題: 1.我有 10 個 edit1~edit10,皆輸入數字值,我要如何寫一個迴圈將這10個數值, 抓到 array 內? 2.我用亂數產生10數值,存在array內,要如何寫一個迴圈將這10個數值丟到 edit1~edit10? 感謝您的解答!!

Hi tOMMY11,    請參考 http://delphi.ktop.com.tw/topic.php?topic_id=62190 使用 findComponent 函數

1.
procedure TForm1.Button1Click(Sender: TObject);
var
  ED : TObject;
  I : Integer;
begin
  Randomize();
  for i := 1 to 10 do
    begin
      ed := FindComponent('Edit'   IntToStr(I));
      if (Assigned(ED)) and (ed.ClassNameIs('TEdit')) then
        TEdit(ED).Text := IntTostr(Random(100));
    end;
end;    2.
procedure TForm1.Button2Click(Sender: TObject);
var
  ED : TObject;
  I : Integer;
  A : Array[1..10] of Integer;
begin
  Randomize();
  for i := 1 to 10 do
    begin
      a[i] := Random(100);
    end;
  for i := 1 to 10 do
    begin
      ed := FindComponent('Edit'   IntToStr(I));
      if (Assigned(ED)) and (ed.ClassNameIs('TEdit')) then
        TEdit(ED).Text := IntTostr(a[i]);
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

1.

var
  edtText: array[1..10] of string;
  i: integer;
begin
  for i := 1 to 10 do
    edtText := (Form1.FindComponent('Edit'   IntToStr(i)) as TEdit).Text;
end;

2.

var
  TmpArray: array[1..10] of string;
  edt: array[1..10] of TEdit;
begin
  Randomize;
  for i := 1 to 10 do
    TmpArray := IntToStr(Trunc(Random(100)));      for i := 1 to 10 do
  begin
    edt := Form1.FindComponent('Edit'   IntToStr(i)) as TEdit;
    edt.Text := TmpArray[i];
  end;
end;

-- QBQ: 我能做什麼？