paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 20:46:04 +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

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

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