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