Procedure als Parameter übergeben

[SleepyMaster]

Delphi-Quellcode:

function XShow(p:pointer):integer;
begin
ShowMessage('Hallo');
end;

procedure StartThread(Thread:procedure); //<--- Das procedure da mag er ned!
//Hab aber leider keinen Plan was ich sonst da reinschreiben muss!
var
  ThreadID: DWORD;
  ThreadHandle: THandle;
begin
  ThreadHandle:=BeginThread(nil, 0, TFNThreadStartRoutine(@Thread),
    nil, 0, ThreadID);
  if ThreadHandle<>0 then CloseHandle(ThreadHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StartThread(XShow);
end;

Wie muss es richtig heißen???
Vielen Dank schon mal

[MrKnogge]

also wenn, dann müsstest du auch die parameter der Übergabe-procedure angeben, mir ist aber nicht bekannt, dass man eine procedure als parameter einer anderen Procedure übergeben kann.

Ich weiss auch ehrlich gesagt nicht, was das bringen soll :gruebel:

[Edit]Aber vielleicht kann man das Problem auch anders lösen[/Edit]

[mirage228]

Delphi-Quellcode:

type
  TMyProc = procedure;
end;

{ ... }

procedure Wuppdi(Proc: TMyProc);
begin
 // ...
end;

mfG
mirage228

[MrKnogge]

ui :shock:
geht das ? Wow, aber wenn dann nur mit Parameterangabe !

[mirage228]

Joa, das geht^^

Auf diese Weise kann man z.B. ein sog. "Callback" realisieren.

Die Events der VCL (TNotifyEvent = procedure(Sender: TObject);) benutzen auch procedures als Paramater.

mfG
mirage2328

[Jens Schumann]

Hallo,
Du kannst eine Methode (bzw einen Methodenzeiger) oder eine reguläre Prozedure übergeben.
Hier ist das Beispiel für den Methodenzeiger

Delphi-Quellcode:

unit Unit1;

interface

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

type

  TMyProc = function (p:pointer):integer of object;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure Test(AProc : TMyProc);
    function  AFunction(p:pointer):integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.AFunction(p: pointer): integer;
begin
  Result:=5;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test(AFunction);
end;

procedure TForm1.Test(AProc: TMyProc);
var
  a : Integer;
begin
  a:=AProc(Nil);
  ShowMessage(IntToStr(a));
end;

end.

Und hier das Beispiel für die reguläre Procedure

Delphi-Quellcode:

unit Unit1;

interface

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

type

  TMyProc = function (p:pointer):integer ;

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

function AFunction(p: pointer): integer;
begin
  Result:=5;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test(AFunction);
end;

procedure TForm1.Test(AProc: TMyProc);
var
  a : Integer;
begin
  a:=AProc(Nil);
  ShowMessage(IntToStr(a));
end;

end.

[MrKnogge]

Zitat:

Zitat von mirage228

Joa, das geht^^

Auf diese Weise kann man z.B. ein sog. "Callback" realisieren.

Die Events der VCL (TNotifyEvent = procedure(Sender: TObject);) benutzen auch procedures als Paramater.

mfG
mirage2328

Das die Events (die ja ebenfallsso deklariert werden müssen)
auch proceduren sind, wusst ich aber ich dachte das sie dann
nur ausgeführt werden können, das man dann noch allerlei
anderes Zeugs machen kann, weiss ich erst seit grad eben :mrgreen:

[SleepyMaster]

Vielen Dank!
Es geht!

[Micha88]

Zitat:

Delphi-Quellcode:

ThreadHandle:=BeginThread(nil, 0, TFNThreadStartRoutine(@[B][I]test[/I][/B]),
    nil, 0, ThreadID);
  if ThreadHandle<>0 then CloseHandle(ThreadHandle);

Ist es auch möglich, eine vollständig deklarierte Procedur als Parameter zu übergeben?

also nicht diese

Delphi-Quellcode:

procedure test;

sondern diese

Delphi-Quellcode:

procedure TForm1.test;

[s.h.a.r.k]

Müsste dann halte eine

Delphi-Quellcode:

procedure of object;

sein. Wobei ich dir an der Stelle dann eher raten würde, auf die TThread-Klasse zu setzen und die Referenz auf die Methode via Property zu setzen.