Code:

{ **** UBPFD *********** by delphibase.endimus  ****

>> Проверка значения строки

 

Функция предназначена дла проверки значения строки.

 

Зависимости: нет

Автор: Separator, vilgelm @ mail.kz, Алматы

Copyright: Сергей Вильгельм

 

***************************************************** }

 

type

TTypeStr = (tsString, tsDate, tsNumber);

 

function CheckString(const Value: string): TTypeStr;

begin

if StrToDateTimeDef(Value, 0) = 0then

if StrToIntDef(Value, 0) = 0then

Result := tsString

else

Result := tsNumber

else

Result := tsDate

end;

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить