Назначение


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




Описание


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

 Параметр

 Назначение

 Stream

 Поток, в котором содержится текстовый файл в кодировке ANSI.

 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.AppendTextFromStreamA(TxtFile, 0, -1, True);
       finally
           TxtFile.Free;
       end;
   end;