TSemaphore

[youuu]

Ach stimmt, oh man ich Pfeiffe

Edit: Hm irgendwie klappt das nicht.

Ich bekomm dann immer als Fehler: E2008 Inkompatible Typen Hier:

Delphi-Quellcode:

Constructor TSampleJob.Create(kat: integer; sl2: THashedStringList; slOld2: THashedStringList);
Begin
  Inherited;            // <<<----- E2008 Inkompatible Typen
  Synchronized := False;
  o := kat;
  sl.AddStrings(sl2);
  slOld.AddStrings(slOld2);
End;

HauptThread sieht dann so aus

Delphi-Quellcode:

  TWorkerThreadJob = Class
  private
    fSynchronized: Boolean;
    fUsesCOMObjects: Boolean;
    fo: integer;
    fsl, fslOld: THashedStringList;
  protected
    Procedure Execute(aThread: TWorkerThread); virtual; abstract;
    Property UsesCOMObjects: Boolean read fUsesCOMObjects write fUsesCOMObjects default False;
    Property Synchronized: Boolean read fSynchronized write fSynchronized default True;
    Property o: Integer read fo write fo;
    Property sl: THashedStringList read fsl write fsl;
    Property slOld: THashedStringList read fslOld write fslOld;
  End;

Damit wollte ich es testen, aber wie gesagt bekam ich diese Fehlermeldung.