Merged with delphi 2010 branch

[lcore.git] / fastmd5.pas

diff --git a/fastmd5.pas b/fastmd5.pas
index 891d0fc03b74744b60b6803a7a940f4205e82afa..6455e5cff31b69b770fa3ad0f55552780224b0c6 100644 (file)
--- a/fastmd5.pas
+++ b/fastmd5.pas
@@ -55,13 +55,13 @@ procedure md5finish(var state:tmd5state;var result);
 \r
 procedure getmd5(const data;len:longint;var result);\r
 \r
 \r
 procedure getmd5(const data;len:longint;var result);\r
 \r

-function md5tostr(const md5:tmd5):string;\r
+function md5tostr(const md5:tmd5):ansistring;\r

 \r
 implementation\r
 \r
 \r
 implementation\r
 \r

-function inttohex(val,bits:integer):string;\r
+function inttohex(val,bits:integer):ansistring;\r

 const\r
 const\r

-  hexchar:array[0..15] of char='0123456789abcdef';\r
+  hexchar:array[0..15] of ansichar='0123456789abcdef';\r

 begin\r
   inttohex := hexchar[val shr 4]+hexchar[val and $f];\r
 end;\r
 begin\r
   inttohex := hexchar[val shr 4]+hexchar[val and $f];\r
 end;\r


@@ -284,10 +284,10 @@ begin
   md5finish(t,result);\r
 end;\r
 \r
   md5finish(t,result);\r
 end;\r
 \r

-function md5tostr(const md5:tmd5):string;\r
+function md5tostr(const md5:tmd5):ansistring;\r

 var\r
   a:integer;\r
 var\r
   a:integer;\r

-  s:string;\r
+  s:ansistring;\r

 begin\r
   s := '';\r
   for a := 0 to 15 do s := s + inttohex(md5[a],2);\r
 begin\r
   s := '';\r
   for a := 0 to 15 do s := s + inttohex(md5[a],2);\r