---

■スレッドリストへ戻る■ 全部 1- 最新50

MonaUtils

8 ：turbotypeD@monazilla.org(ｗ ：2001/03/08(木) 16:57

スンマソン、さっそくお頼みしたいでやんす。テキストファイルのIO処理で。//ファイルに文字列を書き込む
procedure SaveToFileFromString(const FileName, Str: String);
var
　F: TextFile;
begin
　if DirectoryExists(ExtractFileDir(FileName))=False then
　　ForceDirectories(ExtractFileDir(FileName));
　　{ｳｴ(´Д｀) フォルダが存在しない場合作成する}
　try
　　AssignFile(F, FileName);
　　Rewrite(F);
　　Write(F, Str);
　finally
　　CloseFile(F);
　end;
end;
この関数はばっちりなんだけど。//ファイルから文字列を読み込む
function LoadFromFileToString(const FileName: String): String;
var
　SL: TStringList;
begin
　Result := '';
　if FileExists( FileName ) then
　begin
　　SL := TStringList.Create;
　　try
　　　SL.LoadFromFile(FileName);
　　　Result := SL.Text;
　　finally
　　　SL.Free;
　　end;
　end; //if FileExists
end;
こっちがStringListつかっていてへちょいです。
へちょいだけなら別によいのですが
CRLFの改行コードが自動的にWinになってしまうので
困っているのです.このLoadFromFileToStringも
AssignFileなどで実装してもらえないでしょうか。
(CRLFは元のままResultしてくれるようなヤツでお願いしたいっす。)

25KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30