Исключения

← →
Part (2002-11-07 16:50) [0]

Пожалуйста поделитесь кодом как отлавливать исключения при неправильном вводе? типа OnException ? или ? Спасибо

← →
Alex4444444444 (2002-11-07 16:53) [1]

try
BadStatementThatRaisesAnException;
except
on OneException do OneThing;
on AnotherException do AnotherThing;
end;

← →
Part (2002-11-07 17:04) [2]

Эт понятно , а как применить это к занесению данных в Edit ?

← →
Alex4444444444 (2002-11-07 17:06) [3]

A otkuda zh tam exception? Nuzhno OnChange perehvatyvat" i proveryat", chto tam changed...

>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;

← →
Part (2002-11-08 09:13) [5]

Спасибо :)

Исключения Найти похожие ветки