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

* try to avoid incompatibility with lazarus (and possibly others)

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-22 14:45:28 +02:00
parent 4112318e2f
commit edde858cfa
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1946,7 +1946,11 @@ begin
DupIgnore : Exit;
DupError : Error(SDuplicateString,0)
end;
InsertItem (Result,S,AObject);
// Avoid crash in lazarus
if Assigned(aObject) then
InsertItem (Result,S,AObject)
else
InsertItem (Result,S);
end;
function TStringList.Add(const S: string): Integer;