改良版TStringList类

begin
Result:= fCompare(TmwHashWord(Items[HashValue]).S, S);
end else
begin
HashItems:= Items[HashValue];
if Length(S) > HashItems.Capacity then Exit;
Temp:= HashItems[Length(S)];
if Temp <> nil then
if Temp is TmwHashWord then
begin
Result:= fCompare(TmwHashWord(Temp).S, S);
end else
for I:= 0 to TmwHashStrings(Temp).Count -1 do
begin
HashWord:= TmwHashStrings(Temp)[I];
Result:= fCompare(HashWord.S, S);
if Result then exit;
end;
end;
end;
end;

Initialization
InitTables;
end.

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!