請教各位:      如下程式總無法編譯??

  for i:=0 to ComponentCount - 1 do
  begin
    if (Components[i] is TDataModule) then
    begin
      Components[i].free;
      freeandnil(Components[i]);  //此行無法編譯 Components 不是   
        // tobject的後代為何會錯??
    end;
  end;

引言: 請教各位: 如下程式總無法編譯??

var
  tmpComponent:TComponent;    ..........      
  for i:=0 to ComponentCount - 1 do
  begin
    if (Components[i] is TDataModule) then
    begin
      
      // Components[i].free;
      // freeandnil(Components[i]); 
      
      tmpComponent := Components[i];
      freeandnil(tmpComponent); 
      
          end;
  end;

您好: 請您將 Code 改成紅色部分就可以了,因為 Components[i] 是 property 為 Read-Only; 發表人 - SouthWind 於 2003/12/28 17:03:48

引言:

引言: 請教各位: 如下程式總無法編譯??

var
  tmpComponent:TComponent;    ..........      
  for i:=0 to ComponentCount - 1 do
  begin
    if (Components[i] is TDataModule) then
    begin
      
      // Components[i].free;
      // freeandnil(Components[i]); 
      
      tmpComponent := Components[i];
      freeandnil(tmpComponent); 
      
          end;
  end;

如此可讓原 Components free 掉嗎?? 您好: 請您將 Code 改成紅色部分就可以了,因為 Components[i] 是 property 為 Read-Only; 發表人 - SouthWind 於 2003/12/28 17:03:48

引言:

引言: 請教各位: 如下程式總無法編譯??

var
  tmpComponent:TComponent;    ..........      
  for i:=0 to ComponentCount - 1 do
  begin
    if (Components[i] is TDataModule) then
    begin
      
      // Components[i].free;
      // freeandnil(Components[i]); 
      
      tmpComponent := Components[i];
      freeandnil(tmpComponent); 
      
          end;
  end;

您好: 請您將 Code 改成紅色部分就可以了,因為 Components[i] 是 property 為 Read-Only; 發表人 - SouthWind 於 2003/12/28 17:03:48

如此可讓原 Components free 掉嗎??

引言:

引言: 您好: 請您將 Code 改成紅色部分就可以了,因為 Components[i] 是 property 為 Read-Only;

如此可讓原 Components free 掉嗎??

ROLAND168 您好: 我自己有實驗過,是可以的.... 您可以實驗一下,在 FreeAndNil 後再加上以下的 Code

  for i:=0 to ComponentCount - 1 do
  begin
    if (Components[i] is TDataModule) then
    begin
       ShowMessage('TDataModule found!!');
    end;
  end;

如果沒有彈出 'TDataModule found!!' 訊息就 OK 啦... 修正一下我之前講的,嚴格說起來說 property 是 Read-Only 是不太對的... 詳情請看 property 的 Help 說明 ....

补充一点，这样释放的写法，最好倒作写 for i:=ComponentCount-1 downto 0 do     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

1. Free 和 設成nil 基本上是兩件事  假設你有一元件DataBase1:TDatabase, 則DataBas1只是一個變數,是一個object reference, 指向一塊memory, 此memory含TDatabase元件之一切    Database1.free將database1此元件所配置之Memory釋放   DataBase1:=nil 則將Database1這個變數之內容設為nil  FreeAndNil(DataBase1)則同時完成上述兩件.    2.

 
  for i:=0 to ComponentCount - 1 do //應改為for i:=Componentcout-1 downto 0 do
  begin
    if (Components[i] is TDataModule) then
    begin
      Components[i].free;
      freeandnil(Components[i]);    
//1.前一行已free,不可再free一次
//2.想一想, 你可以free 此元件所占之memory, 但無法知道此元件變數所在之位址, 因此無法給定nil,所以compiler告訴你此處須接受一var .而components[i]只指名了元件之位置卻不知變數何在故compiler視為constant.
    end;
  end;

3.var tmpComponent:TComponent; ... tmpComponent := Components[i]; freeandnil(tmpComponent); 這Compiler是可以過, 不過沒什麼意義, 該TDataBase是Free了, 但是tmpComponent這個變數被assign成nil, 原來的變數並不會被assign成nil 4. 因此如下即可

      
for i:=ComponentCount - 1 down to 0 
  if (Components[i] is TDataModule) then
    TDataMoodule(Components[i]).free;

引言: 1. Free 和 設成nil 基本上是兩件事 假設你有一元件DataBase1:TDatabase, 則DataBas1只是一個變數,是一個object reference, 指向一塊memory, 此memory含TDatabase元件之一切 Database1.free將database1此元件所配置之Memory釋放 DataBase1:=nil 則將Database1這個變數之內容設為nil FreeAndNil(DataBase1)則同時完成上述兩件. 2.

 
  for i:=0 to ComponentCount - 1 do //應改為for i:=Componentcout-1 downto 0 do
  begin
    if (Components[i] is TDataModule) then
    begin
      Components[i].free;
      freeandnil(Components[i]);    
//1.前一行已free,不可再free一次
//2.想一想, 你可以free 此元件所占之memory, 但無法知道此元件變數所在之位址, 因此無法給定nil,所以compiler告訴你此處須接受一var .而components[i]只指名了元件之位置卻不知變數何在故compiler視為constant.
    end;
  end;

3.var tmpComponent:TComponent; ... tmpComponent := Components[i]; freeandnil(tmpComponent); 這Compiler是可以過, 不過沒什麼意義, 該TDataBase是Free了, 但是tmpComponent這個變數被assign成nil, 原來的變數並不會被assign成nil 4. 因此如下即可

      
for i:=ComponentCount - 1 down to 0 
  if (Components[i] is TDataModule) then
    TDataMoodule(Components[i]).free;

Sorry!! 才疏學淺,見笑了... 感謝 ccchen 的指正,又上了一課.. 因為我試上面 code ,再將其重新 Search 一遍沒有找到 Component ,就以為有 Free & Set Nil ... 沒想到... 可否請教 1.為何 for i:=Componentcout-1 downto 0 do 倒回來跑比較好?? 2.如果只 Free 掉 Object , 不設 nil 會發生什麼事嗎??

引言: 因為我試上面 code ,再將其重新 Search 一遍沒有找到 Component ,就以為有 Free & Set Nil ... 沒想到... 可否請教 1.為何 for i:=Componentcout-1 downto 0 do 倒回來跑比較好?? 2.如果只 Free 掉 Object , 不設 nil 會發生什麼事嗎??

如果用for i:=0 to componentcount-1 do 當找到, 進行刪除後, Components[] 中少了一個元件, 到最後就會"index out of bound" Free 掉 Object , 不設 nil 不會發生任何錯誤, 只是你若檢查原變數不會是nil吧了. 即: Memory釋放了, 但未設成nil. 於此處只能也只需Free即可.

引言: 如果用for i:=0 to componentcount-1 do 當找到, 進行刪除後, Components[] 中少了一個元件, 到最後就會"index out of bound" Free 掉 Object , 不設 nil 不會發生任何錯誤, 只是你若檢查原變數不會是nil吧了. 即: Memory釋放了, 但未設成nil. 於此處只能也只需Free即可.

感謝 ccchen 版主詳盡的回答,霎時茅舍頓開...

引言:

引言: 因為我試上面 code ,再將其重新 Search 一遍沒有找到 Component ,就以為有 Free & Set Nil ... 沒想到... 可否請教 1.為何 for i:=Componentcout-1 downto 0 do 倒回來跑比較好?? 2.如果只 Free 掉 Object , 不設 nil 會發生什麼事嗎??

如果用for i:=0 to componentcount-1 do 當找到, 進行刪除後, Components[] 中少了一個元件, 到最後就會"index out of bound" Free 掉 Object , 不設 nil 不會發生任何錯誤, 只是你若檢查原變數不會是nil吧了. 即: Memory釋放了, 但未設成nil. 於此處只能也只需Free即可.

再次感謝版主!!

引言: Database1.free將database1此元件所配置之Memory釋放 DataBase1:=nil 則將Database1這個變數之內容設為nil FreeAndNil(DataBase1)則同時完成上述兩件.

觀念更清楚,受教了