Delphi Исключительные ситуации

[kop]

Здравствуйте!
Создать исключительную ситуацию "Неверные символы в поле почтового адреса"
Вот например для даты рождения :

begin
  try
    Z:=StrToDate(edt1.Text);
   
  except
    on EConvertError do MessageDlg('Неверное значение в поле ввода даты.',mtError,[mbOk],0);
  end;
end;

а для почтового адреса какую функцию применять?

[MyLastHit]

Почтовый адрес в смысле адрес электронной почты? Я ни разу в Делфи не сталкивался с регулярными выражениями, но в данном случае или рег. выражения или свой мини-парсер-валидатор строки.

[veniside]

for i := 1 to length(email) do
  if not (email[i] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '@', '.']) then
    raise Exception.Create('Неверные символы в поле почтового адреса');

> в данном случае или рег. выражения или свой мини-парсер-валидатор строки

так задача не проверить валидность мыла, а только символов, что несколько проще )

[p51x]

почти кросспост http://programmersforum.ru/showthread.php?t=176004

[Serge_Bliznykov]

да не почти, а кросспост!

ЗАКРЫВАЮ ТУ ТЕМУ!

Модератор.