ich versuche eine Funktion zu schreiben, die mir die Objektreferenz aus einem string zurückgibt.
z.B. möchte ich aus 'Button1.font' => Button1.font haben
ich hoffe, ich habe mich verständlich ausgedrückt...ich suche sowas ähnliches wie findcomponent, nur für unterklassen.
in meinem Beispiel wird diese Funktion subclass ( Zeile 14,18 ) genannt.
Delphi-Quellcode:
function getSubInstance(form:TForm;comp:string):TObject;
var s:string;
p:integer;
begin
result:=nil;
p:=pos('.',comp);
if p>0 then
begin
result:=form.FindComponent(copy(comp,1,p-1));
delete(comp,1,p);
p:=pos('.',comp);
while p>0 do
begin
//result:=result.subclass(copy(comp,1,p-1));
delete(comp,1,p);
p:=pos('.',comp);
end;
//result:=result.subclass(copy(comp,1,length(comp)));
end else result:=form.FindComponent(comp);
end;
Gruß Frank