＋设为首页 ＋添加到收藏夹
A，B两文本文件，读取A的一行与B的每行比较，若B中含有从A中读取的字符串，则删掉B中的这一行，直到将A中的每一行读完。
如何实现，如果A，B两文件比较大，怎样做处理速度快一些？
用TStringList读入
if Pos(BText, AText) > 0 then
begin
//如果文件很大，不要删除行，而新建一个文件，把不相同的行写入，速度快得多！
end;
用内存换取速度，还是很可行的。否则TStringList移动行的时间会极为漫长。
List := TStringList.Create;
for ...
begin
if Pos(AText, BText) >0 then
continue
else
List.Add(AText);
end;
List.SaveToFile();
