LoadTextFromStreamA
Description
Ajoute un flux de texte codé ANSI au document.
function LoadTextFromStreamA (Stream: TStream; StyleNo, ParaNo: Integer; AsSingleParagraph: Boolean): Boolean;
Paramètre |
Description |
Stream |
Le flux qui contient le fichier texte encodé ANSI. |
StyleNo |
Le numéro du style de texte. Non utilisé, utilisez la valeur 0. |
ParaNo |
Paramètre facultatif. Si ParaNo = -1, la méthode ajoute un élément à la fin du dernier paragraphe. Si ParaNo> = 0, cet élément commence un nouveau paragraphe. |
AsSingleParagraph |
Si False, chaque nouvelle ligne sera ajoutée en tant que nouveau paragraphe. Si True, elle traite les # 13 et # 10 comme des sauts de ligne, pas comme des sauts de paragraphe. |
Exemple
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var TxtFile: TFileStream;
begin
TxtFile := TFileStream.Create('d:\file.txt', fmOpenRead);
try
Form1.RichEdit1.LoadTextFromStreamA(TxtFile, 0, -1, True);
finally
TxtFile.Free;
end;
end;