paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 14:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed memleak when destroying TOutputLines

Browse Source 
git-svn-id: trunk@7256 -
This commit is contained in:
vincents 2005-06-20 09:43:27 +00:00
parent 4056975eaf
commit 8f5ae6f7e5
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/outputfilter.pas
View File

@ -92,6 +92,7 @@ type
}
TOutputLines = class(TStringList)
public
destructor Destroy; override;
procedure Clear; override;
procedure Delete(Index: Integer); override;
end;
@ -1034,6 +1035,12 @@ end;
{ TOutputLines }
destructor TOutputLines.Destroy;
begin
Clear; // To free the associated objects
inherited Destroy;
end;
procedure TOutputLines.Clear;
var
i: Integer;