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

* Prevent Move from freeing an associated object if OwnsObjects=True (reported on sourceforge)

Browse Source 
git-svn-id: trunk@22992 -
This commit is contained in:
michael 2012-11-16 11:04:44 +00:00
parent 29609ee37b
commit 4ecfde31e1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -868,6 +868,7 @@ begin
BeginUpdate; BeginUpdate;
Obj:=Objects[CurIndex]; Obj:=Objects[CurIndex];
Str:=Strings[CurIndex]; Str:=Strings[CurIndex];
Objects[CurIndex]:=Nil; // Prevent Delete from freeing.
Delete(Curindex); Delete(Curindex);
InsertObject(NewIndex,Str,Obj); InsertObject(NewIndex,Str,Obj);
EndUpdate; EndUpdate;