在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后缀,里面的内容就是我需要的中文段落了。 展开
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后缀,里面的内容就是我需要的中文段落了。 展开
3个回答
展开全部
如果你确认RichEdit中的内容是纯文本,不要任何版式控制信息的话,可以设置属性:
RichEdit.PlaneText := True;
RichEdit.PlaneText := True;
展开全部
请参考ranjian32回答。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询