VPF::array of const (как получить нужный тип данных)

Avers

Дата 1.12.2008, 10:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

Есть некая процедура

Код


  procedure MyProc(AText: string; AInfo: array of const)
  begin
    ...
  end;

AInfo - это чередующийся набор целых чисел и строк. Точно известно, что строки - это нечетные элементы массива. Вопрос: как присвоить эту строку некоторой строковой переменной (пусть будет Str).

Пробовал сделать так:

Код


  Str := AInfo[i].VString^;

Но так теряется первый символ строки (как указатель).
Help!

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

Born to be wild

aleksh

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

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

Загрузка ...

Опытный

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

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

за верность кода не ручаюсь, но попробуй

Код


str:=string(ainfo)

Christoph

Дата 1.12.2008, 13:08 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Может быть использовать массив из указателей?

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

Rrader

Дата 1.12.2008, 14:39 (ссылка)

(голосов:2)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Цитата(Avers @ 1.12.2008, 16:25

)

VString

Это для ShortString.

Код


procedure MyProc(AText: String; AInfo: array of const);
var
  I: Integer;
begin
  for I := 0 to High(AInfo) do
  with AInfo[I] do
    case VType of
      vtInteger: AText := AText + IntToStr(VInteger);
      vtString: AText := AText + VString^;
      vtChar: AText := AText + VChar;
      vtAnsiString: AText := AText + AnsiString(VAnsiString);
      vtWideString: AText := AText + WideString(VWideString);
    end;
  ShowMessage(AText);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 { Демонстрация - типы указаны для наглядности } 
  MyProc('', [Integer(0), Char('1'), Integer(2), AnsiString('34'),
    ShortString(' vtString'), WideString(' vtWideString')]);
end;

Это сообщение отредактировал(а) Rrader - 2.12.2008, 17:45

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

Let's do this quickly!
Rest in peace, Vit!

Avers

Дата 2.12.2008, 10:46 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

aleksh, увы не работает (ругается на код) :( а хотелось бы.
Окзалось почти так))
Rrader, String(VAnsiString) - работает))
Всем спасибо)

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

Born to be wild

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