파일을 읽어들이는 방법에서 read함수를 사용할 경우
Chr(13) + Chr(10)을 비교할 수 있습니다.
var
F: TextFile;
ch: Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog box }
Reset(F);
while Eof(F) do begin
read(F,Ch);
if Ch = Chr(13) then xxxx
end;
CloseFile(F);
end;
위처럼 Text 파일을 한 Char씩 읽어들이는 방법으로 비교를 하거나
아니면 버퍼형식으로 전체를 읽어들여 Chr(13) + Chr(10)을 찾는 방법도 있습니다.
구체적으로 목적을 애기해주시면 자세한 방법을 적어들이겠습니다.
토이가...
|