TryStrToDate нужен пример использования функции. [D2005, XP]
Alex7 © (2007-08-17 07:22:00)
Здравствуйте, уважаемые мастера.
Воспользовался "F1" и посмотрел часто задаваемые вопросы, но
примера не нашел.
Задача такая: нужно определить является ли значение в
MaskEdit
(!99/99/00;1;_) датой. Ожидаемое значение - по форме
"dd.mm.yy"
Спасибо.
Elen (2007-08-17 08:17:00) [1]
Плохо хелпы рулишь :
procedure TForm1.MaskEdit1Change(Sender: TObject);
var dat:TDateTime;
begin
DateSeparator:='.';
if TryStrToDate(MaskEdit1.Text,dat) then close
else caption:='Its a sin'
end;
Наверх 
ЧАТ |
Орешник |
|
