如何快速从哈希复制到列表视图？

Question

有一个hash pas文件http://gpdelphiunits.googlecode.com/svn-history/r4/trunk/src/GpStringHash.pas

我们可以创建hash并添加key-value

问题 1： 我们想知道如何迭代key-value并将数据复制到listview。

问题2：有没有办法像assign方法一样快速复制？

非常感谢您。

亲爱的 gabr，非常感谢您的即时回复和您的哈希文件。您的代码是否有文档或帮助文件或示例或演示？再次感谢你。

---

只是测试，不知道哪里做错了 非常感谢。我刚刚使用了您的代码，但出现以下错误提示。或者我犯了一些错误：

procedure TForm8.ab;
var
  a: TGpStringHash;
  i,j, fr:integer;
  k: string;
  enlist: TGpStringHashenumerator;
  kv: TGpStringHashKV;
begin
  a:=TGpStringHash.Create;
  kv:=TGpStringHashKV.Create;
  enlist:= TGpStringHashenumerator.Create(a);
  for j:=1 to 10 do begin
    if a.HasKey(inttostr(j)) then begin
      fr:=a.ValueOf(inttostr(j));
      a.Update(inttostr(j),fr+1);
    end
    else begin
      a.Add(inttostr(j),1);
    end;
  end;
  for i:=0 to a.Count -1 do begin
    kv:=enlist.GetCurrent;
    memo1.Lines.Add(kv.Key + inttostr(kv.value) );
  end;
end; /// Division by Zero ERROr ///FindBucket(const key: string): cardinal;

回答： 您不正确地使用枚举器。不要在前面实例化它，总是使用 MoveNext 移动到下一个元素。

// fill 'a' as above
enlist := TGpStringHashenumerator.Create(a);
while enList.MoveNext do begin
  kv:=enlist.GetCurrent;
  memo1.Lines.Add(kv.Key + inttostr(kv.value) );
end;

Answer 1

1) 使用latest version。它为所有容器实现枚举器。

2) 没有。

编辑：

我已将我的内部 GpStringHash 测试应用程序提交到存储库。它可以作为如何使用 GpStringHash 类的演示。

要枚举您将使用的 TGpStringHash

var
  hash: TGpStringHash;
  kv: TGpStringHashKV;

for kv in hash do
  // do something with kv.Key and kv.Value

如果您使用的是不支持枚举器的旧版 Delphi，则可以将 ForEach 方法与外部回调方法一起使用。

procedure TGpStringHash.ForEach(enumerator: TGpStringHashEnumMethod);
var
  enum: TGpStringHashEnumerator;
begin
  enum := GetEnumerator;
  try
    while enum.MoveNext do
      enumerator(enum.Current);
  finally FreeAndNil(enum); end;
end; { TGpStringHash.ForEach }