Проблемы с динамич массивом

Комментарии

• Rico

  September 2005 отредактировано 09:01

  Сорри, я тут новичок, это наверное надо писать в раздел FastScript В общем щас спрошу там
  
• Markus

  September 2005 отредактировано 09:01

  Раз у тебя массив динамический перед использованием надо его проинициализировать.
  

  begin
  SetLength(SumArr,10); // 10 элементов,  0..9
  end.
  

  
  Если заранее не знаешь размера то увеличивай перед присвоением каждого нового элемента.
• Andrew_Sh г.Минск

  September 2005 отредактировано 09:01

  ответ на вопрос смотри ЗДЕСЬ
• Markus

  September 2005 отредактировано 09:01

  Не надо там никаких листов.
  просто подправь немного свой код
  

  var
  i1,i2:Integer=0;
  SumArr:array  of integer;
  
  procedure GroupHeader2OnBeforePrint(Sender: TfrxComponent);
  begin
  if Engine.FinalPass then Memo17.Text := 'Sum: ' + FloatToStr(i2);
  end;
  
  procedure GroupFooter2OnBeforePrint(Sender: TfrxComponent);
  begin
  
  if Engine.FinalPass=false then
    begin
    SetLength(SumArr,i1);
    SumArr[i1]:=i1;
    Inc(i1); // интересно Inc в FR также оптимизирован как и в Delphi :)
    end;
  if Engine.FinalPass=true then Inc(i2);
  end;
  
  
  begin
   i1:=1; // текущая размерность массива, как минимум должна быть 1
  end.
  

  
  во всяком случае у меня работает версия 3.14
• Andrew_Sh г.Минск

  September 2005 отредактировано 09:01

  Пусть будет динамический массив. Но в этом примере надо провести работу над ошибками. Если SumArr используется для накопления сумм, то почему при выводе в GroupHeader2OnBeforePrint использутся какая-то переменная i2? SumArr - динамический массив, а элементы динамических массивов всегда нумеруются с нуля, поэтому даже с исправлениями от Markusа будет вылазить ошибка Variant Array Index Out of Bounds. Правильный пример выглядит так:
  

  var
    i1:Integer;
    SumArr:array of integer;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
    i1 := 0;
  end;
  
  procedure GroupHeader2OnBeforePrint(Sender: TfrxComponent);
  begin
    inc(i1);
    if Engine.FinalPass then 
      Memo17.Text := 'Sum: ' + FloatToStr(SumArr[i1]);
  end;
  
  procedure GroupFooter2OnBeforePrint(Sender: TfrxComponent);
  begin
    if not Engine.FinalPass then
    begin
      SetLength(SumArr, i1 + 1);
      SumArr[i1] := i1;
    end;
  end;
  
  begin
    
  end.
  
• Markus

  September 2005 отредактировано 09:01

  Ну раз пошла такая пьянка поправлюсь сам
  и чтобы полностью соответствовало условию

  написал:

  Пытаюсь сделать это Начал с малого - просто выводить в заголовках числа: 0 для первой группы, 1 для второй и т.д.

  var
  i1,i2:Integer;
  SumArr:array  of integer;
  
  procedure GroupHeader2OnBeforePrint(Sender: TfrxComponent);
  begin
  if Engine.FinalPass then Memo17.Text := 'Sum: ' + FloatToStr(SumArr[i2]);
  end;
  
  procedure GroupFooter2OnBeforePrint(Sender: TfrxComponent);
  begin
  
  if Engine.FinalPass=false then
   begin
   SetLength(SumArr,i1+1);
   SumArr[i1]:=i1;
   Inc(i1); // интересно Inc в FR также оптимизирован как и в Delphi :)
   end;
  if Engine.FinalPass=true then Inc(i2);
  end;
  
  
  begin
  i1:=0; 
  i2:=0;
  end.
  

  
  а по поводу

  написал:

  Если SumArr используется для накопления сумм, то почему при выводе в GroupHeader2OnBeforePrint использутся какая-то переменная i2?

  это была уже отчаянная попытка получить хоть что-то