Thread Create...

[FabianIBerlin]

ich habe mir einen Thread gebastelt:

Delphi-Quellcode:

Type
  TMyAktuThread = class(TThread)
  private
    LastTime :  byte;
  protected
    sende : integer;
    procedure Execute; override;
    procedure DoIt; virtual; abstract;
  public
    constructor create;
  end;


implementation


procedure TMyAktuThread.Execute;
begin
  while true do
    begin
      if StrToInt(copy(TimeToStr(time),7,2))=LastTime then else
        begin
          if sende = 4 then sende := 1 else inc(sende);
          LastTime := StrToInt(copy(TimeToStr(time),7,2));
          Synchronize(DoIt);
        end;
    end;
end;


constructor TMyAktuThread.create;
begin
  inherited create(true);
  Priority := tpLowest;
  LastTime := StrToInt(copy(TimeToStr(time),7,2));
  sende := 1;
end;

und von dem noch einen nachfahren:

Delphi-Quellcode:

Type
  TSteuerThread = class(TMyAktuThread)
  private
  phase : integer;
  intervall : integer;
  protected
    procedure DoIt; override;
    constructor create;
  end;


implementation

uses uMain;

constructor TSteuerThread.create;
begin
  inherited create;
  phase := 1;
  intervall := 1;
  dec(intervall);
end;

procedure TSteuerThread.DoIT;
begin
  case Phase of
      1 : if intervall < 1 then
            begin
              verb[1].SendStr('set:greH');
              intervall := 2;
              phase := 2;
            end
            else
              dec(Intervall);
      2 : if intervall < 1 then
            begin
              verb[1].SendStr('set:yelH');
              intervall := 6;
              inc(phase);
            end
            else
              dec(intervall);
      3 : if intervall < 1 then
            begin
              verb[1].SendStr('set:redH');
              intervall := 26;
              inc(phase);
            end
            else
              dec(intervall);
      4 : if intervall < 1 then
            begin
              verb[1].SendStr('set:ryeH');
              intervall := 6;
              phase := 1;
            end;
  end;
  dec(intervall);
end;

nun ist mir aufgefallen, dass die create methode vom nachfahren bei

Delphi-Quellcode:

 NonnendammSteuer := TSteuerThread.create;

aufgerufen wird bzw garnicht aufzurufen ist. woran liegt das bzw wie kann ich create ausführen lassen?

[Ultimator]

Delphi-Quellcode:

if StrToInt(copy(TimeToStr(time),7,2))=LastTime then else 
        begin 
          if sende = 4 then sende := 1 else inc(sende); 
          LastTime := StrToInt(copy(TimeToStr(time),7,2)); 
          Synchronize(DoIt); 
        end;

Aua.
Nimm statt dem

Delphi-Quellcode:

if blabla = bla then else 
begin
end

einfach

Delphi-Quellcode:

if blabla <> bla then
begin
 end

[FabianIBerlin]

das hilft mir leider absolut nicht zu meinen wirklichen problem!

[Phistev]

Der Konstruktor sollte unter public und nicht unter protected stehen, damit man ihn auch außerhalb der Kallse sehen kann.

[berens]

Muss Create nicht auch mit override überschrieben werden? Bin mir da nicht ganz sicher, is nur ne vermutung...

[FabianIBerlin]

Zitat:

Zitat von berens

Muss Create nicht auch mit override überschrieben werden? Bin mir da nicht ganz sicher, is nur ne vermutung...

Nein, lag schon daran, dass die nicht auf public waren.
Somit thx 2 Phistev