Có điều gì giống như một bản đồ hoặc một hashtable trong Delphi 6?

Question

Có bất kỳ loại bản đồ thực hiện bản địa nào trong delphi 6 (các khóa bản đồ cho các giá trị và các đối tượng) - internet đã không có sự trợ giúp cho đến nay. Tôi chỉ có một dự án delphi bán phá giá trên của tôi, nền của tôi là c + + và java, và dev trước của dự án delphi hiện tất cả các tìm kiếm tuyến tính.

Cảm ơn.

Answer 1

Tùy thuộc vào nhu cầu chính xác của bạn, bạn có thể muốn sử dụng đối tượng TStringList.

Answer 2

Jedi Code Library chứa một số lớp chứa nâng cao. Giao diện được khai báo trong JclContainerIntf.pas, ví dụ:

IJclMap = interface(IJclContainer) 
    ['{A7D0A882-6952-496D-A258-23D47DDCCBC4}'] 
    procedure Clear; 
    function ContainsKey(Key: TObject): Boolean; 
    function ContainsValue(Value: TObject): Boolean; 
    function Extract(Key: TObject): TObject; 
    function GetValue(Key: TObject): TObject; 
    function IsEmpty: Boolean; 
    function KeyOfValue(Value: TObject): TObject; 
    function KeySet: IJclSet; 
    function MapEquals(const AMap: IJclMap): Boolean; 
    procedure PutAll(const AMap: IJclMap); 
    procedure PutValue(Key, Value: TObject); 
    function Remove(Key: TObject): TObject; 
    function Size: Integer; 
    function Values: IJclCollection; 
    property Items[Key: TObject]: TObject read GetValue write PutValue; 
     {$IFNDEF BUGGY_DEFAULT_INDEXED_PROP} default; {$ENDIF ~BUGGY_DEFAULT_INDEXED_PROP} 
    end; 

Answer 3

Tôi đã thử nghiệm TStringList và một số hiện thực THashTable và sự khác biệt giữa hai ngôn ngữ là tối thiểu, và trong nhiều trường hợp TStringList (với thực hiện loại dicotomical) là hiệu quả hơn hơn THashTable.
Đối với một số lượng nhỏ các giá trị TStringList nhanh hơn Hash, và đối với một số lượng lớn các giá trị bạn phải tìm một hàm băm phức tạp để giảm thiểu va chạm, và độ phức tạp này làm giảm hiệu quả của HashList.

Bạn phải sử dụng con trỏ Đối tượng của StringList để lưu trữ tất cả thông tin bạn cần (chuỗi thứ hai).

Trân trọng.

Answer 4

Tôi đã sử dụng một thư viện gọi Hashes.pas từ Ciaran McCreesh nhưng kể từ khi trang web của mình không còn có sẵn, bạn có thể xem các tập tin PAS duy nhất từ ​​URL sau:

Link to Cian McCreesh - Hashes.pas

Bạn cũng có thể tìm thấy nó với google với nội dung: "Cian McCreesh băm"

với thư viện này bạn có thể làm như sau:

aString := TStringHash.Create; 
aString['color'] := 'blue'; 
ShowMessage(aString.Items['color']); // blue 

O đối tượng r:

aObj := TObjectHash.Create; 
aObj['color'] := TBlueClass.Create; 
bcBlue:=(aObj.Items['color'] as TBlueClass); 
ShowMessage(bcBlue.Name); // Blue (supposing the TBLusClass as a Name property... 

Hy vọng nó sẽ phục vụ bạn cũng như cho tôi.

PS Tôi nghĩ rằng dự án Ares AudioGalaxy cũng sử dụng nó.