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

Question

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

Answer 1

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

Answer 2

在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;