TSemaphore

[youuu]

Ach stimmt, oh man ich Pfeiffe

[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.

[idefix2]

Dein Konstruktor hat andere Parameter als der Konstruktor Create der Vorfahrklasse, da kannst Du nicht einfach inherited schreiben. Versuch es mit:

inherited create (Parameter für geerbte Createroutine)

[youuu]

E2034 Zu viele Parameter

kommt dabei raus.

[idefix2]

Was ist der Vorfahr von TSampleJob? Wie schaut die Deklaration der entsprechenden (geerbten) Create Routine aus? Und welche Parameter hast Du jetzt an inherited create übergeben?

[youuu]

Delphi-Quellcode:

Type
// Beispiel, das die Verwendung der synchronize-Methode demonstriert,
// um Ausgaben unter Verwendung der VCL threadsicher vorzunehmen.
  TSampleJob = Class(TWorkerThreadJob)
    fMessage: String;
    Procedure DoShow;
  public
    Constructor Create(kat: integer; sl2: THashedStringList; slOld2: THashedStringList);
    Procedure Execute(aThread: TWorkerThread); override;
  End;

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;

sollte der vorfahre sein.

[rollstuhlfahrer]

Zitat von idefix2:

Dein Konstruktor hat andere Parameter als der Konstruktor Create der Vorfahrklasse, da kannst Du nicht einfach inherited schreiben. Versuch es mit:

inherited create (Parameter für geerbte Createroutine)

Zitat von youuu:

E2034 Zu viele Parameter

kommt dabei raus.

Genial. Dabei bietet Delphi eine Programmierhilfe, die anzeigt, was in die verschiedenen Felder rein muss. Du schreibst also "inherited Create(". Dann sollte sich Delphi melden und die eine Parameterliste liefern. Dies sieht je nach Delphiversion anders aus. D7 bringt ein Band, welches nach einem Hint aussieht und zeigt darin an, bei welchem Parameter man ist und welchen Typ der haben muss.

Jetzt in deinem Versuch hat .Create überhaupt keine Parameter. Du musst also hinter das "inherited" ein "Create();" schreiben und gut ist.

Bernhard

[idefix2]

Wobei in der Klasse TWorkerThreadJob das Create von TObject anscheinend nicht überschrieben wird und folglich gar nichts tut - inheritesd create ist also in dem Fall sogar überflüssig.