Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Внизвыбор Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c