Name einer Procedur rausbekommen

[Martin W]

Hi;

Delphi-Quellcode:

unit uFormManager;

procedure TFormManager.DoWhatYouWant(Sender: TObject);
var
  a: string;
begin
  cProcName := ????
  a := cProcName; 
end;

procedure TFormManager.DoSOmething(Sender: TObject);
var
  a: string;
begin
  cProcName := ????
  a := cProcName;
end;

Ich möchte nun das cProgName folgendem zugewiesen wird

cProcName := <UnitName> + '.' + <FormName> + '.' + <Name der Prozedure>; IN der Oberen Procedur sollte dann rauskommen:

cProcName = 'uFormManager.TFormManager.DoWhatYouWant'; in der unteren

cProcName = 'uFormManager.TFormManager.DoSOmething'; Wie bekomme ich diese 3 Werte jeweils raus ??? Danke für antworten im Voraus.


Gruß
martin w.

[Luckie]

Gar nicht. Im kompilierten Code sind die Prozedurnamen nur noch Sprungadressen im Speicher. Die Namen interessieren die CPU nicht.

[Martin W]

Anders gesagt, ich bekomm es auch nicht so hin, das der Compiler mir nen String erstellt, wo der Methodenname steht ?

[Christian Seehase]

Moin Martin,

probier's mal hiermit [google]site:delphipraxis.net rtti[/google]

[Martin W]

Danke euch!!!

[Bernhard Geyer]

Es geht schon. Jedoch mußt du bei Delphi(.Win32) genügend Debug-Infos mit deiner Exe mitliefern (z.B. TD32). Dann kannst du z.B. mit den Debug-Funktionen der Jedi z.B. sogar den ganzen Aufrufstack herausbekommen.