关于在TStringList里面搜索字符串的问题，头都想晕了，请各位帮帮忙！

Question

有两个TStringList，StrList1和StrList2. 里面分别记录着若干内容？
请问怎样才能判断StrList1里面的内容等于StrList2里面的内容了？比如说StrList1里面的内容为:
'Delphi','Borland','Jbuilder','C++Builder';
第二个里面为：'Microsoft'，'Delphi','Borland','Visual C++','Visual Basic';StrList1里面就有两个字符串等于StrList2的内容.
我知道要判断StrList1里面的内容是否有等于StrList2的内容
只需把StrList1中的每个字符串去比较StrList2中的每个字符串，如果相等就用
ShowMessage();显示出来。
但是这个程序应该怎么写了！请各位高手帮帮忙，谢谢！

Answer 1

var
StrList1,StrList2:tstringlist;
i,j:integer;
begin
  StrList1:=tstringlist.create;
  StrList2:=tstringlist.create;
  StrList1.Delimiter :=',';
  StrList2.Delimiter:=',';
  StrList1.DelimitedText:='Delphi,Borland,Jbuilder,C++Builder';
  StrList2.DelimitedText:='Microsoft,Delphi,Borland,Visual C++,Visual Basic';
  for i:=0 to StrList1.count-1 do
  begin
    for j:=0 to StrList2.Count-1 do
      if StrList1[i]=StrList2[j] then
        showmessage(StrList1[i]);
  end;
  StrList1.free;
  StrList2.Free;
end;