Установка даты из StatusBar в Memo отчета FastReport

Delphi , Базы данных , Отчеты

При работе с отчетами FastReport может возникнуть потребность вывести дату из StatusBar в Memo отчета. В данной статье мы рассмотрим, как это можно сделать программным образом.

Проблема

Разработчик хочет передать содержимое первого элемента StatusBar (AdvOfficeStatusBar1.Panels[0]) в поле Memo 4 отчета frxreport1. Так как AdvOfficeStatusBar1.Panels[0] имеет тип даты (psDate), необходимо, чтобы перед открытием отчета в Memo отображалась текущая дата StatusBar.

Решение

Для того чтобы установить текст в поле Memo отчета FastReport программным образом, можно воспользоваться следующим подходом:

1. Найти объект Memo в отчете по его имени.
2. Установить текст объекта Memo.

Ниже приведен пример кода на Object Pascal (Delphi), демонстрирующий данный подход:

procedure TForm1.cxButton1Click(Sender: TObject);
var
  Memo: TfrxMemoView;
  Component: TfrxComponent;
begin
  Component := frxReport1.FindObject('Memo4');
  if Component is TfrxMemoView then
  begin
    Memo := Component as TfrxMemoView;
    Memo.Text := AdvOfficeStatusBar1.Panels[0].Text;
    frxReport1.ShowReport;
  end;
end;

В данном примере мы ищем объект Memo с именем 'Memo4' в отчете frxReport1. Если объект найден и является TfrxMemoView, то устанавливаем его текст равным тексту первого элемента StatusBar (AdvOfficeStatusBar1.Panels[0]) и показываем отчет.

Альтернативный ответ

Также можно воспользоваться процедурой SetMemo, которая принимает отчет, имя Memo и текст, который нужно установить:

procedure SetMemo(aReport: TfrxReport; aMemoName: string; aText: string);
var
  memo: TfrxMemoView;
begin
  memo := aReport.FindObject(aMemoName) as TfrxMemoView;
  if memo <> nil then
    memo.Text := aText;
end;

В этом случае вызов процедуры SetMemo будет выглядеть следующим образом:

SetMemo(frxReport1, 'Memo4', AdvOfficeStatusBar1.Panels[0].Text);
frxReport1.ShowReport;

Вывод

В данной статье мы рассмотрели, как установить дату из StatusBar в Memo отчета FastReport программным образом. Для этого мы использовали подход, заключающийся в поиске объекта Memo в отчете и установке его текста. Также был представлен альтернативный способ с помощью процедуры SetMemo.

Создано по материалам из источника по ссылке.

В этом контексте описывается, как программным образом вывести дату из StatusBar в Memo отчета в программе FastReport.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Отчеты ::