From 5c04c841812bdb200cc3c73169b1542aef6c2fc3 Mon Sep 17 00:00:00 2001
From: zipplet <zipplet@zipplet.co.uk>
Date: Wed, 10 Feb 2010 17:48:08 +0000
Subject: [PATCH 1/1] Yet more delphi 2010 fixes

git-svn-id: file:///svnroot/lcore/branches/delphi2010@72 b1de8a11-f9be-4011-bde0-cc7ace90066a
---
 btime.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.30.2