delphi向WORD写入text字段值时出现乱码
采用Adoquery从数据库查找数据，数据库中该字段为text类型，往WORD中写入时出现乱码
使用语句如下：
TempStr := Adoquery1.FieldValues['Test']);
WordDocument1.Range.InsertAfter(TempStr);//显示乱码
改成TempStr := Adoquery1.Fields[0].AsString;
还是乱码
写入语句没问题，一般的string类型可以正常显示
你Showmessage(TempStr)看是不是乱码。
我试了是正常的。不知道你出了什么问题。
显示tempStr还是乱码,我觉得可能是我们存入数据的方式不一样
我是用流的方式存的，代码如下：
var
TempStream: TMemoryStream;
RichEdit1.Lines.SaveToStream(TempStream);
AdoQuery1.Parameters.ParamByName('Test').LoadfromStream(TempStream,ftString);
你的数据应该是直接存入的吧？
是的。我是直接存的。
什么版本的，是不是宽字符问题
这个和存储方式有关的，如3楼所述，你改用流的方式存贮试一下。
拜托，三楼就是我自己，直接存的话没问题，用流的方式存就不能正确显示了
之前的数据是这么存入数据库的，不过现在写到WORD里面是需要从数据库中读出的
我用RichEdit来接收数据库中的数据，再将它写入到WORD里面这种方法是可以的，不过我想知道有没有一个方法，可以不借用这个控件�
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
delphi隐藏运行QQ程序
可以实现隐藏登录！但必须是2008年以前的版本。09及以后自动登录有些难度。
可以实现 不过分太少
可以实现的呀
顶
你到底要干什么,� ......
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET','http://www.google.com', False);
xml.Send;
xml.responseText;
使用xml.responseText可以获取网页源码,但是再次 ......
