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

* Assigned instead of <>Nil

Browse Source
This commit is contained in:
michael 2020-11-16 15:29:21 +00:00
parent 7944be97f0
commit ba1d3b1145
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/classes.pas
View File

@ -3958,7 +3958,7 @@ end;
function TCollectionItem.GetIndex: Integer;
begin
if FCollection<>nil then
if Assigned(FCollection) then
Result:=FCollection.FItems.IndexOf(Self)
else
Result:=-1;
@ -3971,8 +3971,8 @@ procedure TCollectionItem.SetCollection(Value: TCollection);
begin
IF Value<>FCollection then
begin
If FCollection<>Nil then FCollection.RemoveItem(Self);
if Value<>Nil then Value.InsertItem(Self);
if Assigned(FCollection) then FCollection.RemoveItem(Self);
if Assigned(Value) then Value.InsertItem(Self);
end;
end;