paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 12:59:24 +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;
DupError : Error(SDuplicateString,0)
end;
InsertItem (Result,S);
if (aObject<>Nil) then
begin
BeginUpdate;
try
BeginUpdate;
try
InsertItem (Result,S);
if (aObject<>Nil) then
Objects[Result]:=AObject;
finally
EndUpdate;
end;
end;
finally
EndUpdate;
end;
end;
function TStringList.Add(const S: string): Integer;