如何將備忘錄或RichEdit保存爲UTF 8文本文件？

Question

我使用的是Delphi 7，我編寫了一個程序，它可以從用戶那裏獲取一些信息，將來自幾個編輯框和備忘錄以及備忘錄中的其他輸入組件的信息結合起來。如何將此備忘錄保存爲UTF 8文本文件？ 我收到了來自最後程序的用戶的一些文件，沒有解決utf問題，現在，當我打開輸出文件時，我看到了？ （如你所知！）而不是不同的語言字符，這些不可恢復，是嗎？

Answer 1

像這樣：

const 
    UTF8BOM: array[0..2] of Byte = ($EF, $BB, $BF); 
var 
    UTF8Str: UTF8String; 
    FS: TFileStream; 
begin 
    UTF8Str := UTF8Encode(Memo1.Text); 

    FS := TFileStream.Create('C:\path to\file.txt', fmCreate); 
    try 
    FS.WriteBuffer(UTF8BOM[0], SizeOf(UTF8BOM)); 
    FS.WriteBuffer(PAnsiChar(UTF8Str)^, Length(UTF8Str)); 
    finally 
    FS.Free; 
    end; 
end;