[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'Objects' (#rtl)

# TCollection.At

Return the item at a certain index.

## Declaration

Source position: objects.pp line 412

`function TCollection.At(`
`Index: Sw_Integer`
`):Pointer;`

## Description

At returns the item at position Index.

## Errors

If Index is less than zero or larger than the number of items in the collection, seepl{Error}{TCollection.Error} is called with coIndexError and Index as arguments, resulting in a run-time error.

## See also

TCollection.Insert |  | Insert a new item in the collection at the end.

## Example

    Program ex23;

    { Program to demonstrate the TCollection.At method }

    Uses Objects,MyObject; { For TMyObject definition and registration }

    Var C : PCollection;
        M : PMyObject;
        I : Longint;

    begin
      C:=New(PCollection,Init(100,10));
      For I:=1 to 100 do
        begin
        M:=New(PMyObject,Init);
        M^.SetField(100-I);
        C^.Insert(M);
        end;
      For I:=0 to C^.Count-1 do
        begin
        M:=C^.At(I);
        Writeln ('Object ',i,' has field : ',M^.GetField);
        end;
      C^.FreeAll;
      Dispose(C,Done);
    end.