[WR3.0]Delphi6 サンプルでエラー

[前迎]

WR3のサンプルプログラムをDelphi6でコンパイラしようとすると

if VarIsEmpty(prWaxPreview) then begin
prWaxPreview := Form1.WR3AXCL1.CreatePreview;
end;

ここでエラーが出ます
VarIsEmptyが未定義の識別子というエラーメッセージですが
何か対策はありますか
Sample01 Sample02 とも同じ現象です

[中嶋@ソフトウィング]

お世話様でございます。
ご質問の件ですが

VarIsEmptyは デルファイ6からは variant ユニットになったようです。

Variants を　Uses の部分に追加してください。

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, OleCtrls, WR3AXCLLib_TLB,Printers,Variants;

このような形になっていれば問題ないかと思います。
以上　よろしくお願いいたします。

[前迎]

Variants をつけましたら　確かにコンパイラはできました

しかし実行して　プレビューの段階でエラーが出ます
（WR3のサンプルプログラムで行った場合です）
どうしたらいいでしょう？

[中嶋@ソフトウィング]

お世話様です。　ご返信遅れましてご迷惑おかけしました。

VarIsEmptyですが　delphi6では、オブジェクトの評価に
使用できないようですので以下のように対処しました。

if VarIsEmpty(prWaxPreview) then begin
prWaxPreview := Form1.WR3AXCL1.CreatePreview;
end;

これを

if prWaxPreview=nil then begin
prWaxPreview := Form1.WR3AXCL1.CreatePreview;
end;

このように置き換えてください　他のVarIsEmptyの部分も同様に

if not VarIsEmpty(waxReport) then begin
　　waxReport.Delete;
end;

から

if not (waxReport=nil) then begin
　　waxReport.Delete;
end;

このように置き換えてみてください。
また、上記検証はdelphi6、アップデートパック２にて動作確認いたしました。

以上　よろしくお願いいたします。

[投稿者]

投稿