Unit 'Objects' Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] [#rtl]

TCollection.IndexOf

Find the position of a certain item.

Declaration

Source position: objects.pp line 453

function TCollection.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

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;
  or:=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.

Documentation generated on: Dec 02 2024