| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Исключения
Part © (2002-11-07 16:50:00)Пожалуйста поделитесь кодом как отлавливать исключения при неправильном вводе? типа OnException ? или ? Спасибо
Part (2002-11-08 09:13:00) [1]Спасибо :)
MsGuns (2002-11-07 17:31:00) [2]>Part (07.11.02 17:04)
Ошибка может быть не в самом едите, а когда переносишь оттуда текст в некоторую типизированную переменную, например, дату. В этом случае сам перенос надо делать в защищенном блоке:
var
d1: TData;
...
procedure TForm1.Batton1Click(Sender: TObject);
begin
try
d1 := StrToDate(Form1.Edit1.Text);
except
ShowMessage("Набирай, гад, дату правильно !");
exit;
end;
// Делаешь что надо с корректной датой
....
end;
Alex4444444444 (2002-11-07 17:06:00) [3]A otkuda zh tam exception? Nuzhno OnChange perehvatyvat" i proveryat", chto tam changed...
Part (2002-11-07 17:04:00) [4]Эт понятно , а как применить это к занесению данных в Edit ?
Alex4444444444 (2002-11-07 16:53:00) [5]try
BadStatementThatRaisesAnException;
except
on OneException do OneThing;
on AnotherException do AnotherThing;
end;
| |
