TThread Create Override

[Towmuz]

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

[jaenicke]

Es fehlt das override bei Execute. Außerdem sollte das unter Protected und der Konstruktor unter public stehen.

[Aviator]

Mach aus dem overload; mal ein override; .

Red Box

[Towmuz]

Danke, der blöde override war´s Kopf -> Tisch

Delphi-Quellcode:

  TIrgendwasThread = class(TThread)
  public
    constructor Create(Suspended: Boolean; var1: string; var2: string; var3: string); overload;
  protected
    procedure Execute; override;
  end;

[haentschman]

Moin...
Im constructor Create(Suspended: Boolean; var1: string; var2: string; var3: string); overload; ...braucht du das overload nicht. Es sein, denn du hast wirklich mehrere Constructoren.
Im Constructor brauchst nur du das inherited Create(Suspended); ... und das ist wichtsch.

[Towmuz]

Es sein, denn du hast wirklich mehrere Constructoren. "Noch" nicht

[haentschman]

Delphi-Quellcode:

procedure TIrgendwasThread.Execute;
begin
  inherited; // wichtsch...
  while not Terminated do
  begin
    // mache Krams
  end;
end;

aber das inherited im Execute habe ich nicht gesehen?

[HolgerX]

Hmm..

weder override, noch overload sondern reintroduce, da es eine andere Version von Create ist!

[Whookie]

Zitat von haentschman:

Delphi-Quellcode:

procedure TIrgendwasThread.Execute;
begin
  inherited; // wichtsch...

Warum? Execute ist doch abstrakt?

[haentschman]

Wo du Recht hast...

Ich hatte mich verguckt. Ich habe meine Threads von einem Basis Thread, welcher von TTread abgeleitet wurde, abgeleitet. Da gehört das inherited dazu...