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;