次のプログラム コードを用意して、実行してください。
このプログラムでは、コンバート後のファイルを converted_fromQR.fr3 へ自動保存します。
uses 節に ConverterQR2FR を追加。 var conv:TConverterQR2FR; FReport:TfrxReport; begin FReport := TfrxReport.Create(self); conv := TConverterQR2FR.Create; conv.Source := QuickRep1; // コンバート対象の QuickReport コンポーネント conv.Target := FReport; conv.Convert; FReport.SaveToFile('converted_fromQR.fr3'); end; |
留意点:
インストールされている QuickReport のバージョンまたはエディションによって、追加したユニット(ConverterQR2FR.pas)でコンパイルエラーが発生することがあります。
コンパイルエラーの行をコメントアウトしてから、再コンパイルをお願いします。
例:
古い QuickReport のバージョンでは、未対応の変数が使用されている下記の行でコンパイルエラーが発生します。
qrsRoundRect: Shape.Shape := skRoundRectangle; |