"डेल्फी के टॉमस" संकलन से कोड क्यों नहीं है?

Question

मैं TDRecLst और TDSplyCm कोड से इकाइयों The Tomes of Delphi के साथ शामिल उपयोग करने के लिए कोशिश कर रहा हूँ, लेकिन मैं TDBasics.pas में एक संकलक त्रुटि मिलती है:

मैं एक ऐसी ही मिलता है में त्रुटि TDStrRes.inc:

क्या गलत है, और मैं इसे कैसे ठीक करूं?

The code लेखक से उपलब्ध है।

Answer 1

आप स्पष्ट रूप से डेल्फी संस्करण का उपयोग कर रहे हैं जो डेल्फी 6 से नया है। 2005 में अपडेट होने के बावजूद, उस पुस्तक का कोड केवल डेल्फी के उस संस्करण का पता लगाता है। TDDefine.inc उस संस्करण के आधार पर कई संकलक प्रतीकों को परिभाषित करता है, लेकिन जब आप जिस संस्करण का उपयोग कर रहे हैं वह कुछ भी पहचान नहीं है, तो यह नहीं प्रतीकों को परिभाषित करता है। अंत में समस्याएं तब होती हैं जब संकलक टीडीबीएसिक्स.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 खंड खाली है। जब हम सब संकलक निर्देशों और निष्क्रिय कोड ब्लॉक की अनदेखी, संकलक अंततः इस तरह कोड देखता है:

implementation 

uses 

const 
    UnitName = 'TDBasics'; 

इसलिए संकलक const के बजाय एक पहचानकर्ता की उम्मीद के बारे में शिकायत।

इसे ठीक करने के लिए, आपको TDDefine.inc को डेल्फी के अपने संस्करण को पहचानने के लिए सिखाने की आवश्यकता है। आसान, हालांकि, को सभी संस्करण-पहचान कोड और हार्ड-कोड को उन सभी प्रतीकों को अनदेखा कर सकते हैं जो आपके द्वारा उपयोग किए जा रहे संस्करण पर लागू होते हैं। जब तक आप कभी भी डेल्फी 6, से अधिक पुराने संस्करण का उपयोग नहीं करते हैं, तो सभी प्रतीकों आपके सभी संस्करणों पर लागू होंगे। ताकि शेष $DEFINE निर्देश बिना शर्त कार्रवाई की जाती है

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

पहली और आखिरी लाइन निकालें:

TDDefine.pas में कोड की निम्न ब्लॉक का पता लगाएं।