Цитата:
|
Сообщение от Молоток
необходимо перевести в case
|
Это довольно частая ошибка новичков - предлагать странные решения. "Искусство ради искусства"? Вы хотите наверняка упростить код, а для этого надо проанализировать алгоритм. Во-первых, как вы и хотите, case поможет:
Код:
case StrToInt(w1) of
1:
begin
wNach:=0;
wKon:=6;
end;
2:
...
end;
Но анализ кода говорит нам, что можно обойтись одной формулой, без case:
Код:
wNach:= StrToInt(w1) - 1;
wKon:= 7 - StrToInt(w1);
Если w1 может принимать другие значения, то это можно проверить перед формулами.