[Молоток]

Но анализ кода говорит нам, что можно обойтись одной формулой, без case:

Код:

wNach:= StrToInt(w1) - 1;
wKon:= 7 - StrToInt(w1);

Если w1 может принимать другие значения, то это можно проверить перед формулами.[/quote]

Спасибо за быстрый ответ .