VPF::Есть ли возможность перевести Variant в String

mspuz

Дата 5.2.2007, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет

Передаю в функцию массив параметров типа Variant. Значения могут быть любыми (ф-ция для работы с БД). Есть ли возможность преобразовать это все в строку.
Сейчас я сначало проверяю не NULL ли это, потом форматы дата, целое число, дробное число и лишь потом как строка.

Sunvas

Дата 5.2.2007, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

А чем так не подходит?

Код


var m:variant;
s:string;
begin
m:='121a';
s:=m;

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

MetalFan

Дата 5.2.2007, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Sunvas, у него там массив...

mspuz, можно както так:

Код


var
  lVar1: Variant;
  lStr: string;
  i: Integer;
begin
  lVar1 := VarArrayCreate([0,2],varVariant);
  lVar1[0] := 120;
  lVar1[1] := 'string';
  lVar1[2] := 12.12;
  lStr := '';
  for i := VarArrayLowBound( lVar1, 1) to VarArrayHighBound(lVar1, 1) do
    lStr := lStr +#13 + VarToStr( lVar1[i] );
  ShowMessage( lStr );

--------------------

There are always someone smarter than you...

mspuz

Дата 5.2.2007, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет

MetalFan, Просто нет слов smile

Всё так просто!!!! Огромное спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »