|
Платные хостинги
Раскрутка сайта
Книги по программированию
Переменная ограниченного типа
- Что-то я совсем на детских вещах стал спотыкаться..... Объясните пожалуйста, почему это не работает:Код procedure TfForm1.edit1KeyPress(Sender: TObject; var Key: Char);Var Prov: '0'..'9';begin try A := Key; except key := #0; end;end;highlightSyntax('delphiYjMwZj','delphi');т.е. при присвоении переменной ограниченного типа, значения, не входящего в разрешенный диапазон, не генериться ошибка?
- Что такое A? Это наверное Prov...А так?Код type TProv = '0' .. '9';procedure TfForm1.edit1KeyPress(Sender: TObject; var Key: Char);Var A: TProvbegin try A := Key; except key := #0;end;end;highlightSyntax('delphimMyNmI','delphi');
- а зачем тебе это?? Пишешь так:if not (Key in ['0'..'9']) then Key:=#0
- Та ерунда, что я написал выше тоже не работает. Точнее работает, но не сразу. Всё оказалось очень просто, достаточно мне было 1 раз запустить Делфи, я правда уже догадывался в чём дело. Дельфи у меня пускается очень долго...Или:1. {$R+}2. {$RANGECHECKS ON}3. Свойства проекта - runtime ошибки
- Это в целях кодокопания....
- Эта проверка выхода за границы (Project/Options/Compiler/Runtime errors/Range checking) по умолчанию отключена.Было дело и я тоже как-то попался на эту удочку.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
