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

[fucil]

а как ты тут сразу начал с 1 ведь там автоматом присвоение

procedure PrintArray(const AArray: Variant);
  var
    Index: Integer;
    Value: Variant;
  begin
  
    for Index := VarArrayLowBound(AArray, 0) to VarArrayHighBound(AArray, 0) do
    begin
      Value := AArray[Index];
      if VarIsArray(Value) then
        PrintArray(Value)
      else
        form1.Memo1.Lines.Add(Value);
    end;
  end;

[fucil]

Сообщение от GunSmoker

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

это я понял но как присабачить сразу с 1

[GunSmoker]

*facepalm*

0 в коде замени на 1. Ты издеваешься, что-ли?

[fucil]

Я балда )) Сори за тупость это я недогнал изначально !
Все гуд пошло спс Ты супер ЫЫЫЫЫЫЫЫЫЫ !!!!!!!!!!!

я кароче хотел ваще другое замутить )) пиз... сори !!!
ВСЕ МОЖНО ТЕМУ ЗАКРЫВАТЬ !