utf8でのファイルの保存 (ID:25847)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.Button1Click(Sender: TObject); begin hozon := UTF8Encode(WideString(memo1.Lines.Text)); Memo1.Lines.Text := UTF8Decode(Memo1.Lines.Text); memo1.Lines.Text:=hozon; Memo1.Lines.SaveToFile('test.txt'); end; にしましたが、Memo1には文字化けで表示されるし、ファイルも文字化けというありさまです。 ちなみにDelphi6。