第1个回答 2011-07-11
告诉你一个思路:
1、定义两个TStringList
strl1,strl2,strl3:TstringList;
2、实例化:
strl1:=Tstringlist.create;
strl2:=tstringlist.create;
strl3:=tstringlist.create;
3、读取文件
strl1.loadfromfile(filename1);
strl2.loadfromfile(fliename2)
4、通过循环来比较有没有重复的
for i=0 to strl1.count-1 do
begin
flag:=true;//标记设为真
for k=0 to strl2.count-1 do
begin
if strl1[i].tostring=strl2[k].tostring then
begin
flag:=false;//如果有相同的,把标记设为假
break;
end
if flag then//标记为真,表示没有相同的,加到了第三个字符列表中
begin
strl3.add(strl1[i].tostring);
end;
end;
end
最后,strl3中的内容,就是排除了相同的。保存一下:strl3.savetofile(filename);
记得把strl1,strl2,strl3都free掉。