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

* fixed TCollection.FindItemID as suggested by "de" (mantis #11588)

Browse Source 
git-svn-id: trunk@11301 -
This commit is contained in:
Jonas Maebe 2008-06-30 19:18:45 +00:00
parent c05626b4b5
commit f3afd6d934
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/collect.inc
View File

@ -301,13 +301,13 @@ function TCollection.FindItemID(ID: Integer): TCollectionItem;
Var
I : Longint;
begin
Result:=Nil;
For I:=0 to Fitems.Count-1 do
begin
Result:=TCollectionItem(FItems.items[I]);
If Result.Id=Id then
exit;
end;
Result:=Nil;
end;