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

Previous  Top  Next

    
 

 

Code:

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

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

 

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

 

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

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

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

Дата:        6 января 2003 г.

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

 

type

TTypeStr = (tsString, tsDate, tsNumber);

 

function CheckString(const Value: string): TTypeStr;

begin

if StrToDateTimeDef(Value, 0) = 0 then

   if StrToIntDef(Value, 0) = 0 then

     Result := tsString

   else

     Result := tsNumber

else

   Result := tsDate

end;

 

©Drkb::00914