Автоматический формат даты в компоненте Edit
Материал из DRKB
Автоматический формат даты в компоненте 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;
Edit1.Text := DateToStr(StrToDate(Edit1.Text));
end;
end;
Source: http://delphiworld.narod.ru/
ID: 00984