Zugriff auf Variablen / Klassenstruktur

[geskill]

Meinst du sowas:

Delphi-Quellcode:

type
  TMyClass = class

  protected
    function GetWerteArray(const IndexOrName: OleVariant): TValue;
  public
    function FindValue(const AName: string): TValue;

    property WerteArray[const IndexOrName: OleVariant]: TValue read GetWerteArray;
  end;

// ...

function TMyClass.GetWerteArray(const IndexOrName: OleVariant): TValue;
begin
  Result := nil;

  if not VarIsNull(IndexOrName) then
  begin
    if VarIsNumeric(IndexOrName) then
      Result := FList[IndexOrName]
    else
      Result := FindControl(IndexOrName);
  end;
end;

function TMyClass.FindValue(const AName: string): TValue;
var
  LIndex: Integer;
begin
  Result := nil;

  for LIndex := 0 to FList.Count - 1 do
  begin
    // ... TODO
  end;
end;