| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Строка является датой?
AlexXn © (2005-01-10 16:09:00)Как определить строка является датой или нет?
try
StrToDate(Value);
ShowMessage('Date');
except
ShowMessage('not Date');
end
Такой вариант неприемлем. Хотелось бы без exceptions.
sniknik (2005-01-10 17:12:00) [1]StrToDateDef возможно это в 5 есть, и посмотри ее реализацию в дельфевых исходниках...
в 7х это
function StrToDateDef(const S: string; const Default: TDateTime): TDateTime;
begin
if not TryStrToDate(S, Result) then
Result := Default;
end;
olookin (2005-01-10 16:39:00) [2][6] TUser © (10.01.05 16:35)
Ну тогда пардоньте...
TUser (2005-01-10 16:35:00) [3]
> По моему, TUser пошутил...
Не, я серьезно. Даже в справку специально слазил.
PS. Чем не угодили эксепшены? И если уж действительно оооочень хочется без них обойтись - наверное, можно самому проанализировать строку или подключить TRegExpr.
AlexXn (2005-01-10 16:17:00) [4]В Delphi7(не знаю как в 6) такая функция есть..
olookin (2005-01-10 16:16:00) [5][3] AlexXn (10.01.05 16:14)
По моему, TUser пошутил...
AlexXn (2005-01-10 16:14:00) [6]>TUser
В 5 Delphi такой функции нет...
olookin (2005-01-10 16:11:00) [7]А так:
try
StrToDate(Value);
ShowMessage('Date');
except
end;
?
TUser (2005-01-10 16:10:00) [8]TryStrToDate
| |
