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

* added try..finally to beginupdate/endupdate, mantis #29165

Browse Source 
git-svn-id: trunk@32629 -
This commit is contained in:
marco 2015-12-10 19:19:25 +00:00
parent 1d015b9620
commit aa33a9509f
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -951,12 +951,15 @@ Var
Str : String; Str : String;
begin begin
BeginUpdate; BeginUpdate;
Try
Obj:=Objects[CurIndex]; Obj:=Objects[CurIndex];
Str:=Strings[CurIndex]; Str:=Strings[CurIndex];
Objects[CurIndex]:=Nil; // Prevent Delete from freeing. Objects[CurIndex]:=Nil; // Prevent Delete from freeing.
Delete(Curindex); Delete(Curindex);
InsertObject(NewIndex,Str,Obj); InsertObject(NewIndex,Str,Obj);
finally
EndUpdate; EndUpdate;
end;
end; end;