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.