Назначение


Добавление содержимое текстового потока в UTF-16 кодировке, в документ.




Описание


 function AppendTextFromStream (Stream: TStream; StyleNo, ParaNo: Integer; AsSingleParagraph: Boolean): Boolean;

 Параметр

 Назначение

 Stream

 Текстовая строка, не может содержать символы CR, LF, TAB, FF (#13, #10, #9, #12).

 StyleNo

 Номер стиля. Не используется, используйте значение 0

 ParaNo

 Необязательный параметр. Номер параграфа. Если ParaNo = -1, текст добавляется в конец последнего параграфа, если ParaNo >= 0, текст добавляется в новый параграф.

 AsSingleParagraph

 Если False, каждая новая строка будет добавлена как новый параграф. Если True, параграфы для каждой строки создаваться не будут.



Пример



   procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
   var
       TxtFile: TFileStream;
   begin
       TxtFile := TFileStream.Create('d:\file.txt', fmOpenRead);
       try
           Form1.RichEdit1.AppendTextFromStream(TxtFile, 0, -1, True);
       finally
           TxtFile.Free;
       end;
   end;