Funktion mit Paramtern in einem Thread

[Neutral General]

Jo so würd ichs bei Records machen. Aber bei kleineren Datentypen (<= 32 Bit) ist ein Cast auf einen Pointer einfacher.

Delphi-Quellcode:

Function Test (a: Integer): Integer; 
begin 
  ShowMessage(IntToStr(a)); 
  Result := a; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
var ID: Cardinal; 
    Handle: THandle; 
    I: Integer; 
begin 
  i := 20;
  Handle := BeginThread(nil, 0, @Test, Pointer(I), 0, ID); 
end;