Datenstrukturproblem: Thread zur Runtime auswählen

[Sir Rufo]

Am einfachsten geht das mit einem BasisThread:

Delphi-Quellcode:

TMyBaseThread = class( TThread )
public
  procedure TuWas1; virtual; abstract;
  procedure TuWas2; virtual; abstract;
end;

TThread1 = class( TMyBaseThread )
protected
  procedure Execute; override;
public
  procedure TuWas1; override;
  procedure TuWas2; override;
end;

TThread2 = class( TMyBaseThread )
protected
  procedure Execute;
public
  procedure TuWas1; override;
  procedure TuWas2; override;
end;

und nun

Delphi-Quellcode:

var
MyThread: TMyBaseThread;
first: boolean;
...
if first then MyThread:=TThread1.Create(Self)
         else MyThread:=TThread2.Create(Self);
...
MyThread. ...
...