Wie kann ein Zeiger auf eine Funktion als Paramater übergeben werden?

[DeddyH]

Im Profil steht Delphi 5, da kann man die Hälfte Deiner Ausführungen wieder vergessen (Klassenmethoden, anonyme Methoden, ...)

[himitsu]

Zitat von DeddyH:

Im Profil steht Delphi 5,

Ja, hab ich gesehn.

Man kann ihm ja auch mal was Neueres schmackhaft machen?

Und dann gibt es auch sehr Viele, mit anderen Delphi-Versionen (und sogar einige Fremdgänger ohne Delphi ) und vorallem für die, mit neueren Versionen, kann man doch auch mal gleich was mit sagen.
> Falls sie hier mitlesen, entdecken sie vierleicht auch noch was für sich.

[DeddyH]

[OT]

Zitat von himitsu:

Man kann ihm ja auch mal was Neueres schmackhaft machen?

Bist Du auf Provision aus? [/OT]

[himitsu]

Dafür kann man Geld bekommen?

Nja, aktuell bekomm ich wieder mal mit, wie sehr ich einige neuere Features mag.
Die Generics sind zwar teilweise total blöde und nicht benutzbar, aber vorallem die generische TList<> ist was extrem Feines.
Und auch die Klassenvariablen seit D2006/TDE sind schon praktisch, im Kampf gegen die bösen globalen Variablen.


nochmal @Topic:
Also, wie gesagt, für diesen Fall wäre TTest2 die Lösung.

[FriendOfDelphi]

Ich habe Delphi 5 und möchte dies auch erstmal weiter verwenden...
Was gilt denn von dem Gesagten für Delphi 5?
Ich kann euch noch nicht so richtig folgen.

Ich habe eine Unit in dem das Form gemacht wird. Hier soll auch die Funktion deklariert und definiert werden, die dem Objekt beim Erstellen mitgegeben werden soll.
Der Konstruktor und alle weiteren Methoden sind in einer zweiten Unit.

[DeddyH]

Du willst doch eine Routine/Methode als Parameter deklarieren, ist das soweit richtig? Wenn ja, dann musst Du diese nur typisieren, dann geht das ohne Probleme. Der einzige Unterschied zwischen einfacher Routine und Methode ist der, dass eine Methode zu einer Klasse gehört, weshalb man bei der Typisierung dann "of object" dahinter schreiben muss (und dann natürlich auch eine Klasse braucht, die ein entsprechendes Methodenfeld besitzt).

[Bummi]

Ich hab Dir mal ein Beispiel gebastelt, der Übersicht halber alles in einer Unit

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TBeispiel=Procedure(Sender:TObject) of object;

  TMyClass=Class(TButton)
    Private
      FMethode:TBeispiel;
    public
    Constructor Create(AOwner:TComponent;Methode:TBeispiel);
  End;


  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyClass }

constructor TMyClass.Create(AOwner: TComponent; Methode: TBeispiel);
begin
  inherited Create(AOwner);
  FMethode := Methode;

  //TEST
  Tag := 100;
  if Assigned(FMethode) then FMethode(Self);
  //ENDE TEST
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(IntToStr(TComponent(Sender).Tag));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  With TMyClass.Create(Self,Button1Click) do
    begin
      Parent := self;
      Caption := 'Neuer Button';
    end;
end;

end.