Сохранение в RichEdit

[photozaz]

выполняю сохранение через savedialog вок таким образом ::

var FName:string;
begin
SaveDialog1.FileName := FName;
if SaveDialog1.Execute then
 begin
  FName := SaveDialog1.FileName;
  RichEdit1.Lines.SaveToFile(FName);
 end;

сохраняю в файл и получаю вот такой текст ::
"{\rtf1\ansi\ansicpg1251\deff0\defla ng1049{\fonttbl{\f0\fnil MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs16 RichEdit1
\par
\par }"

с Memo все проходит, а вот RichEdit начинает выпендриваться, подскажите, как сохранить через RichEdit//

[Altera]

Да, действительно.
Я сделал так:

procedure{ Сохраняем }Tmain_form.save_buttonClick(Sender: TObject);
var
file_way: string;
string_list: tStringList;
begin
   if not save_dialog.Execute then exit;
   file_way := save_dialog.FileName;
   string_list := tStringList.Create;
   string_list.Text := editer.Text;
   string_list.SaveToFile(file_way);
   string_list.Free;
end;

procedure{ Загружаем }Tmain_form.SpeedButton1Click(Sender: TObject);
var
file_way: string;
string_list: tStringList;
begin
   if not open_dialog.Execute then exit;
   file_way := open_dialog.FileName;
   string_list := tStringList.Create;
   string_list.LoadFromFile(file_way);
   editer.Text := string_list.Text;
   string_list.Free;
end;

[strannik]

Перед сохранением добавь:
richedit1.plainText:=true;

[SERG1980]

или расширение смоему файлу добавляй *.rtf а не *.txt

[Altera]

или расширение смоему файлу добавляй *.rtf а не *.txt

*.rtf? Что за расширение???

[ReacXX]

var FName:string;   
begin   
SaveDialog1.FileName := FName;   
if SaveDialog1.Execute then   
 begin
  RichEdit1.PlainText := True;   
  FName := SaveDialog1.FileName;   
  RichEdit1.Lines.SaveToFile(FName);   
 end;

[SERG1980]

Сообщение от Altera

*.rtf? Что за расширение???

rtf = Rich Text Format

[Claster]

Ребята в чём проблема использовал ваши коды, Сохраняю но файл сохраняеться без расширения!!!!

[Манжосов Денис :)]

var FName:string;
begin
SaveDialog1.FileName := FName;
if SaveDialog1.Execute then
begin
FName := SaveDialog1.FileName;
RichEdit1.Lines.SaveToFile(FName);
end;

Переделав становиться проще
if not SaveDialog1.Execute then exit;
RichEdit1.Lines.SaveToFile(SaveDial og1.Filename+'.rtf')

*.rtf? Что за расширение???

Rich Text Format. Расширение это, которое позволяет сохранять дополнительные атрибуты текста такие, как цвет, шрифт и многие, многие другие.

[Claster]

А если необходимо сохранить под txt ??? пробовал так

if not SaveDialog1.Execute then exit;
RichEdit1.Lines.SaveToFile(SaveDialog1.Filename+'.rtf');
RichEdit1.Lines.SaveToFile(SaveDialog1.Filename+'.txt')

Сохраняет полную бредятину!