Komponentenentwicklung + Property + Stringlist

[SirThornberry]

ein Beispiel:

Delphi-Quellcode:

type
  TYourClass = TComponent
  private
    fStringList: TStringlist;
    function FGetStr(AIndex: Integer): String;
  [...]
  public
    property MyString: Integer Index 0 read FGetStr; //Variante1 gibt immer den ersten String zurück
    property Strings[Index: Integer]: String read FGetStr; //Variante2 - per Index kann man auswählen welcher String zurück gegeben werden soll
  end;

function TYourClass.FGetStr(AIndex: Integer): String;
begin
  if (AIndex < 0) or (AIndex >= fStringlist.Count) then
    result := ''
  else
    result := fStringList.Strings[AIndex];
end;