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

名前

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

本文 「これで↓元に戻るか」ってコト聞いてるんだけど... procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Text := UTF8Encode(WideString(Memo1.Lines.Text)); Application.ProcessMessages; ShowMessage('UTF8エンコード'); Memo1.Lines.Text := UTF8Decode(Memo1.Lines.Text); ShowMessage('UTF8デコード'); end; ンで、...ジカにヤルならコレ↓ procedure TForm1.Button2Click(Sender: TObject); var hozon : string; begin hozon := UTF8Encode(WideString(Memo1.Lines.Text)); with TFileStream.Create('test.txt', fmCreate) do try Write(hozon[1], Length(hozon)); finally Free; end; end;