Skip to content

TCollection.IndexOf

Find the position of a certain item.

Declaration

Source position: objects.pp line 439

default 
  function IndexOf(Item: Pointer) : Sw_Integer;  Virtual;

Description

IndexOf returns the index of Item in the collection. If Item isn't present in the collection, -1 is returned.

Errors

If the item is not present, -1 is returned.

See also

Name Description
TCollection.At Return the item at a certain index.
TCollection.GetItem Read one item off the stream.
TCollection.Insert Insert a new item in the collection at the end.

Example

Program ex24;
{ Program to demonstrate the TCollection.IndexOf method }
Uses Objects,MyObject; { For TMyObject definition and registration }
Var C : PCollection;
    M,Keep : PMyObject;
    I : Longint;
begin
  Randomize;
  C:=New(PCollection,Init(100,10));
  Keep:=Nil;
  For I:=1 to 100 do
    begin
    M:=New(PMyObject,Init);
    M^.SetField(I-1);
    If Random<0.1 then
     Keep:=M;
    C^.Insert(M);
    end;
  If Keep=Nil then
    begin
    Writeln ('Please run again. No object selected');
    Halt(1);
    end;
  Writeln ('Selected object has field : ',Keep^.GetField);
  Write ('Selected object has index : ',C^.IndexOf(Keep));
  Writeln (' should match it''s field.');
  C^.FreeAll;
  Dispose(C,Done);
end.