Tstringlist в отдельном модуле

отредактировано 09:44 Раздел: FastReport VCL
В документации идет пример использования TStringList для отображения суммы в заголовке группы.
При этом объект данного класса создается при старте отчета и уничтожается при завершении построения.
Как мне вынести данный объект в отдельный модуль с функциями, где нет естественно событий старта и завершения?
Т.е. я бы хотел создать данный объект в пределах отдельного модуля с функциями (чтобы не усложнять основной код отчета), подключаемого через uses.

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
Memo8.Text := 'Sum: ' + List;
end;

procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
if not Engine.FinalPass then
List.Add(FloatToStr(SUM(<Group."ItemsTotal">,MasterData1)));
Inc(i);

end;

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.