Registriert seit: 4. Nov 2004
Ort: Basel (CH)
76 Beiträge
Delphi 2007 Professional
|
Re: String zu Funktion
30. Jan 2008, 13:57
Zitat von Bernhard Geyer:
Dann müsstest du was ähnliches implementieren was Delphi auch mit der späten Bindung und der Verwendung von ( Ole)Variant macht wenn es ein (IDispatch?) Schnittstelle zur verfügung hat.
Ich versteh Bahnhof
Habe jedoch in der Zwischenzeit den Ansatz von sirius weiterverfolgt und im Interface eine Funktion getValue eingebaut:
Delphi-Quellcode:
function TMyObject.getValue(prop: string): Variant;
type
TGetter = function : Variant of object;
var
m: TMethod;
g: TGetter;
begin
m.Code := MethodAddress(' get' + prop);
if not Assigned(m.Code) then
raise Exception.Create(' No such property! [' + prop + ' ]');
g := TGetter(m);
Result := g();
end;
Habe nun jedoch das Problem, dass MethodAddress immerzu nur nil zurückgibt... An was kann dies liegen? Welche Sichtbarkeit benötigt eine Funktion, welche so gefunden werden soll? (Ist zur Zeit protected)
Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it.
|