paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +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; DupIgnore : Exit;
DupError : Error(SDuplicateString,0) DupError : Error(SDuplicateString,0)
end; end;
// Avoid crash in lazarus InsertItem (Result,S);
if Assigned(aObject) then if (aObject<>Nil) then
InsertItem (Result,S,AObject) begin
else BeginUpdate;
InsertItem (Result,S); try
Objects[Result]:=AObject;
finally
EndUpdate;
end;
end;
end; end;
function TStringList.Add(const S: string): Integer; function TStringList.Add(const S: string): Integer;