主页 / 问题 / 1569590
Accepted
Kromster
Asked:2024-03-01 03:42:36 +0000 UTC2024-03-01 03:42:36 +0000 UTC

Delphi 中的哪个标准类允许您双向存储和选择键（字符串）-值（字符串）-索引对？

  • 772

我需要存储键（字符串）-索引（数字）-值（字符串）的组合，以便能够：

  • 有一个索引 - 选择值（很多时候，直接访问是可取的）
  • 有一个索引 - 选择一个键（经常）
  • 有一个键 - 选择一个值（很少）

所有键-键对都是唯一的。索引是单调的（例如从 0 到 10,000）。数据到达时未排序。排序并不重要。

当前的实现 - 2 个对称字典 + 列表：

TKMLibraryKey = string;
TKMLibraryLine = string;

fText: TList<TKMLibraryLine>;
fDictionaryKeyIndex: TDictionary<TKMLibraryKey, Word>;
fDictionaryIndexKey: TDictionary<Word, TKMLibraryKey>;

内存占用 -(V, K + I, I + K) * n

如何才能让这变得更容易呢？也许有某种带有对称对的字典，比如键-键？这样你就可以将自己限制在两个集合中：

fText: TList<TKMLibraryLine>;
TBiDiDictionary<TKMLibraryKey, Word>;

仅基于标准类，无需任何外部库。

delphi

2 个回答

  1. 我通过其后继者 TDictionary 看到了它的实现，如下所示：

    type
  PStringPair = ^TStringPair;
  TStringPair = TPair<string, string>;

  FIndexedDidctionary = class
  private
    FIndexes: TArray<TStringPair>;
    FKeyPairs: TDictionary<string, string>;
    function GetKeyByIndex(Index: Word): string;
    function GetValueByIndex(Index: Word): string;
    function GetValueByKey(const Key: string): string; inline;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Add(Index: Word; const Key, Value: string);
    procedure Remove(Index: Word);
    property KeyByIndex[Index: Word]: string read GetKeyByIndex;
    property ValueByIndex[Index: Word]: string read GetValueByIndex; default;
    property ValueByKey[const Key: string]: string read GetValueByKey;
  end;


{ FIndexedDidctionary }

procedure FIndexedDidctionary.Add(Index: Word; const Key, Value: string);
const
  INDEX_GROW_CHUNK = 1024;
begin
  if Index >= Length(FIndexes) then
    SetLength(FIndexes, (Index div INDEX_GROW_CHUNK + 1) * INDEX_GROW_CHUNK);

  FKeyPairs.Add(Key, Value);
  FIndexes[Index] := TStringPair.Create(Key, Value);
end;

constructor FIndexedDidctionary.Create;
begin
  FKeyPairs := TDictionary<string, string>.Create;
end;

destructor FIndexedDidctionary.Destroy;
begin
  FKeyPairs.Free;
end;

function FIndexedDidctionary.GetKeyByIndex(Index: Word): string;
begin
  if Index >= Length(FIndexes) then
    Exit(''); // при желании можно заменить на raise Exception
  Result := FIndexes[Index].Key;
end;

function FIndexedDidctionary.GetValueByIndex(Index: Word): string;
begin
  if Index >= Length(FIndexes) then
    Exit(''); // при желании можно заменить на raise Exception
  Result := FIndexes[Index].Value;
end;

function FIndexedDidctionary.GetValueByKey(const Key: string): string;
begin
  Result := FKeyPairs[Key];
end;

procedure FIndexedDidctionary.Remove(Index: Word);
begin
  if Index >= Length(FIndexes) then
    Exit; // при желании можно заменить на raise Exception
  var Item := PStringPair(@FIndexes[Index]);
  FKeyPairs.Remove(Item.Key);
  Item.Key := '';
  Item.Value := '';
end;

    上面的代码是记事本的示例，我尚未对其功能进行测试。这仅意味着通过索引添加和删除元素，但不更改现有元素。

    • 0
  2. Best Answer

    @Alekcvp 给了我一个想法。

    首先，当然，你可以稍微优化一下：

    TKMLibraryKey = string;
TKMLibraryLine = string;

fText: TList<TKMLibraryLine>;
fIndexKey: TList<TKMLibraryKey>;
fDictionaryKeyIndex: TDictionary<TKMLibraryKey, Word>;

    此外，根据 @Alekcvp 的建议（仅不重复行）：

    fText: TList<TPair<TKMLibraryKey, TKMLibraryLine>>;
fDictionaryKeyIndex: TDictionary<TKMLibraryKey, Word>;

    总的来说，两个常用脚本的访问时间复杂度为 O(1)，而一个罕见脚本则通过字典进行访问。

    内存占用 -(V, K, K + I) * n

    • 0

相关问题