Вопрос по синтаксису

Комментарии

• -=Serg=-

  July 2005 отредактировано 00:20

  Так же как и в Delphi:
  
  array [0..5, 0..5] of integer;
• Михаил

  July 2005 отредактировано 00:20

  к чему этот ответ?
  
  Вопрос: как обратиться к многомерному массиву, с объявлением то все понятно.
  конструкция массив[индекс1][индекс2] не работает.
  
• -=Serg=-

  July 2005 отредактировано 00:20

  var
    v:array [0..5, 0..5] of variant;
  begin
    v[0,0]:='55';
    v[1,2]:='55';
  end.
  

  Работает.
  Или вам нужны именно динамические двумерныйе масивы?
• Михаил

  July 2005 отредактировано 00:20

  Да, именно динамические. Так не работает:
  
  var
  v:array of variant;
  begin
  setlength(v,5);
  v[0]:=vararraycreate([0,5],varvariant);
  
  v[0,0]:='55';
  end.
• -=Serg=-

  July 2005 отредактировано July 2005

  var
     v:array [0,0] of variant;
  begin
     v := VarArrayCreate([0,10],varvariant);
     v [1, 4] := '55';
  end.
  

  Теперь и так работает.
• Михаил

  July 2005 отредактировано 00:20

  Спасибо, Serg
• Михаил

  July 2005 отредактировано 00:20

  Сразу не проверил, но это тоже не то.
  
  Вторая размерность - фикция. Например,
  
  var
  v:array [0,0] of variant;
  begin
  v := VarArrayCreate([0,10],varvariant);
  v [1, 4] := '4';
  v [1, 5] := '5';
  
  showmessage(v[1,4]+' '+v[1,5]); - Напечатает "5 5"
  end.
  
• Михаил

  July 2005 отредактировано 00:20

  Хотелось бы получить ответ.
  Или лучше писать в поддержку?
• AlexTZ

  July 2005 отредактировано July 2005

  См. делфийский хелп по VarArrayCreate.
  
  var
  ar: Variant;
  begin
  ar := VarArrayCreate([0,2,0,3], varInteger);
  ar[0,0] := 1;
  ar[1,1] := 2;
  ShowMessage(VarToStr(ar[0,0]) + ' ' + VarToStr(ar[1,1]));
  end.
• YuraZ

  August 2005 отредактировано 00:20

  Я делал так:
  
  var
  a: array of Variant;
  v: Variant;
  
  begin
  SetLength(a, 2);
  
  v := VarArrayCreate([0, 1], varVariant);
  v[0] := '1';
  v[1] := '2';
  a[0] := v;
  
  v := VarArrayCreate([0, 1], varVariant);
  v[0] := '3';
  v[1] := '4';
  a[1] := v;
  
  v := a[0];
  ShowMessage(v[0]+' '+v[1]);
  
  v := a[1];
  ShowMessage(v[0]+' '+v[1]);
  end.
  
  К тому же, как я понимаю, параметры задаваемые в функции VarArrayCreate являются ГРАНИЦАМИ массива. Т.е. в приведенном выше примере создается массив v размерности 0..1.
  
  С уважением, Забурдаев Юрий