mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 12:23:24 +01:00
33 lines
706 B
ObjectPascal
33 lines
706 B
ObjectPascal
Program ex21;
|
|
|
|
{ Program to demonstrate the TCollection.FirstThat method }
|
|
|
|
Uses Objects,MyObject; { For TMyObject definition and registration }
|
|
|
|
Var C : PCollection;
|
|
M : PMyObject;
|
|
I : Longint;
|
|
|
|
Function CheckField (Dummy: Pointer;P : PMyObject) : Longint;
|
|
|
|
begin
|
|
If P^.GetField>56 then
|
|
Checkfield:=1
|
|
else
|
|
CheckField:=0;
|
|
end;
|
|
|
|
begin
|
|
C:=New(PCollection,Init(100,10));
|
|
For I:=1 to 100 do
|
|
begin
|
|
M:=New(PMyObject,Init);
|
|
M^.SetField(I);
|
|
C^.Insert(M);
|
|
end;
|
|
Writeln ('Inserted ',C^.Count,' objects');
|
|
Writeln ('first one for which Field>56 has index (should be 56) : ',
|
|
C^.IndexOf(C^.FirstThat(@CheckField)));
|
|
C^.FreeAll;
|
|
Dispose(C,Done);
|
|
end. |