ＴｕｒｂｏＤｅｌｐｈｉで以前のQuickReportを読み込むには？ (ID:24354)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ボーランドに質問を投げて、以下の回答を得ました。
？？？どうして、かずさんは読めるんでしょう？？？
もう一度、ソース付きだと違うのか、質問してみます。

----- 以下、回答文書 ----------------------------
こちらは、現バージョンで TQuickRepがフォームぶら下がるという形で構築しな
ければならないために発生しております。

よって、以下の方法で、Delphi5で作成致しました dfmと pasを NotePad等のテ
キストエディタで修正して頂く必要がございます。
なお、.dfmがバイナリの場合は、手修正できませんため、Delphi5上で一度
フォームをテキストとして保存して頂く必要がございます。

* .pas側の修正 (今回お送り頂きました Del5ReportTxt2.pasを例に取ります)
--- 修正前
type
  TQuickReport2 = class(TQuickRep)
  private

public

end;
--- 修正後
type
//  TQuickReport2 = class(TQuickRep)
  TQuickReport2 = class(TForm)
    QuickRep1: TQuickRep;
  private

public

end;

* .dfm側の修正 (今回お送り頂きました Del5ReportTxt2.dfmを例に取ります)
--- 修正前
object QuickReport2: TQuickReport2
  Left = 0
  Top = 0
  << 中略 >>
  Units = MM
  Zoom = 100
end
--- 修正後
object QuickReport2: TQuickReport2
 object QuickRep1: TQuickRep
  Left = 0
  Top = 0
  << 中略 >>
  Units = MM
  Zoom = 100
 end
end

その後 BDS2006、Delphi2006上でプロジェクトを開き、エラーが発生しておりま
したユニットを開いて頂き、呼び出し側フォームのコード
QuickReport2.Preview;
を
QuickReport2.QuickRep1.Preview;
と修正して頂き、実行してください。

←解決時は質問者本人がここをチェックしてください。

戻る