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

Комментарии

• Fokewolf Киев

  September 2005 отредактировано 08:36

  А размерность массива указать ? )))
• Rico

  September 2005 отредактировано 08:36

  Fokewolf написал:

  А размерность массива указать ? )))

  массив должен быть динамический в том-то и вся суть
  Объявление массива по-моему правильное
• Fokewolf Киев

  September 2005 отредактировано 08:36

  Насколько я знаю, в PascalScript размерность нужно указывать сразу при объявлении массива. По другому не получится
• Andrew_Sh г.Минск

  September 2005 отредактировано 08:36

  Rico написал:

  Может кто поможет?
  Нужно вывести сумму в заголовке группы Пример из руководства не работает вообще.

  Посмотрите пример из демки Dialogs and script -> Totals in group header. Там точно все работает.
• Andrew_Sh г.Минск

  September 2005 отредактировано 08:36

  Rico написал:

  Пример из руководства не работает вообще. Хочу вместо StringList использовать простой массив

  Пример из руководства как раз-таки и работает. Проверил на отчете 45.frf Dialogs and script -> Totals in group header., предварительно модифицировав выражение <SUM> на нужное и вместо Memo8 используется Memo4. Единственное, что в примере из доки не хватает одной проверки, а именно перед добавлением строки в List надо сделать провекру
  if not Engine.FinalPass then
  т.е. код будет выглядеть так

  if not Engine.FinalPass then
    List.Add(FloatToStr(<SUM(<Group."ItemsTotal">,MasterData1)>));
  

  т.к. в противном случае во втором проходе суммы опять будут добавляться в список. К ошибке это не приводит, но это и неправильно.
  
  Замените скрипт в 45.frf на следующий код и привяжите обработчики к соответствующим событиям бэндов.

  var
    List: TStringList;
    i: Integer;
  
  procedure frReport1OnStartReport(Sender: TfrxComponent);
  begin
    List := TStringList.Create;
  end;
  
  procedure frReport1OnStopReport(Sender: TfrxComponent);
  
  begin
    List.Free;
  end;
  
  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
    i := 0;
  end;
  
  procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
  begin
    if Engine.FinalPass then
      Memo4.Text := 'Sum: ' + List.Strings[i];
  end;
  
  procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
  begin
    if not Engine.FinalPass then
      List.Add(FloatToStr(<Sum(<Sales."Qty">*<Sales."List Price">)>));
  
    Inc(i);
  end;
  
  begin
  
  end.
  

  
  все отлично работает и никакие мудрствования с динамическими массивами здесь абсолютно не нужны.
• AlexTZ

  September 2005 отредактировано 08:36

  Rico написал:

  Rico написал:

  А размерность массива указать ? )))

  массив должен быть динамический в том-то и вся суть
  Объявление массива по-моему правильное

  Динамический массив надо инициализировать с помощью процедуры SetLength!
• Rico

  September 2005 отредактировано 08:36

  Когда задавал этот вопрос у меня стоял FR 3.09
  Скрипт писал по всякому, извращался как угодно
  В конце концов в дизайнере заработало, а из-под основной программы выбрасывало ошибки. Иногда не работала ф-ия Sum из скрипта
  Поставил 3.14 - все сразу заработало. 3.09-глюк Всем спасибо
  Топик закрыт