「The Tomes of Delphi」のコードをコンパイルできないのはなぜですか？

Question

私はコードから単位がThe Tomes of Delphiに含まれてTDRecLstとTDSplyCmを使用しようとしているが、私はTDBasics.pasでコンパイルエラーを取得：

私は同様のを取得しますTDStrRes.incでエラー：

何が問題なのですか？それを修正するにはどうすればよいですか？

The codeは、著者から入手可能です。

Answer 1

あなたは明らかにDelphi 6より新しいバージョンのDelphiを使用しています。2005年に更新されているにもかかわらず、その書籍のコードはそのバージョンまでしか検出しません。 TDDefine.incは、検出するバージョンに基づいていくつかのコンパイラシンボルを定義しますが、使用しているバージョンが認識できないものであれば、はシンボルと定義されています。コンパイラが次のようなコードに遭遇したときに、最終的に問題につながる。TDBasics.pas;

implementation 

uses 
    {$IFDEF Delphi1} 
    WinTypes, WinProcs; 
    {$ENDIF} 
    {$IFDEF Delphi2Plus} 
    Windows; 
    {$ENDIF} 
    {$IFDEF Kylix1Plus} 
    Types, Libc; 
    {$ENDIF} 

{$IFDEF Delphi1} 
{$R TDStrRes.r16} 
{$ENDIF} 
{$IFDEF Delphi2Plus} 
{$R TDStrRes.r32} 
{$ENDIF} 
{$IFDEF Kylix1Plus} 
{$R TDStrRes.r32} 
{$ENDIF} 

const 
    UnitName = 'TDBasics'; 

Delphi1、Delphi2Plus、又はKylix1Plusのいずれも定義されていないので、uses句は空です。我々は、すべてのコンパイラディレクティブと非アクティブなコードブロックを無視すると、コンパイラは、最終的には、このようなコードを見て：

コンパイラは constの代わりに識別子を期待して文句を言う理由です

implementation 

uses 

const 
    UnitName = 'TDBasics'; 

。

修正するには、TDDefine.incにあなたのバージョンのDelphiを認識させる必要があります。しかし、より簡単にを無視してください。すべてのバージョン検出コードと使用しているバージョンに適用されるすべての記号をハードコードしてください。 Delphi 6より古いバージョンを使用しない限り、すべてはすべてのバージョンに適用されます。

はTDDefine.pasに次のコードブロックを探す：残り$DEFINE命令が無条件に処理されるように

{$IFDEF VER140} 
    {$DEFINE Delphi6} 
    {$DEFINE Delphi1Plus} 
    {$DEFINE Delphi2Plus} 
    {$DEFINE Delphi3Plus} 
    {$DEFINE Delphi4Plus} 
    {$DEFINE Delphi5Plus} 
    {$DEFINE Delphi6Plus} 
    {$DEFINE HasAssert} 
{$ENDIF} 

は、最初と最後の行を削除します。