Funktion mit Paramtern in einem Thread

**Xerogon**

Hallo,
ich habe mich in letzter Zeit mit Threads beschäftigt und bekomme diese auch ohne Probleme zum laufen.
Das aber nur wenn meine Funktion keine Parameter erwartet. ich weiß nicht wie ich das lösen soll.

Mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Function Test (a: Integer): Integer;

begin

  ShowMessage(IntToStr(a));

  Result := a;

end;

procedure TForm1.FormCreate(Sender: TObject);

var ID: Cardinal;

    Handle: THandle;

begin

  Handle := BeginThread(nil, 0, @Test(20), nil, 0, ID);  //geht nicht

  Handle := BeginThread(nil, 0, (@Test(20)), nil, 0, ID);  //geht auch nicht

end;

end.

Ich komm einfach nicht drauf

Funktion mit Paramtern in einem Thread

Funktion mit Paramtern in einem Thread

Forumregeln