RTTI - Methodenpointer durch Name rausfinden

[Neutral General]

Hi,

Ich hab ne Klasse

Delphi-Quellcode:

{$M+}
  TKlasse = class
    procedure Irgendwas;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
{$M-}

Und wie komm ich jetzt durch den Namen 'Irgendwas' an den Pointer der Methode? Weil in der Exe ist folgendes gepeichert:

Zitat:

IrgendwasTKlasse

Das heißt man müsste doch auch irgendwie durch den Namen an die Adresse kommen. Die Frage ist: Wie?

Gruß
Neutral General

[Dax]

TObject.MethodAddress

edit: da war ein Get zu viel

[Neutral General]

Ok danke. Kleine Frage noch:

Delphi-Quellcode:

TTata = procedure (blabla: Integer) of object;

var x: TTata;
begin
  x := AObject.MethodAddress('Irgendwas'); // kann man nicht zuweisen

Wie kann man x dann diesen Pointer zuweisen?

EDIT:

Ists so richtig?

x := TTata(AObject.MethodAddress('Irgendwas')^); ?

Also ich bekomme da ne AV...

[Neutral General]

Sry für den Doppelpost aber ich wollte bescheid sagen:

ICH HABS!

Danke Dax !

[idontwantaname]

Dann verrate uns doch bitte, im besonderen für Leute, die dasselbe Problem besitzen, wie du es gelöst hast.

[Neutral General]

Hi,

Habs so gemacht (gefunden durch DP-Suche)

Delphi-Quellcode:

var _Create: TMethod;
begin
  _Create.Code := MethodAddress('NamederMethode');
  _Create.Data := Self;
  FOnCreate := TCreateEvent(_Create);
  // ...
end;

Gruß
Neutral General