Скачать: CL | DM;

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-и ставить...

---

← →
Bogdan1024 ©   (2007-05-28 10:00) [5]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c