Текущий архив: 2002.11.18;
Скачать: CL | DM;

Вниз

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

← →
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...

---

← →
MsGuns ©   (2002-11-07 17:31) [4]

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

Спасибо :)

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c