Thema: Delphi String zu Funktion

Einzelnen Beitrag anzeigen

Sämy

Registriert seit: 4. Nov 2004
Ort: Basel (CH)
76 Beiträge
 
Delphi 2007 Professional
 
#7

Re: String zu Funktion

  Alt 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.
  Mit Zitat antworten Zitat