Автоматический формат даты в компоненте 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