메모리 누수가

Question

난 그냥 내 응용 프로그램에서 함수를 만드는 방법에 대해 해요 델파이에 문제가있는이 기능은 문제가 내가 무료로 할 수없는 것입니다이

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; 

같다 나는 메모리 누수의 문제와 2 ~ 3 분 후에 후 응용 프로그램 중지를 가질 수에 대한 함수의 밖으로 측면에서 TMyquery .... 나는 함수 내부의 TMyquery 객체를 해제 할 경우
하지만, 그때 내가 할 수있는 ' 함수 호출 외부에서 함수 결과를 얻지 않습니다.

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;