Description


Ajoute un flux de texte encodé UTF-16 au document.



function LoadTextFromStream (Stream: TStream; StyleNo, ParaNo: Integer; DefAsSingleParagraph: Boolean): Boolean;

 Paramètre

 Description

 Stream

 Le flux qui contient le fichier texte encodé UTF-16.

 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.

 DefAsSingleParagraph

 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 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.LoadTextFromStream(TxtFile, 0, -1, True);
       finally
           TxtFile.Free;
       end;
   end;