hedgewars/uUtils.pas
changeset 7074 3f23bd0f2af2
parent 7043 7c080e5ac8d0
child 7151 ec15d9e1a7e3
--- a/hedgewars/uUtils.pas	Sun May 13 01:54:26 2012 +0400
+++ b/hedgewars/uUtils.pas	Sun May 13 21:39:20 2012 +0400
@@ -88,7 +88,7 @@
         if (a[t] >= 'A')and(a[t] <= 'Z') then
             Inc(a[t], 32);
     b:= copy(a, i + 1, Length(a) - i);
-    byte(a[0]):= Pred(i)
+    a[0]:= char(Pred(i))
     end
 else
     b:= '';
@@ -237,9 +237,9 @@
     if s[i] = '=' then
         inc(c);
     if t > 0 then
-        byte(s[i]):= t - 1
+        s[i]:= char(t - 1)
     else
-        byte(s[i]):= 0
+        s[i]:= #0
     end;
 
 i:= 1;
@@ -256,7 +256,7 @@
 if c < 3 then
     t:= t - c;
 
-byte(DecodeBase64[0]):= t - 1
+DecodeBase64[0]:= char(t - 1)
 end;