Выявление объектов Fastreport

Question

Я использую FastReport (оценочная версия) главным образом для печати счетов-фактур и котировок. Я пытаюсь поддерживать разделение между моими источниками данных и логикой приложения, поэтому мне интересно, есть ли простой способ открыть объекты Delphi непосредственно в FastReport. В настоящее время я прибегаю к пользовательским источникам данных, но это много ручного вождения.

В принципе, я хочу взять свой уже инстанцированный объект TInvoice и распечатать его с помощью FastReport.

Кто-нибудь внедрил общий класс или интерфейс предка, чтобы выставлять объекты Delphi в качестве источников данных в FastReport (или другой инструмент отчетности)?

Редактировать: Я использую Delphi XE.

Answer 1

Использование Delphi 2010 или более поздней версии вы можете использовать код, расположенный здесь:

http://code.google.com/p/robstechcorner/source/browse/branches/rttiwork/ObjDS.pas

Он может быть использован следующим образом:

//typically created and declared someplace else 
cds : TClientDataSet; 
Invoice : TInvoice; 

var 
    Mapper : TDataSetMapping; 
begin 
    Mapper := TDataSetMapping.Create(cds); 
    Mapper.Value := Invoice; 
    // CDS is now populated with the values stored in Invoice 
end; 

Answer 2

Если вы ищете заплатил один, У меня есть кое-что для тебя. Поддержка простых типов, memistream class как поле memo и под-объект. Работа от delphi 7 и xe. Что-то ниже природы. Может использоваться для связывания редактирования также

{$M+} 
TSubInfo = class 
publish 
    property AMem: TMemoryStream read ... write .... 
    property ADat: TDateTime read ... write .... 
end; 

TInvoice = class 
publish 
    property AInt: Integer read ... write ... 
    property AStr: string read ... write ... 
    property ASubInfo: TSubInfo read ... write ... 
end; 
{$M-} 

var 
    DataSet: TObjectDataSet; // is decendent from TDataSet 
    Invoice: TInvoice; 
begin 
    Invoice := TInvoice.Create... 
    DataSet := TObjectDataSet.Create...; 
    DataSet.BindObject := Invoice; 
    DataSet.Active := True; 
    ..... 

свяжитесь со мной как apz28 на HOTMAIL точка ком