Report.ongetvalue в динамическом отчете

Комментарии

• Marionka

  August 2008 отредактировано 06:44

  koliney написал: »

  Есть отчет в dll. Необходимо передать данные из массива.
  Как создать UserDataSet понятно, но как описать обработчик Report.OnGetValue,
  чтобы Report понял, что это его обработчик?

  
  

  ...
  type
    TForm1 = class(TForm)
  ...
      procedure MyGetValue(const VarName: String;
        var Value: Variant);
  ....
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    frxReport1.OnGetValue := MyGetValue;
  end;
  
  procedure TForm1.MyGetValue(const VarName: String; var Value: Variant);
  begin
       if AnsiUpperCase(VarName) = 'TITLE' then
       begin
          Value := 'Заголовок отчета';
       end;
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
     frxReport1.ShowReport;
  end;
  ...