Item eines arrays anhand eines strings?

[Christian Seehase]

Moin Pseudemys Nelsoni,

mit ein bisschen Aufwand geht's:

Delphi-Quellcode:

type
  TMyObject = class(TObject)
  end;

  TMyType = class(TObject)
  private
    FMyArray : TStringList;
    function GetMyArray(sIndex: string): TMyObject;
  public
    property MyArray[sIndex : string] : TMyObject read GetMyArray;
  end;

implementation

{$R *.DFM}

{ TMyType }

function TMyType.GetMyArray(sIndex: string): TMyObject;

var
  iIndex : integer;

begin
  Result := nil;
  iIndex := FMyArray.IndexOf(sIndex);
  if iIndex = -1 then exit;
  Result := TMyObject(FMyArray.Objects[iIndex]);
end;