Metodenavn

Det kræver
1)
  At den er published
2)
  At du har adressen på den

Jens B

ok.

Eksempel?

Noget alla det her :

  published
    procedure Hest;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  Address : TMethod;
begin
  Address.Code := MethodAddress('Hest');
  Address.Data := Self;

  Caption := MethodName(Address.Code);
end;

procedure TForm1.Hest;
begin
//
end;

end.

Her har du et noget bedere eksempel :

www.borrisholt.com/eksperten/XMLMainMenu.zip

Jens B

tak for hjælpen.

Ved du forresten om det er muligt at få oplyst linjenummer i en unit på runtime?

Feks. i  hvad linje en exceptions skete?

ja selvfølgelig er det det ... Men det er ikke noget man lige gør. Det vil typisk være et produkt man udviklede for penge. Og det  er formentlig ikke det du fisker efter.

Så svaret er nok nej.

Jens B

borrisholt/r9: Er det ikke en debugger bruges til. ?(vise hvor en fejl sker)

hvad version af Delphi benytter i siden i ikke har en debugger.

tille:

Delphi7, og ja debuggeren viser alt.


borrisholt:
takker

Jo jo .. Så længe du kører programmet gennem debuggeren, så er det ikke så svært ... Det var mere den der med jeg laver en exe fil her hos mig. Sender den til en som INGEN Delphi har el. Også grave linje nummeret, ved en exception, frem det er svært !

Jens B

nu skal jeg ikke lege delphi ekspert, men for de fleste sprog jeg kender, er det at medtage linienumre i exefile, et spørgsmål om compiler options. (og tab af performance hvis linienumrene medtages)

tille >> Der tager du fejl. I VC++ skal du compilere med Debug information, i Delphi skal du klikke TD32 Debug på, SAMT debug information.

Jens B

ja der syntes jeg nu ikke jeg tog fejl :-), det var netop det jeg mente med compiler options, men vi er vel sådan set enige så.