RTF

[Mickle]

Привет Всем!
Кто знает как можно преобразовать файл с расширение Doc в RTF чтоб можно было открывать в RichEdit для просмотра или редактирования текста.
И ещё, как сохранить RTF файл в файл с расширением TXT кто знает подскажите.
Зарание благодарю...

[Umen]

1. Откраваешь doc в Ворде, выбираешь "сохранить как"
в поле тип файла выбираешь "тексто в формате rtf", жмёшь сохранить.
2. Аналогично. Если нужно с помошью Делфи, то заливаешь ртф в RichEdit, потом выставляешь свойство plaintex := false
и RichEdit1.Lines.SaveToFile(Name)

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.PlainText := false;
  if Opendialog1.Execute then
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.PlainText := true;
  if SaveDialog1.Execute then
    RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

При нажатии на Button1 в RichEdit1 заливается текст из файла, открытого в Opendialog1.

При нажатии на Button2 текст из RichEdit1 сохраняется в текстовый файл, выбраный в SaveDialog1

[Mickle]

Спасибо большое Umen