掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.