jcl之TStringHashMap用法

iteye_19488

于 2009-11-02 15:59:05 发布

阅读量194

点赞数

分类专栏： delphi

delphi 专栏收录该内容

21 篇文章

订阅专栏

1.当然是包含头文件:

uses

JclStrHashMap

2.声明：

FCacheHash: TStringHashMap;

3.创建实例：

FCacheHash := TStringHashMap.Create(CaseInsensitiveTraits, 255);

4.加入item:

FCacheHash.Add(AIp,Item);

5.遍历：

FCacheHash.IterateMethod(nil, IterateTel);

function TFrmSend.IterateTel(AUserData: PUserData; const AStr: string;
  var Ptr: PData): Boolean;
begin
  Result := True;
  if IsMobile(AStr) then
    FMobileList.Add(AStr)
  else if IsUnicom(AStr) then
    FUnicomList.Add(AStr)
  else if IsTelecom(AStr) then
    FTelecomList.Add(AStr);
end;