| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка времени компиляции [D6, WinME]

Вован ©   (2002-08-29 19:24:00) 

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

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

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

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

---

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

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

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

---

Shaman_Naydak   (2002-08-29 20:10:00) [2]

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

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

---

Skier   (2002-08-29 19:36:00) [3]

>Вован


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; ???

---

Наверх