Kann Thread nicht mehr starten

[TheMiller]

Hallo,

ich versuche, einen Thread mit BeginThread zu starten. Dazu benutze ich folgenden Code:

Delphi-Quellcode:

function TForm1.Calc: Integer;
begin
  result:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadID: DWORD;
  ThreadHandle: THandle;
begin
  ThreadHandle:=BeginThread(nil, 0, @Calc, nil, 0, ThreadID);
end;

Doch immer, wenn ich das Projekt starten will, meckert der Compiler und setzt mir den Cursor hinter "@Calc". Der Compiler sagt:

Zitat:

Zitat von Compiler

[Fehler] Unit1.pas(36): Variable erforderlich.

Was habe ich für einen Fehler gemacht?

danke

[Luckie]

Deine Thread-Prozedur darf keine Methode sein. Da Methoden immer noch den unsichtbaren Self-Parameter haben, stimmt die Parameterliste nicht mehr mit dem Prototypen über ein.

[TheMiller]

Aber Funktionen und Prozeduren sind doch Methoden. Ich muss doch irgendwas aufrufen, was in dem Thread geschehen soll. Oder habe ich dich da falsch verstanden

[Luckie]

Nein sind sie nicht. Sie werden erst dann zu Methoden, wenn sie zu einer Klasse gehören. Nimm die Funktion aus der Klasse raus.

Der richtige Prototyp lautet übrigens so:

Delphi-Quellcode:

type TThreadFunc = function(Parameter: Pointer): Integer;

[TheMiller]

Tatsache funktionert. Ich danke dir. Ich bin immer davon ausgegangen, dass alle Funktionen und Prozeduren Methoden sind... Aber man lernt ja eben nie aus...

Danke