AppendTextFromStream
Назначение
Добавление содержимое текстового потока в 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;