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

* Properly nest beginupdate/endupdate in doaddobject

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-27 09:52:24 +02:00
parent dd26c1502c
commit 8139c0a8bd
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1946,16 +1946,14 @@ begin
DupIgnore : Exit; DupIgnore : Exit;
DupError : Error(SDuplicateString,0) DupError : Error(SDuplicateString,0)
end; end;
InsertItem (Result,S); BeginUpdate;
if (aObject<>Nil) then try
begin InsertItem (Result,S);
BeginUpdate; if (aObject<>Nil) then
try
Objects[Result]:=AObject; Objects[Result]:=AObject;
finally finally
EndUpdate; EndUpdate;
end; end;
end;
end; end;
function TStringList.Add(const S: string): Integer; function TStringList.Add(const S: string): Integer;