Назначение


Сохраняет документ в поток в текстовом формате с кодировкой UTF-16.




Описание


function SaveTextToStream (const Path: String; Stream: TStream; LineWidth: Integer; SelectionOnly, TextOnly: Boolean): Boolean

 Параметр

 Назначение

 Path

 Путь, куда будут сохранены изображения и другие нетекстовые элементы. Смотри параметр TextOnly

 Stream

 Поток, в который сохраняется документ в текстовом формате.

 LineWidth

 Количество символов, которые будут обозначать горизонтальную линию с помощь знака "-"

 SelectionOnly

 Если True, то будет сохранена в поток только выделенная часть документа.

 TextOnly

 Если False, то будут сохранены и все нетекстовые элементы в папку Path



Пример


   procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
   var
       Txt: TFileStream;
   begin
       Txt := TFileStream.Create('d:\file.txt', fmCreate);
       try
           if Form1.RichEdit1.SaveTextToStream('', Txt, 1, False, True) then
               ShowMessage('Файл успешно сохранен')
           else
               ShowMessage('Во время экспорта произошла ошибка.');
       finally
           Txt.Free;
       end;
   end;