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

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

← →
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]

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

---

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

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



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