Приветствую Мастеров! Как сделать проверку, что в строке ДАТА?

← →
IronHawk (2004-01-16 15:13) [0]

Как сделать проверку, что, скажем в TEdit веденные данные есть првильная дата, вида (дд.мм.гггг)?
...заранее благодарен!

← →
Игорь Шевченко (2004-01-16 15:17) [1]

try
StrToDate(Edit1.Text);
except
дата неправильная :(
end;

← →
Юрий Зотов (2004-01-16 15:18) [2]

Один из вариантов:

var
IsValidDate: boolean;
...
try
StrToDate(Edit1.Text);
IsValidDate := True
except
IsValidDate := False
end;

Если строка не является датой, то при запуске программы под отладчиком Delphi ошибка возникать будет, но при автономном запуске она не возникнет. И в любом случае переменная IsValidDate получит правильное значение.

← →
NAlexey (2004-01-16 15:21) [3]

А чтобы и ошибка не возникала, надо наверное TryStrToDate:)

← →
Романов Р.В. (2004-01-16 15:23) [4]

Если конечно DateSeparator и ShortDateFormat совпадут

← →
Юрий Зотов (2004-01-16 15:24) [5]

> NAlexey © (16.01.04 15:21) [3]

В сабже указано D5. Там есть TryStrToDate?

← →
NAlexey (2004-01-16 15:28) [6]

← →
IronHawk (2004-01-16 15:41) [7]

Супер, спасибо, учел все комментарии, и всё сделал, большое всем спасибо!!!

Приветствую Мастеров! Как сделать проверку, что в строке ДАТА? Найти похожие ветки