Цитата Сообщение от tagor4444 Посмотреть сообщение
case select of
0: th := t#1s;
1: th := t#1m:
2: th := t#1h;
3: th := t#1d;
end_case;
что будет если select >3 ?