引言: Procedure myProcedure; 不可能的...應是 TForm1.myProcedure 罷，分別很大的 begin myForm:= TForm.Create(self); .... myLabel:= TLabel.Create(self); myLabel.Parent:= myForm; .... .... myForm.Free; end; 1.如此是否 myLabel會一併被釋放, 我測試的結果(連續執行這支procedure100次) 然後檢查記憶體並沒有損失多少(幾個byte) 反而是在 myForm.Free前先加 myLabel.Free, 在第二次執行就error 所以想確認一下, 這樣的繼承關係, 是否子項元件不需要做任何的釋放行為, 由 父項執行就可以了!

TForm1.procedure Myprocedure;
  var myForm: TForm;
      myLabel: TLabel;
begin
  myForm:= TForm.Create(self);
  myForm.name:= 'Test1';       myLabel:= TLabel.Create(myForm);
   ...
   ...
end;

引言:

TForm1.procedure Myprocedure;
  var myForm: TForm;
      myLabel: TLabel;
begin
  myForm:= TForm.Create(self);
  myForm.name:= 'Test1';
  myLabel:= TLabel.Create(myForm);
   ...
   ...
end;

這裡有點困惑, myForm被create, 如果不加紅色部份, 可以被重覆執行 但如果加上紅色的form.name , 則在執行第二次即錯誤 "a Component named test1 already exists", 按上述說, 宣告 local variable, 在 procedure 結束時應自然釋放掉, 但測試結果, 如果不加 free 其實還是存在於記憶體中, 那這要如何解釋, 我的想法是 TComponent 的物件雖定義在procedure中, 但其父項仍是屬於Form物件, 所以即使procedure結束也不會影響所create的特性, 一樣得手動free才可以, 如果是定義 var myVar: integer的話, 則procedure結束, myVar自然釋放, 不知對不對?

TForm1.procedure Myprocedure;
  var myForm,myForm2: TForm;
      myLabel: TLabel;
begin
  myForm:= TForm.Create(self);
  myForm2 := myForm;
  myForm := self;
   ...
end;