Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c