paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +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; DupIgnore : Exit;
DupError : Error(SDuplicateString,0) DupError : Error(SDuplicateString,0)
end; end;
InsertItem (Result,S,AObject); // Avoid crash in lazarus
if Assigned(aObject) then
InsertItem (Result,S,AObject)
else
InsertItem (Result,S);
end; end;
function TStringList.Add(const S: string): Integer; function TStringList.Add(const S: string): Integer;