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

Почему ошибка?   Найти похожие ветки 

← →
Mlin   (2002-12-08 21:01) [0]

procedure TForm1.Button1Click(Sender: TObject);
var
OnlyString :String;
begin
case OnlyString of
"1": ShowMessage("1");
"2": ShowMessage("2");
"3": ShowMessage("3");
end;
end;

---

← →
Song ©   (2002-12-08 21:02) [1]

Ordinal type required

---

← →
Danilcha ©   (2002-12-08 21:04) [2]

Потому, что case только для перечисляимых типов. Можно, если очень надо, не OnlyString, а OnlyString[1]. Желательно перед этим проверить, не пуста ли она.

---

← →
Mlin   (2002-12-08 21:05) [3]

Понял

---

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

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



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