內存泄漏從函數返回時中tfields

Question

我只是用Delphi一個問題，我是如何創建我的應用程序的函數，這個函數是這樣

function Get_Foundation_infos(): TFields; 
begin 
    with TMyQuery.Create(nil) do 
    begin 
    try 
     Connection := DataBaseForm.DataBaseForm1.DataBase; 
     SQL.Add('SELECT * FROM `foundation_infos` WHERE `Id`=1'); 
     Execute; 
     Result := Fields; 
    except 
     on E: Exception do 
     Result := nil; 
    end; 
    end; 
end; 

問題是我不能免費TMyquery從功能的外側，我有一個內存泄漏的問題，並在2或3分鐘後的應用程序停止....
但如果我免費TMyquery對象裏面的函數，那麼我可以' t從函數調用的外部獲取函數結果。

Answer 1

您需要確保TMyQuery對象超出它擁有的TFields對象。但是，您還必須確保銷燬該TMyQuery對象以避免泄漏。

最簡單的方法是從函數中返回TMyQuery對象並讓調用者讀取Fields屬性。完成後，銷燬TMyQuery對象。自然，你會使用try/finally來確保異常不會導致泄漏。

function CreateFoundationQuery: TMyQuery; 
begin 
    Result := TMyQuery.Create(nil); 
    try 
    Result.Connection := DataBaseForm.DataBaseForm1.DataBase; 
    Result.SQL.Add('SELECT * FROM `foundation_infos` WHERE `Id`=1'); 
    Result.Execute; 
    except 
    Result.Free; 
    raise; 
    end; 
end; 

Answer 2

我剛剛找到另一種方式也許當我創建了一個對象，而它使用一個名稱參考變量是內存管理器無法修復的內存泄漏在這種情況下爲我創建的具有可變功能相同類型的返回，在這種情況下，內存管理器可以解決與此命名變量任何內存泄漏....

這是可變的新代碼...

function Get_Foundation_infos(): TMyQuery; 
var 
    q: TMyQuery; 
begin 
    q := TMyQuery.Create(nil); 

    with q do 

    begin 

    try 

     Connection := DataBaseForm.DataBaseForm1.DataBase; 

     SQL.Add('SELECT * FROM `foundation_infos` WHERE `Id`=1'); 
     Execute; 

     Result := q; 

    except 
     on E: Exception do 
     Result := nil; 
    end; 

    end; 

end;