klasseninstanz finden

[Hawkeye219]

Hallo Frank,

ohne Garantie:

Delphi-Quellcode:

function getSubInstance (aRoot: TComponent;  const aName: string): TObject;
  var ii : Integer;
      SL : TStrings;
begin
  SL := TStringList.Create;
  SL.Delimiter := '.';
  SL.DelimitedText := aName;
  if (SL.Count = 0) then
    Result := nil
  else
    begin
      Result := aRoot.FindComponent(SL[0]);
      ii := 1;
      while (Assigned(Result) and (ii < SL.Count)) do
        if (GetPropInfo(Result, SL[ii], [tkClass]) = nil) then
          Result := nil
        else
          begin
            Result := GetObjectProp(Result, SL[ii]);
            Inc (ii);
          end;
    end;
  SL.Free;
end;

Gruß Hawkeye