Hallo,

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

zusammenfalten · markieren

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 von Compiler:

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

Was habe ich für einen Fehler gemacht?

danke

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.

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

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:
type TThreadFunc = function(Parameter: Pointer): Integer;

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