paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 00:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correctly free objects when destroying stringlist instance

Browse Source 
git-svn-id: trunk@20265 -
This commit is contained in:
michael 2012-02-05 19:55:21 +00:00
parent b058593b53
commit 723482c814
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/classes/stringl.inc
View File

@ -1133,10 +1133,7 @@ Var I : Longint;
begin begin
FOnChange:=Nil; FOnChange:=Nil;
FOnChanging:=Nil; FOnChanging:=Nil;
// This will force a dereference. Can be done better... Clear;
For I:=0 to FCount-1 do
FList^[I].FString:='';
FCount:=0;
SetCapacity(0); SetCapacity(0);
Inherited destroy; Inherited destroy;
end; end;