StringをUTF-8フォーマットに変換 uses Windows; function ToUTF8(s: String): String; var ws: WideString; len: Integer; begin ws := WideString(s); len := WideCharToMultiByte(CP_UTF8, 0, PWideChar(ws), -1, Nil, 0, Nil, Nil); SetLength(Result, l…