File

-------------------------- 加載含換行符的文件（如QQ聊天記錄)

//readln 不區分換行符(#10)，替換爲空字符
assignfile(lTextFile,mFile);
  reset(lTextFile);  //以只讀方式打開文件
  while not(eof(lTextFile))   do
    begin
      readln(lTextFile,s);
      mmo1.Lines.Add(s);
    end;
  CloseFile(lTextFile);

//TStringList.LoadFromFile 區分換行符(#10)
  lLstStr := TStringList.Create;
  lLstStr.LoadFromFile(mFile);
  for i:=0 to lLstStr.Count -1 do
    mmo1.Lines.Add(lLstStr.Strings[i]);
  lLstStr.Free;