Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
ВнизОшибка времени компиляции Найти похожие ветки
← →
Вован (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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c