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

Ошибка времени компиляции   Найти похожие ветки 

← →
Вован   (2002-08-29 19:24) [0]

Уважаемые М А С Т А К И !
Помогите, пожалуйста, чайнику разобраться вот в какой заморочке:Пишу код:

Interface
-//-//-//-
public
constructor Create;
-//-//-//-
Implementation
-//-//-//-
Constructor TGenThr.Create;
Inherited Create(True);
FreeOnTerminate:=True;
Resume
End;
-//-//-//-

И получаю:
[Error]GenThr.pas[43]:DEclaration Expected but "INHERITED"found.

В чем может быть дело?

---

← →
Skier ©   (2002-08-29 19:36) [1]

>Вован


unit Unit2;

interface

uses
Classes;

type
TGenThr = class(TThread)
private
protected
procedure Execute; override;
public
constructor Create( CreateSuspended: Boolean);
end; //TGenThr

implementation

{ TGenThr }

constructor TGenThr.Create(CreateSuspended: Boolean);
begin
inherited Create(True);
FreeOnTerminate:=True;
Resume;
end;

procedure TGenThr.Execute;
begin
//
end;

end.


Хотя, если честно, я твою логику не понимаю...
Создаёшь поток как Suspended и тут же вызываешь Resume; ???

---

← →
Shaman_Naydak ©   (2002-08-29 20:10) [2]

> Вован
Приведи побольше кода.. странно все это.. что-то ты простое забыл

> Skier
Логика есть, притом железная.. правда, что мешало написать так:
constructor TGenThr.Create(CreateSuspended: Boolean);
begin
FreeOnTerminate:=True;
// еще инициализация
inherited Create(False);
end;

---

← →
Набережных С.   (2002-08-29 20:46) [3]

> Shaman_Naydak © (29.08.02 20:10)
> > Вован
> Приведи побольше кода.. странно все это.. что-то ты простое
> забыл

begin у него нету после Constructor TGenThr.Create; :)))

---

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

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



Память: 0.45 MB
Время: 0.009 c