procedure TForm1.Button7Click(Sender: TObject); var i,j:integer; begin for i := 0 to memo1.Lines.Count-1 do begin j:=0; repeat inc(j); until (trim(memo1.Lines[i])=trim(memo2.Lines[j-1])) or (j=memo2.Lines.Count+1); if (j=memo2.Lines.Count+1) or ((j<memo2.Lines.Count+1) and (trim(memo1.Lines[i])<>trim(memo2.Lines[j-1]))) then memo3.Lines.Add(memo1.Lines[i]); end;
var i : Integer; begin Memo3.Lines.Clear; for i := 0 to Memo1.Lines.Count -1 do begin if Memo2.Lines.IndexOf(Memo1.Lines.Strings[i]) <> -1 then begin Memo3.Lines.Add(Memo1.Lines.Strings[i]); end; end; end;
----------------------------------------------
米软科技有限公司http://www.szmesoft.com