在delphi中保存TXT文件后怎么全是代码,而用DOC保存出来的又是我需要的文字?

程序如下:procedureTForm1.Button3Click(Sender:TObject);beginwithSaveDialog1dobeginFilter:=... 程序如下:
procedure TForm1.Button3Click(Sender: TObject);
begin
with SaveDialog1 do
begin
Filter:='文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|所有文件(*.*)|*.*';
DefaultExt:='txt';
If execute then
RichEdit1.Lines.SaveToFile(FileName);
end;
end;
运行的时候保存为TXT后缀,出现的TXT文档里面的内容全部是代码,而保存为DOC后缀,里面的内容就是我需要的中文段落了。
展开
 我来答 举报
renjian32
2011-11-17 · TA获得超过2386个赞
知道大有可为答主
回答量:1339
采纳率:0%
帮助的人:1425万
展开全部
RichEdit,富文本,它本身就不是txt,是包含有格式描述的文本,你所看到的代码,就是描述文本格式用的。你要保存为txt,只能使用memo,一定要用richedit的话,只能保存为 rtf 或doc。rtf是richedit最标准的文件格式。
己闻楣Sx
2011-11-18 · TA获得超过1935个赞
知道大有可为答主
回答量:1057
采纳率:93%
帮助的人:909万
展开全部
如果你确认RichEdit中的内容是纯文本,不要任何版式控制信息的话,可以设置属性:
RichEdit.PlaneText := True;
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
百年情殇
2011-11-17 · TA获得超过157个赞
知道小有建树答主
回答量:221
采纳率:0%
帮助的人:152万
展开全部
请参考ranjian32回答。
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式