delphi - メモまたはRichEditをUTF8テキストファイルとして保存するにはどうすればよいですか？

Question

私はDelphi7を使用しています。ユーザーから情報を取得し、いくつかのエディットボックスやメモ、その他の入力コンポーネントからの情報をメモにまとめるプログラムを作成しました。このメモをUTF8テキストファイルとして保存するにはどうすればよいですか？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;