Вниз
Скачать: CL | DM;

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

← →
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");
и так же само записать при обїявлении ?


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

true на false замени.


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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.028 c
2-1141052609
anonymous-
2006-02-27 18:03
2006.03.19
Минимальный размер splitter


3-1138123613
ANB
2006-01-24 20:26
2006.03.19
Как обойти ошибку в exp/imp Оракла 8i ?


3-1138267273
kyn66
2006-01-26 12:21
2006.03.19
Как спрятать скроллинг по гриду ?


5-1127717771
DimaBr
2005-09-26 10:56
2006.03.19
Защита компонента


8-1127408887
SergProger
2005-09-22 21:08
2006.03.19
Еквалайзер в проигрывателе




   Наверх