Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: 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 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
14-1104324056
Vulko
2004-12-29 15:40
2005.01.23
Задача по матану. Спасите! Док-ть сходимость последовательности


14-1104569831
Sergey_Masloff
2005-01-01 11:57
2005.01.23
Текс-текс смотрим кто вчера злоупотребил ;-)


1-1105539287
Igor_thief
2005-01-12 17:14
2005.01.23
Добавление события


1-1104089765
X3M
2004-12-26 22:36
2005.01.23
Левая/правая кнопа мыши


1-1104938585
nekant
2005-01-05 18:23
2005.01.23
сдвиг сообщ. Error