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

samec2011

Доброе время суток.
Есть sql запрос, возвращающий названия городов (количество их, заранее не известно).
Каким образом вывести эти названия в отчете построчно (не в столбик)?
Вот так:
"Название города: Москва, Новосибирск, Владивосток, Хабаровск, Берлин."

samec2011

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

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

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

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

xlaalaa написал: »

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

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