-------------------------- 加载含换行符的文件(如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;