delphi向WORD写入text字段值时出现乱码
采用Adoquery从数据库查找数据，数据库中该字段为text类型，往WORD中写入时出现乱码
使用语句如下：
TempStr := Adoquery1.FieldValues['Test']);
WordDocument1.Range.InsertAfter(TempStr);//显示乱码
改成TempStr := Adoquery1.Fields[0].AsString;
还是乱码
写入语句没问题，一般的string类型可以正常显示
[解决办法]
你Showmessage(TempStr)看是不是乱码。
[解决办法]
我试了是正常的。不知道你出了什么问题。
[解决办法]
是的。我是直接存的。
[解决办法]
RichEdit1.Lines.SaveToStream(TempStream)是直接把RichEdit1的所有内容存到流中的，包括控制和字符串，你可以直接把RichEdit1.Lines.Text写到Word中试试。
