<< Click to display table of contents >> Loading UTF-8 files

This example shows how to load Unicode UTF-8 file:

procedure LoadUTF8(rv: TCustomRichView; const FileName: String; 

  StyleNo, ParaNo: Integer); 

var Stream: TFileStream; 

    s: TRVRawByteString; 

    ws: TRVUnicodeString; 

begin 

  Stream := TFileStream.Create(FileName, fmOpenRead); 

  SetLength(s, Stream.Size); 

  Stream.ReadBuffer(PRVAnsiChar(s)^, Stream.Size); 

  Stream.Free; 

  rv.Clear; 

  ws := UTF8Decode(s); 

  rv.AddTextNLW(ws, StyleNo, ParaNo, ParaNo, False); 

end; 

Call:

LoadUTF8(RichViewEdit1, 'test.txt', 0, 0); 

RichViewEdit1.Format; 

 

See also:

▪Unicode in TRichView.