两个stringlis的比较,在stringlistB中找出stringlistA里没有的出现过的原素,怎么写语句(50)

tstringlistA tstringlistB 1 1 2 2 6 7 8 8tstringlistA - tstringlistB = 7 (7在 tstringlistA里面没有出现过)

两个FOR循环，然后用INDEXOF判断

可以具体点吗,谢谢

给你一个比较两个stringlist是否相同的函数作参考function CheckTwoStringListHaveSameItem(strlst1,strlst2:TStringList):Boolean; var iLoop:Integer; begin Result:=False; if strlst1.Count<strlst2.Count then begin for iLoop:=0 to strlst1.Count-1 do if strlst2.IndexOf(strlst1.Strings[iLoop])>=0 then begin Result:=True; break; end end else begin for iLoop:=0 to strlst2.Count-1 do if strlst1.IndexOf(strlst2.Strings[iLoop])>=0then begin Result:=True; break; end; end;end;

二楼说的好