SaveTextToStream
Назначение
Сохраняет документ в поток в текстовом формате с кодировкой 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;