Brauche hilfe bei Property

[Andreas L.]

Ich würde an deiner Stelle eine TObjectList verwenden.

Delphi-Quellcode:

uses
  ..., ContNrs;

type
  TMyList = class;
  TMyItem = class;

  TMyList = class(TObjectList)
  protected
    function GetItem(Index: integer):TMyItem;
  public
    property Items[Index: Integer]: TMyItem read getItem; default;
  end;

  TMyItem = class(TPersistent)
  private
    FFeld1: Integer;
  published
     property Feld1: Integer read FFeld1;
  end;

//Verwendung:

var
  List: TMyList;
begin
  List := TMyList.Create;
  try
    IrgendeineVariable := List[0].Feld1;
  finally
    List.Free;
  end;
end;

1