delphi中把一个字符串保存到一个文本文件中。有没有什么方法以GB18030的编码方式保存？

windows并没有直接提供GB18030的编码支持，不过你可以使用他支持的Unicode对应地区码的转换，来自己处理编码保存。

从Unicode编码到GB18030编码的映射方法如下：

U=Unicode编码-0x10000
m1=U/12600
n1=U%12600
m2=n1/1260
n2=n1%1260
m3=n2/10
n3=n2%10
第一字节b1=m1+0x90
第二字节b2=m2+0x30
第三字节b3=m3+0x81
第四字节b4=n3+0x30


如果你不能理解上面的内容，请看这篇文章：
http://forgetoneself.


[ 本帖最后由 东海一鱼 于 2010-7-29 10:30 编辑 ]

看成整数，直接移位。岂不快哉！

 buf[0]:= '1';
 buf[1]:= '2';
 buf[2]:= '3';
 buf[3]:= '4';

 Integer(buf):= Integer(buf) shr 8;       //嘿嘿，想想为什莫是shr而不是shl
 ShowMessage('str: ' + buf[0] + buf[1]+ buf[2]);