Скачать: CL | DM;

TryStrToDate нужен пример использования функции.   Найти похожие ветки 

← →
Alex7 ©   (2007-08-17 07:22) [0]

Здравствуйте, уважаемые мастера.
Воспользовался "F1" и посмотрел часто задаваемые вопросы, но примера не нашел.
Задача такая: нужно определить является ли значение в MaskEdit
(!99/99/00;1;_) датой. Ожидаемое значение - по форме "dd.mm.yy"
Спасибо.

---

← →
Elen ©   (2007-08-17 08:17) [1]

Плохо хелпы рулишь :

procedure TForm1.MaskEdit1Change(Sender: TObject);
var dat:TDateTime;
begin
DateSeparator:=".";
if TryStrToDate(MaskEdit1.Text,dat) then close
  else caption:="Its a sin"
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.013 c