case () of для энумированных величин

← →
Bogdan1024 © (2007-05-27 22:32) [0]

Есть суперкод в делфи7:
[i]
type TCallReason = (crAdd, crEdit, crFind);
var CallReason: TCallReason;
procedure TForm2.Button1Click(Sender: TObject);
var b: byte;
msg: String;
i, c: Integer;
begin
case (CallReason) of
crAdd: begin
break;
end;
crEdit: begin
break;
end;
crFind:begin
break;
end;
end;
end;
[/i]
При попытке компиляции выдаёт эрор:
[i][Fatal Error] Unit2.pas(173): Internal error: T2335[/i]
Что не так тут?

← →
Anatoly Podgoretsky © (2007-05-27 22:37) [1]

> Bogdan1024 (27.05.2007 22:32:00) [0]

Бессмысленная процедура, которая ниченр не делает

← →
begin...end © (2007-05-27 22:40) [2]

Вызов процедуры Break может находиться только в теле цикла, которого я в этом "суперкоде" не наблюдаю.

← →
Германн © (2007-05-28 01:48) [3]

> Anatoly Podgoretsky © (27.05.07 22:37) [1]
>
> > Bogdan1024 (27.05.2007 22:32:00) [0]
>
> Бессмысленная процедура, которая ниченр не делает
>

Зато какой "новояз" - "Энумированная Величина"!
P.S. После нажатия клавиши "е" в слове ничего, надо было сместиться вправо на два дискрета, а не на один. :-)

← →
Однокамушкин (2007-05-28 08:17) [4]

> begin...end © (27.05.07 22:40) [2]

Наверное, человек раньше на сях программировал, привык, что в тамошнем switch-е надо break-и ставить...

> Вызов процедуры Break может находиться только в теле цикла,
> которого я в этом "суперкоде" не наблюдаю.

Точно, он там лишний.

case () of для энумированных величин Найти похожие ветки