掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
改行コードを判別したいのですが (ID：8790)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になっております。 固定長のテキストファイルを読み込んでその改行コードを判別したいのですが、 （CFLF か CR か LF か) こんなときはどのようなファイルオープンの方法が一般的でしょうか。 …以下のコードだと改行コードが読み込まれず判別できませんでした procedure TForm1.Button1Click(Sender: TObject); var F : TextFile; S : string; e : integer; m : string; begin OpenDialog1.Execute; AssignFile(F, OpenDialog1.FileName); Reset(F); Readln(F, S); e := length(S); if #13 = S[e] then m := 'CR' else if #10 = S[e] then if #13 <> S[e-1] then m := 'CRLF' else m := 'LF'; Showmessage(s + ' : ' + m); CloseFile(F); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.