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

выбор   Найти похожие ветки 

← →
wera ©   (2003-06-02 11:31) [0]

procedure TForm1.Button1Click(Sender: TObject);
begin
case a= edit1.text of
"16": Application.MessageBox("1258, 9562, 0123, 7841",16");
"8" : Application.MessageBox("045, 2378, 6541, 8745",8");
"32": Application.MessageBox("9878, 1125, 3261, 2871", 32");
"46": Application.MessageBox("1144, 9115,0641, 0036", 46");
else
Application.MessageBox("...");;
end;
Не работает

---

← →
Palladin ©   (2003-06-02 11:33) [1]

F1 посмотри на case, ведь твоя конструкция более чем не логична

---

← →
Anatoly Podgoretsky ©   (2003-06-02 11:37) [2]

Заменить на if ... else if ... else

---

← →
Sandman25 ©   (2003-06-02 11:37) [3]

В case нельзя использовать строки. Только ordinal types.

---

← →
Palladin ©   (2003-06-02 11:39) [4]

в частном случае выглядеь может примерно так

case StrToint(edit1.text) of
16: Application.MessageBox("1258, 9562, 0123, 7841",16");
8 : Application.MessageBox("045, 2378, 6541, 8745",8");
32: Application.MessageBox("9878, 1125, 3261, 2871", 32");
46: Application.MessageBox("1144, 9115,0641, 0036", 46")
else
Application.MessageBox("...");;
end;

---

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

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



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