paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 05:48:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Keep old behaviour, but keep issue #40898 solved

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-24 11:02:42 +02:00
parent 97ad8fafd8
commit 58560d333e
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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