Как реализовать построчный вывод

Комментарии

• samec2011

  December 2010 отредактировано 10:53

  завел переменную:

  var
   grd:string;
  

  
  в OnBeforePrint бэнда собрал в эту переменную нужные значения, вот так:

  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
   grd := grd + <QFGorod."field1">+' - '+FloatToStr(<QFGorod."field2">)+<QFGorod."field3">+'; ';
  end;
  

  
  бэнд MasterData1 -> Visible = False;
  в Footer-е этого бэнда, в Memo, написал текст: "Список городов: [grd]"
  
  вроде работает.
• xlaalaa Минск

  December 2010 отредактировано December 2010

  Чтобы не плодить лишние бэнды. В скрипте вместо переменной напишите функцию.
  

  function grd:string;
  var
    DataSet : TFrxDataSet;                                                                                                           
  begin
    result := '';
  
    DataSet := Report.GetDataset('QFGorod');  
    DataSet.First;
      
    while not DataSet.Eof do
    begin
      result := result + <QFGorod."field1">+' - '+FloatToStr(<QFGorod."field2">)+<QFGorod."field3">+'; ';
      DataSet.Next;
    end;
  
  end;
  

  
  И вызывайте ее в любой ячейке отчета "Список городов: [grd]"
• samec2011

  December 2010 отредактировано 10:53

  xlaalaa написал: »

  Чтобы не плодить лишние бэнды. В скрипте вместо переменной напишите функцию.
  ...

  Спасибо, работает!