求救！关于比较两个文本文件的问题

[mery1]

比较两个文本文件中的内容，当有相同的内容时，就删除掉其中的一个文本文件中相同的内容，其它，不变。

[aiirii]

你可考慮用個Map類容器, 將你的東西存進去, 再取出來!!

[gdwyh]

在FROM中加MEMO1和MEMO2,将文件1和文件2(要修改的文件)的内容分别读入MEMO1和MEMO2.

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
memo1.Lines.LoadFromFile('文件1');
memo2.Lines.LoadFromFile('文件2');
memo1.Text:=StringReplace(memo1.Text,#13#10,'',[rfReplaceAll]);
for i:=1 to length(memo1.Text) do
begin
j:=pos(memo1.Text[i],memo2.Text);
while j>0 do
begin
memo2.Text:=copy(memo2.Text,1,j-1)+copy(memo2.Text,j+1,length(memo2.Text)-j);
j:=pos(memo1.Text[i],memo2.Text);
end;
end;
memo2.Lines.SaveToFile(文件2);
end;

[大地精灵]

用文件流