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

* move beginupdate before try 3x , Mantis #29164

Browse Source 
git-svn-id: trunk@32630 -
This commit is contained in:
marco 2015-12-10 19:21:16 +00:00
parent aa33a9509f
commit 5dcf5a95c5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -708,8 +708,8 @@ Procedure TStrings.AddStrings(TheStrings: TStrings);
Var Runner : longint;
begin
beginupdate;
try
beginupdate;
For Runner:=0 to TheStrings.Count-1 do
self.AddObject (Thestrings[Runner],TheStrings.Objects[Runner]);
finally
@ -815,8 +815,8 @@ Var
Str : String;
begin
beginUpdate;
Try
beginUpdate;
Obj:=Objects[Index1];
Str:=Strings[Index1];
Objects[Index1]:=Objects[Index2];
@ -923,8 +923,8 @@ Var
I,BufDelta : Longint;
begin
// reread into a buffer
beginupdate;
try
beginupdate;
Buffer:='';
BufLen:=0;
I:=1;