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