Как обработать тип Variant ?

[fucil]

что из этого следует ?
как с этим бороться ?
я в тупике не знаю что и сказать !

[Человек_Борща]

хм вот как нужно выводить массивы вариантов:

function VariantType(varVar: Variant): Integer;
begin
  Result:=(VarType(varVar));
end;

procedure PrintArrayOfVar(aVar:Variant);
var
  i,i2:Integer;
begin
  if VariantType(aVar) <> VarArray then
  begin
    i2:=VarArrayDimCount(aVar);
    for i:=VarArrayLowBound(aVar,i2) to VarArrayHighBound(aVar,i2) do
    begin
      case VariantType(aVar[i]) of
        varString: Form1.Memo1.Lines.add(Format('aVar[%d] String: %s',[i,aVar[i]]));
        varInteger: Form1.Memo1.Lines.add(Format('aVar[%d] Integer: %s',[i,IntToStr(aVar[i])]));
      end;
    end;
  end;
end;

Но т.к. aVar у нас является Variant array of Variant(Двухмерный массив???) я хз как его расплостать.

[fucil]

Я же говорил тут какой то пи... хрен знает как вытащить вложение массива
Товарищи эксперты прошу вашей помощи !

[ReportCube]

Вызывайте процедуру рекурсивно: если тип является массивом - отправляйте его в процедуру PrintArrayOfVar()

[GunSmoker]

1000 рублей

(это шутка, если не понятно)

[GunSmoker]

Там трёхмерный массив:

id, 1,
name, Терминалы,
priority, 50,
slug, Terminals,

id, 286,
name, Турция,
priority, 50,

id, 4845,
name, Украина,
priority, 2,
slug, Ukraine,

id, 4846,
name, Россия,
priority, 1,
slug, Russia,

id, 5687,
name, Узбекистан,
priority, 50,

id, 45412,
name, Казахстан,
priority, 5,
slug, Kazakhstan,

id, 45414,
name, Беларусь,
priority, 4,
slug, Belarus,

id, 45872,
name, Канада,
priority, 50,
slug, Canada,

id, 45878,
name, Таджикистан,
priority, 6,
slug, Tajikistan,

...

Выводится тем кодом, что я выше давал.

[fucil]

о щас буду пробывать выложи полный код плиз он у тя же есть уже !
а то у меня почему то ни ошибки ни вывода ((
Ну ты блин а еба... я тут щаслив

[GunSmoker]

Я использовал этот код. Только в VarArrayLowBound/VarArrayHighBound отсчёт от 1, а не от 0.

[fucil]

чет у меня снова каке то ошибка с индексом ёма ё !

[GunSmoker]

Голову включи. VarArrayLowBound/VarArrayHighBound отсчёт от 1, а не от 0.