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

Строка является датой?   Найти похожие ветки 

← →
AlexXn   (2005-01-10 16:09) [0]

Как определить строка является датой или нет?

try
 StrToDate(Value);
 ShowMessage("Date");
except
 ShowMessage("not Date");
end

Такой вариант неприемлем. Хотелось бы без exceptions.

---

← →
TUser ©   (2005-01-10 16:10) [1]

TryStrToDate

---

← →
olookin ©   (2005-01-10 16:11) [2]

А так:

try
StrToDate(Value);
ShowMessage("Date");
except
end;

?

---

← →
AlexXn   (2005-01-10 16:14) [3]

>TUser
В 5 Delphi такой функции нет...

---

← →
olookin ©   (2005-01-10 16:16) [4]

[3] AlexXn   (10.01.05 16:14)

По моему, TUser пошутил...

---

← →
AlexXn   (2005-01-10 16:17) [5]

В Delphi7(не знаю как в 6) такая функция есть..

---

← →
TUser ©   (2005-01-10 16:35) [6]

> По моему, TUser пошутил...
Не, я серьезно. Даже в справку специально слазил.

PS. Чем не угодили эксепшены? И если уж действительно оооочень хочется без них обойтись - наверное, можно самому проанализировать строку или подключить TRegExpr.

---

← →
olookin ©   (2005-01-10 16:39) [7]

[6] TUser ©   (10.01.05 16:35)

Ну тогда пардоньте...

---

← →
sniknik ©   (2005-01-10 17:12) [8]

StrToDateDef возможно это в 5 есть, и посмотри ее реализацию в дельфевых исходниках...
в 7х это

function StrToDateDef(const S: string; const Default: TDateTime): TDateTime;
begin
 if not TryStrToDate(S, Result) then
   Result := Default;
end;


---

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

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



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