Question

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

程序如下：
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后缀，里面的内容就是我需要的中文段落了。

Answer 1

RichEdit，富文本，它本身就不是txt，是包含有格式描述的文本，你所看到的代码，就是描述文本格式用的。你要保存为txt，只能使用memo，一定要用richedit的话，只能保存为 rtf 或doc。rtf是richedit最标准的文件格式。

Answer 2

如果你确认RichEdit中的内容是纯文本，不要任何版式控制信息的话，可以设置属性：
RichEdit.PlaneText := True;

Answer 3

请参考ranjian32回答。