Yet more delphi 2010 fixes

[lcore.git] / btime.pas

diff --git a/btime.pas b/btime.pas
index de279dff7465919fea302d7dc1e707b66f818c70..ea199c615081be7da36ae3e9278d64f81016247b 100644 (file)
--- a/btime.pas
+++ b/btime.pas
@@ -543,7 +543,7 @@ begin
 \r
   if timezone >= 0 then timezonestr := '+' else timezonestr := '-';\r
   l := abs(timezone) div 60;\r
 \r
   if timezone >= 0 then timezonestr := '+' else timezonestr := '-';\r
   l := abs(timezone) div 60;\r

-  timezonestr := timezonestr + char(l div 600 mod 10+48)+char(l div 60 mod 10+48)+':'+char(l div 10 mod 6+48)+char(l mod 10+48);\r
+  timezonestr := timezonestr + ansichar(l div 600 mod 10+48)+ansichar(l div 60 mod 10+48)+':'+ansichar(l div 10 mod 6+48)+ansichar(l mod 10+48);\r

 end;\r
 \r
 function timestrshort(i:integer):ansistring;\r
 end;\r
 \r
 function timestrshort(i:integer):ansistring;\r