[jekahm]

Вот еще появился вопрос такого характера!
Теперь я пытаюсь сохранить файл из RichEdit в txt, используя вот такой вот код:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
  f: file;
  s: string;
begin
s := RichEdit1.Text;
RichEdit1.PlainText:=True;
  AssignFile(f, 'text.txt');
  Rewrite(f);
  BlockWrite(f, PChar(s)^, Length(s));
  CloseFile(f);
end;

Но в созданном txt файле показуется куча непонятных символов! Как этого можно избежать? Может есть какое-то форматирование?