KHÔNG nên làm gì để ngăn chặn Delphi khỏi xâu chuỗi danh sách sử dụng và {$ *. RES} trong một .DPR

Question

Cứ vài tuần, tôi gặp phải vấn đề này: khi thực hiện một hoạt động IDE trên các đơn vị sử dụng trong dự án Delphi, nó mangles các tập tin .

Điều gì xảy ra là nó xây dựng lại danh sách uses nhưng bị sai vị trí.

Tôi tự hỏi mẫu sử dụng cần tránh vì vậy tôi sẽ không gặp phải lỗi này nữa.

Tôi đã xảy ra lỗi này trong nhiều phiên bản Delphi. Tôi biết nó tồn tại trong ít nhất Delphi XE2 (nó đã xảy ra đó một lần nữa ngày nay), XE, 2007, 2006 và 7.

Đoạn đọc sai thường được cấu trúc như thế này:

ususes 
    Forms, 
    .. 
    LastUnitInUses in 'LastUnitInUses.pas'; 

R *.RES} 

và cần được sửa chữa bởi loại bỏ một us, và thêm một {$: file

uses 
    Forms, 
    .. 
    LastUnitInUses in 'LastUnitInUses.pas'; 

{R *.RES} 

Ví dụ dù tiến hành sai:

program SysUtilsFormatTests; 
{ 

    Delphi DUnit Test Project 
    ------------------------- 
    This project contains the DUnit test framework and the GUI/Console test runners. 
    Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options 
    to use the console test runner. Otherwise the GUI test runner will be used by 
    default. 

} 

{$IFDEF CONSOLE_TESTRUNNER} 
{$APPTYPE CONSOLE} 
{$ENDIF} 

ususes 
    Forms, 
    TestFramework, 
    GUITestRunner, 
    TextTestRunner, 
    SysUtilsFormatUnit in 'SysUtilsFormatUnit.pas'; 

R *.RES} 

begin 
    Application.Initialize; 
    if IsConsole then 
    with TextTestRunner.RunRegisteredTests do 
     Free 
    else 
    GUITestRunner.RunRegisteredTests; 
end. 

Ví dụ về điều chỉnh file:

program SysUtilsFormatTests; 
{ 

    Delphi DUnit Test Project 
    ------------------------- 
    This project contains the DUnit test framework and the GUI/Console test runners. 
    Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options 
    to use the console test runner. Otherwise the GUI test runner will be used by 
    default. 

} 

{$IFDEF CONSOLE_TESTRUNNER} 
{$APPTYPE CONSOLE} 
{$ENDIF} 

uses 
    Forms, 
    TestFramework, 
    GUITestRunner, 
    TextTestRunner, 
    SysUtilsFormatUnit in 'SysUtilsFormatUnit.pas'; 

{$R *.RES} 

begin 
    Application.Initialize; 
    if IsConsole then 
    with TextTestRunner.RunRegisteredTests do 
     Free 
    else 
    GUITestRunner.RunRegisteredTests; 
end. 

Answer 1

Điều duy nhất mà tôi biết rằng làm việc là dành cho bạn để cho IDE quản lý các tập tin .dpr.

• Không thêm nhận xét.
• Không sử dụng điều kiện như $ IFDEF.
• Không sửa đổi mã trong tệp .dpr.

nếu bạn thực hiện bất kỳ điều nào trong số này, hãy chờ IDE ghi lại.

Cá nhân tôi làm tất cả những điều này và chống lại thời gian cam kết. Tôi sử dụng VCS của tôi để bảo vệ chống lại những thay đổi không có thật của IDE. Nó không phải lý tưởng, nhưng đó là lựa chọn tốt nhất.