Главная страницаОбратная связьКарта сайта

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

Автор: Separator
WEB-сайт: http://delphibase.endimus.com

{ **** 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Проверка значения строки", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info