Автоматический формат даты в компоненте Edit

Автоматический формат даты в компоненте Edit

procedure TForm1.Edit1Exit(Sender: TObject);
begin
 if Edit1.Text <> '' then
 begin
  try
  StrToDate(Edit1.Text);
  except
  Edit1.SetFocus;
  MessageBeep(0);
  raise Exception.Create('"' + Edit1.Text
  + '" - некорректная дата');
  end {try};
  Edit1.Text := DateToStr(StrToDate(Edit1.Text));
 end {if};
end;

http://delphiworld.narod.ru/ DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...