我動態create了5個checkbox 然後把他砍掉 但程式在砍的部份好像有問題? procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin for i:= 1 to 5 do begin with TCheckBox.Create(self) do begin Parent:= GroupBox1; Left:= 10; Top:= i * 20; Caption:= '第' inttostr(i) '個checkbox'; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:= 0 to GroupBox1.ControlCount - 1 do begin GroupBox1.Controls[i].Free; end; end; Free和Destory要用何者? 這裡用Free對嗎?

引言: 我動態create了5個checkbox 然後把他砍掉 但程式在砍的部份好像有問題?

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 0 to GroupBox1.ControlCount - 1 do begin
    GroupBox1.Controls[i].Free;
  end;
end;

要倒著砍才可以！ for i := GroupBox1.ControlCount - 1 downto 0 do TJSQRBuild (簡易報表建立元件) http://freehomepage.taconet.com.tw/This/is/taconet/top_hosts//jieshu/delphi.htm#JSQRBuild 經由元件屬性設定，可不用自己拖拉QuickReport元件，即可建立簡單的QuickReport報表，可在設計階段預覽。亦可將建立的報表存成 Delphi 的 Form (類似 QuickReport Wizard 所產生的程式)，再做複雜的設定使用，免除一一拖拉元件的困擾。

引言:

引言: for i:= 0 to GroupBox1.ControlCount - 1 do begin GroupBox1.Controls[i].Free; end; [/code]

要倒著砍才可以！ for i := GroupBox1.ControlCount - 1 downto 0 do

啊，這樣就行了 為什麼正著來不行 要反著來才行?????

引言: 啊，這樣就行了 為什麼正著來不行 要反著來才行?????

因為正著砍, GroupBox1.Controls[i].Free; 這行的 Index 會變 比方說, 砍了 3 個, 剩 2 個, 到第 4 個時 GroupBox1.Controls[3] 就沒東東了, 就沒辦法 Free 了。