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;