Tại sao không mã từ biên dịch "Tomes of Delphi"?

Question

Tôi đang cố gắng sử dụng TDRecLst và TDSplyCm đơn vị từ mã kèm The Tomes of Delphi, nhưng tôi nhận được một lỗi biên dịch trong TDBasics.pas:

tôi nhận được một tương tự lỗi trong TDStrRes.inc:

Có gì sai và cách khắc phục?

The code có sẵn từ tác giả.

Answer 1

Bạn rõ ràng đang sử dụng phiên bản Delphi mới hơn Delphi 6. Mặc dù được cập nhật vào năm 2005, mã từ cuốn sách đó chỉ phát hiện lên phiên bản Delphi đó. TDDefine.inc xác định một số biểu tượng trình biên dịch dựa trên phiên bản nó phát hiện, nhưng khi phiên bản bạn đang sử dụng không phải là bất kỳ thứ gì nó nhận ra, nó xác định các ký hiệu không có. Điều đó cuối cùng dẫn đến các vấn đề sau này khi trình biên dịch gặp mã như thế này trong 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'; 

Kể từ khi không ai trong số Delphi1, Delphi2Plus, hoặc Kylix1Plus được xác định, mệnh đề uses trống. Khi chúng tôi bỏ qua tất cả các chỉ thị biên dịch và khối mã không hoạt động, trình biên dịch cuối cùng nhìn thấy mã như thế này:

implementation 

uses 

const 
    UnitName = 'TDBasics'; 

Đó là lý do tại sao các trình biên dịch phàn nàn về mong đợi một định danh thay vì const.

Để khắc phục sự cố, bạn cần phải dạy TDDefine.inc để nhận dạng phiên bản Delphi của bạn. Mặc dù vậy, dễ dàng hơn, có thể là bỏ qua tất cả mã phát hiện phiên bản và mã hóa cứng tất cả các ký hiệu áp dụng cho phiên bản bạn đang sử dụng. Miễn là bạn không bao giờ sử dụng bất kỳ phiên bản nào cũ hơn Delphi 6, tất cả, các ký hiệu sẽ áp dụng cho tất cả các phiên bản của bạn.

Tìm khối mã sau đây trong TDDefine.pas:

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

Tháo dòng đầu tiên và cuối cùng để các $DEFINE hướng dẫn còn lại được xử lý vô điều kiện.