From: zipplet <zipplet@zipplet.co.uk>
Date: Wed, 10 Feb 2010 17:48:08 +0000 (+0000)
Subject: Yet more delphi 2010 fixes
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/5c04c841812bdb200cc3c73169b1542aef6c2fc3?ds=sidebyside

Yet more delphi 2010 fixes

git-svn-id: file:///svnroot/lcore/branches/delphi2010@72 b1de8a11-f9be-4011-bde0-cc7ace90066a
---

diff --git a/btime.pas b/btime.pas
index de279df..ea199c6 100644
--- a/btime.pas
+++ b/btime.pas
@@ -543,7 +543,7 @@ begin
 
   if timezone >= 0 then timezonestr := '+' else timezonestr := '-';
   l := abs(timezone) div 60;
-  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);
+  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);
 end;
 
 function timestrshort(i:integer):ansistring;