Thread startet execute nicht

[mjustin]

Zitat von Murkas:

Code:

constructor TCheckThread.Create(startcountarray:tcountarray; endstring:string; reforgestringarray:treforgestringarray);
var i:integer;
begin
  inherited Create(true);
  ...
  Self.Resume;
end;

Einfacher und kürzer ist es den Thread von Anfang an nicht Suspended zu starten:

Code:

constructor TCheckThread.Create(startcountarray:tcountarray; endstring:string; reforgestringarray:treforgestringarray);
var i:integer;
begin
  inherited Create(False);
  ...
end;

p.s. möglicherweise ist damit das Problem auch bereits behoben...

(ab Delphi 6 wird der Thread erst gestartet nachdem der Konstruktor ausgeführt wurde)