掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
改行コードを判別したいのですが (ID：8801)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ファイルから読み込んで、固定長を１０バイトとした場合は、例えば こんな感じのテキストをつくったとして procedure TForm1.Button1Click(Sender: TObject); var s:string; ms:TMemoryStream; begin s := '0123456789'+#10+'0123456789'; ms := TMemoryStream.Create; try ms.Write(s[1],Length(s)); ms.SaveToFile('c:\Test.txt'); finally ms.Free; end; end; これを以下のようにして読み込むと procedure TForm1.Button2Click(Sender: TObject); var ms:TMemoryStream; c:Char; begin ms := TMemoryStream.Create; try ms.LoadFromFile('c:\Test.txt'); ms.Position := 10; // 固定長を１０と仮定 ms.Read(c,1); case c of #10 :Showmessage('LF'); #13 :begin ms.Read(c,1); if c=#10 then Showmessage('CRLF') else Showmessage('CR'); end; end; finally ms.Free; end; end; ちゃんと Showmessage('LF'); が実行されます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.