掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
改行コードを判別したいのですが (ID:8792)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんばんわです。 簡単なサンプルです。 procedure TForm1.Button1Click(Sender: TObject); var F: File; Buffer: array of Byte; i,Char13,Char10,Char1310:integer; begin Char13 :=0; Char10 :=0; Char1310 :=0; AssignFile(F, 'c:\test.dat'); Reset(F, 1); SetLength(Buffer, FileSize(F)); BlockRead(F, Buffer[0], FileSize(F)); i:=0; repeat if Buffer[i]= $0D then begin if Buffer[i+1]= $0A then begin Char1310:= Char1310+1; i:=i+1; end else Char13 := Char13+1; end else if Buffer[i]= $0A then Char10 := Char10+1; i:=i+1; until i>=FileSize(F); CloseFile(F); Showmessage('CRLF '+inttostr(Char1310)); Showmessage('CR '+inttostr(Char13)); Showmessage('LF '+inttostr(Char10)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.