掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字化けを防止するためには？？ (ID：46255)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
失礼しました． 提示したコードでは，メモリリークが発生しますね． 修正コードです． procedure TForm1.Button1Click(Sender: TObject); var SWriter : TStreamWriter; Enc : TEncoding; i : Integer; begin //保存するファイル //そのまま保存するとUTF-8Nになるので，エンコードしてShift-JISで保存 Enc := TEncoding.GetEncoding(932); SWriter := TStreamWriter.Create(SaveFilePath, False, Enc); try for i := 0 to LinesCnt - 1 do begin SWriter.WriteLine(TestText); Application.ProcessMessages; end; finally SWriter.Close; SWriter.Free; Enc.Free; end; Application.MessageBox('作成しました', '情報'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.