Suchen einer Methode

[_frank_]

Zitat:

Zitat von sirius

Delphi-Quellcode:

x.Data=TForm1

wel es ja procedure TForm1.Sieben heißt.

nicht die klsse in Data sondern die Instanz...also

Delphi-Quellcode:

x.Data=Form1

dann klappts auch ;)

Gruß Frank

[Christian18]

Hallo,

ich bekomme das irgendwie nicht hin. Kann mir jemad mal die Komplette Unit posten?

MFG Christian18

[_frank_]

bei mir funktioniert es so:

Delphi-Quellcode:

type
  TMeine = procedure (Sender: TObject) of object;
...
procedure TForm1.Sieben(Sender: TObject);
begin
  Panel1.Visible:=False;
  Panel2.Visible:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var x: TMethod;
      y: TMeine;
begin
  x.Data:=Form1;
  x.Code:=TForm1.MethodAddress('Sieben');
  y:=TMeine(x);

  y(Sender);
end;

Gruß Frank

[shmia]

Delphi-Quellcode:

x.Data := TForm1;  // Falsch
x.Data := Form1;   // Schlecht: wer sagt denn dass die aktuelle Instanz in der Variablen "Form1" gespeichert ist

x.Data := self;    // Richtig !!

[_frank_]

wenn man das so betrachtet müsste es auch

Delphi-Quellcode:

x.Code:=self.MethodAddress('Sieben');

heisen...wer sagt denn, dass die aktuelle Formular-Klasse TForm1 heist :D

Gruß Frank

[shmia]

Zitat:

Zitat von _frank_

wenn man das so betrachtet müsste es auch

Delphi-Quellcode:

x.Code:=self.MethodAddress('Sieben');

heisen...wer sagt denn, dass die aktuelle Formular-Klasse TForm1 heist :D

Nein, das kann man so nicht sehen.
Also in .Data wird der versteckte self-Pointer (32 Bit) transportiert. Also ist es wichtig, dass dieser auf das richtige Objekt zeigt.

In .Code wird die (32 Bit) Adresse des Programmcodes übermittelt.
MethodAddress() ist eine Klassenmethode; d.h. es gibt 2 mögliche Aufrufarten:
A.) objekt.KlassenMethode() oder B.) Klasse.KlassenMethode().

Die Variante B.) ist schneller und auch sicherer.
Variante A.) ist indirekt und ergibt eine Zugriffsverletzung, falls "objekt" = nil sein sollte.
Deshalb ist es empfehlenswert, Klassenmethoden über die Variante B.) aufzurufen.
Als Programmierer zeigt man dem Leser, dass eine Klassenmethode aufgerufen wird und verbessert so die Klarheit des Sourcecode.