- type
- TObjects = Record
- [...]
- end;
- var
- MyObject: TObjects;
- Pointers: Array of Pointer;
- procedure Add(Obj: TObjects);
- begin
- SetLength(Pointers,Length(Pointers)+1);
- Pointers[High(Pointers)]:= ...
- //Hier soll jetzt ein Pointer auf das Objekt welches übergeben wird
- //gesetzt werden, wie?
- end;
- procedure Main;
- var
- i: Integer;
- begin
- for i:=Low(Pointers) to High(Pointers) do
- Check(Pointers[i]);
- // Die Procedure Check verlang als übergabe Parameter ein TObjects!
- end;