_dglmap_stringcaseinsensitive_integer.pas

Delphi Generic Algorytms library - Maps, Lists, Hashmaps, Datastructures.

(*
 * Copyright (c) 2004
 * [e-mail]
 *
 * This material is provided "as is", with absolutely no warranty expressed
 * or implied. Any use is at your own risk.
 *
 * Permission to use or copy this software for any purpose is hereby granted
 * without fee, provided the above notices are retained on all copies.
 * Permission to modify the code and to distribute modified code is granted,
 * provided the above notices are retained, and a notice that the code was
 * modified is included with the above copyright notice.
 *
 *)

//------------------------------------------------------------------------------
//例子:TStrIntMap
//具现化String<->integer的map容器和其迭代器
// Create by HouSisong, 2005.10.13
//------------------------------------------------------------------------------
unit _DGLMap_StringCaseInsensitive_Integer;

interface
uses
  SysUtils;
{$I DGLCfg.inc_h}

type
  _KeyType     = string;  
  _ValueType   = integer;

const
  _NULL_Value:integer=0;
  function _HashValue(const Key: _KeyType):Cardinal;{$ifdef _DGL_Inline} inline; {$endif}//Hash函数
  {$define _DGL_Compare_Key}  //比较函数
  function _IsEqual_Key(const a,b :_KeyType):boolean;{$ifdef _DGL_Inline} inline; {$endif} //result:=(a=b);
  function _IsLess_Key(const a,b :_KeyType):boolean; {$ifdef _DGL_Inline} inline; {$endif} //result:=(a<b); 默认排序准则

//var
//  IsCaseInsensitive:boolean = true; //大小写是否不敏感

{$I HashMap.inc_h} //"类"模版的声明文件

//out
type
  ICIStrIntMapIterator  = _IMapIterator;
  ICIStrIntMap          = _IMap;
  ICIStrIntMultiMap     = _IMultiMap;

  TCIStrIntHashMap          = _THashMap;
  TCIStrIntHashMultiMap     = _THashMultiMap;

implementation
uses
  HashFunctions;

{$I HashMap.inc_pas} //"类"模版的实现文件

function _HashValue(const Key :_KeyType):Cardinal; overload;
begin
//  if IsCaseInsensitive then
    result:=HashValue_StrCaseInsensitive(Key)
//  else
//    result:=HashValue_Str(Key);
end;

function _IsEqual_Key(const a,b :_KeyType):boolean; //result:=(a=b);
begin
//  if IsCaseInsensitive then
    result:=IsEqual_StrCaseInsensitive(a,b)
//  else
//    result:=(a=b);
end;

function _IsLess_Key(const a,b :_KeyType):boolean;  //result:=(a<b); 默认排序准则
begin
//  if IsCaseInsensitive then
    result:=IsLess_StrCaseInsensitive(a,b)
//  else
//    result:=a<b;
end;

end.