Array in Komponente

[xineohp]

probier mal:

Delphi-Quellcode:

function getString1(index: integer): string;
procedure SetString1(index: integer; wert: string);

property String1[index: integer]: string read GetString1 write SetString1;

// ...

function getString1(index: integer): string;
begin
  result := FString1[index];
end;

procedure SetString1(index: integer; wert: string);
begin
  FString1[index] := wert;
end;