Thema: Delphi TThread Create Override

Einzelnen Beitrag anzeigen

Towmuz

Registriert seit: 21. Sep 2016
Ort: Minden
127 Beiträge
 
Delphi 10.1 Berlin Professional
 
#1

TThread Create Override

  Alt 27. Feb 2017, 14:30
Delphi-Version: 5
Mahlzeit,

ich würde gern Parameter an einen Thread übergeben und komme nicht wirklich weiter, könnte mir jemand ein Beispiel geben?
Die Übergabe wird nur beim Erstellen benötigt, nicht im laufenden Thread. Habe nun verschiedene Dinge ausprobiert, die alle nicht so wirklich laufen wollten, der letzte Versuch sieht so aus:
Delphi-Quellcode:
type
  TIrgendwasThread = class(TThread)
    constructor Create(Suspended: Boolean; var1: string; var2: string; var3: string); overload;
    procedure Execute;
  end;
Klasse:
Delphi-Quellcode:
constructor TIrgendwasThread.Create(Suspended: Boolean; var1, var2, var3: string);
begin
  inherited Create(Suspended);
end;

procedure TIrgendwasThread.Execute;
begin
  while not Terminated do
  begin
    // mache Krams
  end;
end;
Aufruf:
Delphi-Quellcode:
IrgendwasThread := TIrgendwasThread.Create(false, data.var1, data.var2, data.var3);
IrgendwasThread.FreeOnTerminate := True;

Resultat ist ein Abstrakter Fehler
Thomas
  Mit Zitat antworten Zitat