Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Упаковать BD Accuracer
   Категория: Базы данных
  Компонент MainMenu
   Категория: Компоненты
  Перекодировка в DBASE
   Категория: Базы данных
  Подсветить часть текста в DBGrid
   Категория: Компоненты
  Форма всегда наверху
   Категория: Компоненты
  Тpансляция ошибок в BDE
   Категория: Базы данных
  Создать индекс для таблицы ABS (Absolute Database)
   Категория: Базы данных

Delphi - База Знаний: Преобразовать любой тип в строку

  << Вернуться к Содержанию  

function ToString(Value: Variant): String;
begin
  case TVarData(Value).VType of
    varSmallInt,
    varInteger   : Result := IntToStr(Value);
    varSingle,
    varDouble,
    varCurrency  : Result := FloatToStr(Value);
    varDate      : Result := FormatDateTime('dd.mm.yyyy', Value);
    varBoolean   : if Value then Result := 'T' else Result := 'F';
    varString    : Result := Value;
    else            Result := '';
  end;
end;
  << Вернуться к Содержанию