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;