Подскажите как вывести многомерный массив

Комментарии

• gpi

  March 2006 отредактировано 21:32

  Насколько я понял, массив выводится через frxUserDataset?
  1. Нужно заполнить свойство Fields у датасета
  2.

   frxForShowAlf.RangeEnd := reCount;
   frxForShowAlf.RangeEndCount := length(ArrForAlf) - 1;
  
• rollinx

  March 2006 отредактировано 21:32

  gpi написал:

  Насколько я понял, массив выводится через frxUserDataset?
  1. Нужно заполнить свойство Fields у датасета

  Да, через UserDataSet
  У меня заполнено Fields:

  CODE
  NAME
  TYPE
  

  Как правильно сделать обработчик в OnGetValue
  Должно быть что-то типа:

  
  CODE := ArrForAlf[frxForShowAlf.RecNo][1];
  NAME := ArrForAlf[frxForShowAlf.RecNo][2];
  TYPE := ArrForAlf[frxForShowAlf.RecNo][3];
  
  

  
  
• gpi

  March 2006 отредактировано 21:32

  procedure TForm1.frxUserDataSet1GetValue(const VarName: String;
    var Value: Variant);
  begin
    if VarName='CODE' then Value := ArrForAlf[frxForShowAlf.RecNo][1];
    if VarName='NAME' then Value := ArrForAlf[frxForShowAlf.RecNo][2];
    if VarName='TYPE' then Value := ArrForAlf[frxForShowAlf.RecNo][3];
  end;
  
• rollinx

  March 2006 отредактировано March 2006

  Спасибо.