Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Bogdan1024 © (2007-05-27 22:32:00)
Есть суперкод в делфи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]
Что не так тут?

Bogdan1024 (2007-05-28 10:00:00) [1]

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

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

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

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

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

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

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

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

begin...end (2007-05-27 22:40:00) [4]
Вызов процедуры Break может находиться только в теле цикла, которого я в этом "суперкоде" не наблюдаю.

Anatoly Podgoretsky (2007-05-27 22:37:00) [5]
> Bogdan1024 (27.05.2007 22:32:00) [0]

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

Наверх

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