請問： 目前有一隻產生亂數的程式， 營幕上需輸入亂數範圍和樣本數， 所以要視輸入的樣本數來產生edit元件， 想請問一下，要如何動態產生edit元件呢？ 我本來是用ComboBox1.Items.Add 的方法， 可是user希望能一目瞭然在營幕上呈現亂數結果， 希望前輩們不吝指教，謝謝！

gaui您好

procedure TForm1.Button1Click(Sender: TObject);
var
  xl:TEdit;
begin
  xl:=TEdit.Create(Self);
  xl.SetBounds(10,10,30,20);
  xl.Text:='text';
  xl.Parent:=Self;
end;

pedro ： 謝謝您的指導， 解決我的疑惑， 謝謝！

pedro您好： 我想再請教一下， 當我得到了樣本數後， 在begin前 的 var宣告中， 要如何動態宣告呢？

使用動態陣列

procedure TForm1.Button1Click(Sender: TObject);
const
  Count=35;
var
  Values:array of Integer;
  xl:array of TEdit;
  i:Integer;
begin
  SetLength(Values,Count);
  SetLength(xl,Count);
  for i:=0 to Count-1 do
  begin
    Values[i]:=Random(35);
    xl[i]:=TEdit.Create(Self);
    xl[i].SetBounds(Random(200),Random(200),40,20);
    xl[i].Text:=IntToStr(Values[i]);
    xl[i].Parent:=Self;
  end;
end;

pedro： 再次謝謝你， 我的問題已完全解決了， 謝謝！