выбор

← →
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.

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

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;

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