index 63b0ae55a83587d0e1118b97633e2053ed3185d2..578f86583d3d3df5ea68f8afebc94f630fa1a754 100644 (file)
// ////////////////////////////////////////////////////////////////////////// //
-function ansistrEquCB (constref a, b: AnsiString): Boolean; begin result := (a = b); end;
-function ansistrHashCB (constref a: AnsiString): LongWord; begin if (Length(a) > 0) then result := fnvHash(PChar(a)^, Length(a)) else result := 0; end;
-
function hashNewCommand (): TCmdHash;
begin
- result := TCmdHash.Create(ansistrHashCB, ansistrEquCB);
+ result := TCmdHash.Create(hashStrHash, hashStrEqu, hashStrFree);
end;