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

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка значения строки
Функция предназначена дла проверки значения строки.
Зависимости: нет
Автор: Separator, <a href="mailto:vilgelm@mail.kz">vilgelm@mail.kz</a>, Алматы
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;

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...