如何读取文本文件中的换行符

Question

用Readln(FFile,s) 读取的s串是没有包括换行符的
要如何读取文本文件中的换行符呀?

Answer 1

先整个Read，然后找ASCII码里的换行符大约就可以了
（偶对Delphi不熟，这应该是通用的）

Answer 2

如何读文本文件的一行(包括换行符),然后放在一个字符数组里呢使用tstringlistprocedure TForm1.Button1Click(Sender: TObject);
var
 t : TStringList;
begin
   t := TStringList.Create;
   t.LoadFromFile('d:\a.txt');
   showmessage(t[1]);
   t.Free;
end;

Answer 3

不好意思,没说清楚.
是   ARRAY[501] OF String; 这种数组呀?
如何读文本文件的一行(包括换行符),然后放在ARRAY数组里呢

Answer 4

使用无类型的文件
var  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then     { Display Open dialog box }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1); { Record size = 1 }
    if SaveDialog1.Execute then      { Display Save dialog box}
    begin
      AssignFile(ToF, SaveDialog1.FileName); { Open output file }      Rewrite(ToF, 1); { Record size = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;
将读出来的内容放到一个缓冲区，如果包含回车符的话，将回车符及之前的字符放到字符串数组中去

Answer 5

不好意思,没说清楚.  
是      ARRAY[501]  OF  char ;  这种数组呀?  
如何读文本文件的一行(包括换行符),然后放在ARRAY数组里呢