Suchen einer Methode

[_frank_]

Zitat von sirius:

x.Data=TForm1 wel es ja procedure TForm1.Sieben heißt.

nicht die klsse in Data sondern die Instanz...also
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

x.Code:=self.MethodAddress('Sieben'); heisen...wer sagt denn, dass die aktuelle Formular-Klasse TForm1 heist

Gruß Frank

[shmia]

Zitat von _frank_:

wenn man das so betrachtet müsste es auch
x.Code:=self.MethodAddress('Sieben'); heisen...wer sagt denn, dass die aktuelle Formular-Klasse TForm1 heist

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.