Description


Ajout le contenu d'un flux de texte codé ANSI au document.



function AppendTextFromStreamA (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, il traite les # 13 et # 10 comme des sauts de ligne et non 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.AppendTextFromStreamA(TxtFile, 0, -1, True);
       finally
           TxtFile.Free;
       end;
   end;