Wie eigenen Record definieren und verwenden?

[dominikkv]

Delphi-Quellcode:

type 
  TMyRec = class(TObject)
  private
    FValue: Integer;
    FText: String;
    FStringList: TStringList;
    function getList(i: Integer): string;
    procedure SetList(i: Integer; const Value: string);
  public
    property Value: Integer read FValue write FValue;
    property Text: string read FText write FText;
    property SringList[i: Integer]: string read getList write SetList;
    constructor Create;
    destructor Destroy;
end;





constructor TMyRec.Create;
begin
  inherited;
  FStringList := TStringList.Create;
end;

destructor TMyRec.Destroy;
begin
  FreeAndNil(FStringList);
  inherited;
end;


function TMyRec.getList(i: Integer): string;
begin
  if I < FStringList.Count then
    Result := FStringList[i] else
    Result := '';
end;

procedure TMyRec.SetList(i: Integer; const Value: string);
begin
  if i < FStringList.Count then
    FStringList[i] := Value else
    FStringList.Add(Value);
end;

beim integer macht das der compiler für dich.