Автоматический формат даты в компоненте Edit
Falk0ner, вс, 06/07/2008 - 15:34.
Автоматический формат даты в компоненте 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;
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
Отправить комментарий