掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
改行コード指定のテキストファイル保存 (ID:11356)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでうまくいくようです。 uses jconvert; procedure SaveTextWithReturnCode(filename, str: string; Rcode: integer); var ms:TMemoryStream; s:string; begin s := ConvertReturnCode(str,Rcode); ms := TMemoryStream.Create; try ms.Write(s[1],Length(s)); ms.SaveToFile(filename); finally ms.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin SaveTextWithReturnCode('c:\CovertTest.txt',Memo1.Text,LF_R); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.