我真急死了！(50分)

你好！
我真急死了！
界面上一个RICHEDIT，一个BUTTON，一个SAVEDIALOG，我想
把写在RICHEDIT里的文字保存成TXT文本文件，程序如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
with savedialog1 do
if Execute then
begin
richedit1.Lines .SaveToFile (FileName );
Caption :='TEXT DEMO'+ExtractFileName (FileName );
end;
end;

问题一：保存是成功了，可是保存后的文本文件里面内容
全是以下的形式：
{/rtf1/ansi/deff0/deftab720{/fonttbl{/f0/fnil MS Sans Serif;}{/f1/fnil/fcharset2 Symbol;}{/f2/fswiss/fprq2 System;}{/f3/fnil/fcharset134 MS Sans Serif;}}
{/colortbl/red0/green0/blue0;}
/deflang1033{/info{/horzdoc }{/*/fchars !),.:/'3b?/}]/'a1/'a2/'a1/'a3/'a1/'a4/'a1/'a5/'a1/'a6/'a1/'a7/'a1/'a8/'a1/'a9/'a1/'aa/'a1/'ab/'a1/'ac/'a1/'ad/'a1/'af/'a1/'b1/'a1/'b3/'a1/'b5/'a1/'b7/'a1/'b9/'a1/'bb/'a1/'bd/'a1/'bf/'a1/'c3/'a3/'a1/'a3/'a2/'a3/'a7/'a3/'a9/'a3/'ac/'a3/'ae/'a3/'ba/'a3/'bb/'a3/'bf/'a3/'dd/'a3/'e0}{/*/lchars ([/{/'a1/'ae/'a1/'b0/'a1/'b2/'a1/'b4/'a1/'b6/'a1/'b8/'a1/'ba/'a1/'bc/'a1/'be/'a3/'a8/'a3/'db/'a3/'fb/'a3/'ae/'a1/'a4}}
/pard/plain/f3/fs16 delphi
/par
/par }
是不是程序写错了？！

问题二：我已经把SAVEDIALOG的FILTER写成*.txt了，但是保存
在硬盘上的文件却是没有后缀名的，怎么办？

以上问题请大家帮忙解决，我急死了！

你这样把rif的格式都保存了，应该用richedit的方法。

richedit.plaintext:=true;
richedit.lines.savetofile('');
savedialog.defaultext:='*.txt';
还有有关的几个属性，具体情查看它们的帮助。

太简单了!
我用文本文件类型,并用Writeln(FilVar, xx)循环写入文件,就没有这个问题了!

接受答案了.