компилятор ругается на строку if Operation = Start then begin словами [dcc32 Error] KMSUpd.pas(289): E2008 Incompatible types

[Replicant]

Есть перечисляемый тип и процедура потока, компилятор ругается на строку if Operation = Start then begin словами [dcc32 Error] KMSUpd.pas(289): E2008 Incompatible types

type TOperation = (Del, Run, Start, None);

procedure TR.Execute;
begin
  if Operation = Del then fmMain.trDel;
  if Operation = Run then fmMain.trRun;
  if Operation = Start then begin
    fmMain.trDel;
    fmMain.trRun;
  end;
end;

В упор не вижу что тут не так, помогите дураку, спасибо.

[northener]

А какого типа Operation?

[Replicant]

Сообщение от northener

А какого типа Operation?

var Operation: TOperation;

Поменял слово Start на другое -работает. Снова написал Start - ругается. Причем по тексту кода везде его этот Start устраивает, не нравится только эта строка?
Я то уже переделал, но хочется понять чего ему не нравится, разве слово Start зарезервировано? В чем проблема?

[p51x]

Скорее всего в классе кроме метода Execute, есть и Start

[evg_m]

компилятор ругается на строку

а так ?

if Operation =Toperation.Start then

[Аватар]

Скорее всего в классе кроме метода Execute, есть и Start

Ага. В современных делфях есть метод Start у TThread. Отсюда и ошибка

[Replicant]

Вы правы, товарищи. Такой метод есть:

procedure TThread.Start;
begin
  InternalStart(False);
end;

Юзаю 10.1 Berlin
Спасибо всем за ответы.

[northener]

Сообщение от evg_m

а так ?

if Operation =Toperation.Start then

Тогда уж

if Operation = ИмяМодуля.Start then