Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как преобразовать значение любого типа в строку

Delphi , Синтаксис , Преобразования

Как преобразовать значение любого типа в строку

Более подробно ищите в хелпе Delphi по словам "Variant" и "TVarData"...


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;

Использование:


ShowMessage(ToString(10.87));
ShowMessage(ToString(10));

или


var
  V1 : Double;
  V2 : Integer;
  V3 : TDateTime;
  V4 : Boolean;

begin
  ...

  ShowMessage(ToString(V1));  // Double â String
  ShowMessage(ToString(V2));  // Integer â String
  ShowMessage(ToString(V3));  // DateTime â String
  ShowMessage(ToString(V4));  // Boolean â String
end;

Так же можно пользоваться другими вариантами, например:


varCurrency  : Result := CurrToStrF(Value ,ffFixed,CurrencyDecimals);

и


varDate: Result := DateToStr(Value);

Статья Как преобразовать значение любого типа в строку раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




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



:: Главная :: Преобразования ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
11.12.2019 08:45:54/0.021004915237427/0