Текущий архив: 2007.09.09;
Скачать: 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 вся ветка
Текущий архив: 2007.09.09;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.021 c
