Почему не стартует нить ??

← →
KyRo (2006-02-17 17:07) [0]

Объявляю клас
TParsM = class(TTHread)
private
Nom:integer;
FileN: array [1..30] of string;
protected
procedure Execute; override;
public
constructor Create(CreateSuspennded: Boolean; const NomHread:
string; const FileNm:string);

Создаю его

constructor TParsM.Create(CreateSuspennded: Boolean;const NomHread: string;
const FileNm:string);
begin
inherited Create(CreateSuspennded) ;
Nom:= StrToInt(NomHread);
FileN[StrToInt(NomHread)]:=FileNm;
end;

И когда вызываю его из своей формы

Hread[1] :=Hread[1].Create(True,fsListBox1.Items.Text,"1");
то поле

inherited Create(CreateSuspennded) ;

Выдает ошибку из за чего это может быть

← →
begin...end © (2006-02-17 17:09) [1]

> KyRo (17.02.06 17:07)

> Hread[1].Create(...)

TParsM.Create(...)

← →
PAVIA © (2006-02-17 17:10) [2]

Hread[1] :=TParsM.Create(True,fsListBox1.Items.Text,"1");

← →
KyRo (2006-02-17 17:19) [3]

Все я понял спасибо.

У меня есть еще один вопрос
procedure TParsM.Execute;
Эта процедура должна стартануть автоматически как событие на создание нити или ее из криэйта надо вызвать ??
Потому что у меня в нее что то управление не переходит.

← →
Игорь Шевченко © (2006-02-17 17:21) [4]

> должна стартануть автоматически

Ты же создаешь с CreateSuspended=true, какой тут автоматический старт. Говори Resume в конструкторе или где-то еще

← →
KyRo (2006-02-17 17:25) [5]

Где небуть поставил вроде работает , а как его записать в конструкторе

← →
Игорь Шевченко © (2006-02-17 17:38) [6]

> а как его записать в конструкторе

Resume

← →
KyRo (2006-02-17 17:53) [7]

То есть
Hread[1] :=Hread[1].Create(Resume,fsListBox1.Items.Text,"1");
и так же само записать при обїявлении ?

true на false замени.

← →
KyRo (2006-02-17 18:12) [9]

Все я разобрался спасибо

Почему не стартует нить ?? Найти похожие ветки