정답일지는 모르겠지만...
코드를 약간 수정해 보시죠.
현재 마지막 라인에
AForm.Free;
라고 코딩했는데, 이 부분을
AForm.Close;
로 수정하고,
procedure TAForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
를 삽입해 보시면 어떨까요?
대개 이렇게 하면 메모리가 완전히 해제가 되더군요.
만약 이렇게 해도 안되면 퀵리포트 제어 컴포넌트를 해제 시켜 보세요.
QuickReport1.Free;
이 문장은 위의 FormClose나 FormCloseQuery 이벤트에 삽입하셔도 됩니다.
|