Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works

Random project

FastReportObjects

Easiest way to print your objects into FastReport

View on GitHub

Anyone may press Interesting, signed in or not. It helps others find this project.

Member rating

No ratings yet.

Sign in to rate this project.

README

FastReportObjects

Easiest way to print your objects into FastReport

Sample:

pascal
var
  peopleDataset: TFastReportObjects<TPerson>;
begin
  peopleDataset := TFastReportObjects.Create(self, 'PersonDataset', people);
  try
    // you have to set the band dataset
    TfrxMasterData(frxReport1.FindObject('MasterData1')).DataSet := peopleDataset;

    // you have to add the dataset to the report
    frxReport1.DataSets.Add(peopleDataset);

    frxReport1.ShowReport;
  finally
    peopleDataset.Free;
  end;

Use it with Spring4D/Marshmallow:

pascal
var
  db: TMyDatabase;
  stocks: TList<TStockModel>;
  s: IList<TStockModel>;
  stockDataset: TFastReportObjects<TStockmodel>;
begin
  stocks := TList<TStockModel>.Create;
  db := TMyDatabase.Create;
  try
    stocks.AddRange(db.Session.FindAll<TStockModel>.ToArray);
    stockDataset := TFastReportObjects.Create(self, 'Stocks', stocks);
    try

      frxReport1.DataSets.Add(stockDataset);
      TfrxMasterData(frxReport1.FindObject('MasterData1')).DataSet := stockDataset;
      frxReport1.ShowReport;
    finally
      stockDataset.Free;
    end;
  finally
    db.Free;
    stocks.Free;
  end;