Làm thế nào để có được tương đương với một trường tĩnh (lớp) trong Delphi?

Question

Tôi có một hoạt động nhất định trong một lớp học rất tốn kém. (trên thứ tự khoảng 8 giây để chạy hoàn toàn) Vì vậy, bây giờ tôi đã quyết định nó có lẽ nên chạy ở đầu chương trình trong một màn hình "khởi tạo". Tôi không thể tìm thấy bất cứ nơi nào trong Delphi chỉ ra rằng có một điều như một lĩnh vực tĩnh tuy nhiên.

Những gì tôi về cơ bản cần làm là tải một danh sách các bản ghi và giữ chúng sống trong suốt vòng đời của chương trình. Cách tốt nhất để làm điều này trong Delphi là gì?

tôi sẽ làm điều này trong C# khá đơn giản:

class Foo{ 
    static List<...> Bar; 
} 

Tuy nhiên trong Delphi, Tôi không nhìn thấy bất cứ điều gì để tạo ra một trường tĩnh. Tất cả những gì tôi thấy là từ khóa class để tạo phương thức tĩnh

Answer 1

Bạn chỉ có thể sử dụng biến toàn cục. Thêm nó vào phần implementation của một đơn vị để đặt địa phương vào đơn vị đó.

Turbo Delphi của tôi hỗ trợ class var x:integer;, nhưng tôi khá chắc chắn Delphi 7 không.

Answer 2

Bạn sẽ cần phiên bản Delphi mới hơn nếu bạn muốn thực tế.

Tuy nhiên, pascal luôn có phạm vi tương tự, nhưng bạn nên (với một chút tưởng tượng) xem đơn vị là lớp cuối cùng tĩnh.

Các hàm và biến được công khai được xác định trong phần giao diện và các công cụ riêng được xác định trong phần triển khai. Tất cả những thứ này ít nhiều tương đương với các biến lớp và các phương thức lớp.

Nếu bạn đặt tên bộ nạp đơn vị.pas và bạn xác định hàm "init" trong phần giao diện, bạn thậm chí có thể gọi nó như thể đó là hàm lớp: loader.init().

Phần khởi tạo và hoàn tất tương đương với hàm tạo lớp và lớp hủy.

Những gì tôi mô tả ở trên có ý nghĩa từ turbo plascal cho đến khi delphi 2007 (tôi nghĩ rằng biến lớp đã được giới thiệu trong d2009). Tất cả trong tất cả các lời khuyên tôi chỉ để có được một delphi mới hơn.

Answer 3

Tôi nghĩ đây là thời điểm tốt để sử dụng initialization và finalization ở Delphi. Điều này đi vào cuối của một đơn vị, ngay trước end. Bạn có thể sử dụng nó để tạo/trường toàn cầu miễn phí như thế này, hoặc chỉ cần đặt biến mặc định ...

unit Unit1; 

interface 

uses 
    Classes; 

function MyList: TStringList;  

implementation 

var 
    GMyList: TStringList; 

function MyList: TStringList; 
begin 
    Result:= GMyList; 
end; 

initialization 
    GMyList:= TStringList.Create; 
    MyList.Append('Value 1'); 
    MyList.Append('Value 2'); 
    MyList.Append('Value 3'); 

finalization 
    GMyList.Free; 

end. 

chỉ này kêu gọi các tình huống đặc biệt như thế này. MyList sẽ vẫn hoạt động trong suốt thời gian đăng ký của bạn.

Lưu ý cách GMyList được khai báo bên dưới implementation và MyList thực sự là chức năng toàn cầu để truy cập GMyList. Điều này là để tránh các bài tập tình cờ và như vậy. Từ bất kỳ đơn vị nào khác, bạn có thể truy cập GMyList bằng cách sử dụng chức năng MyList, nhưng sẽ không thể truy cập trực tiếp GMyList (đó là những gì bạn muốn tránh lỗi).