delphi将两个Strlist合并，求交集 （保留相同的）

标签：var   for   add   合并   保留   .com   相同   cti   list   

Function StrList_Join(StrListA,StrListB:String):String; //将两个Strlist合并，求交集 （保留相同的）
var SListA,SListB,SListC:TStringList;
i:Integer;
begin
Result := ‘‘;
Try
SListA := TStringList.Create;
SListB := TStringList.Create;
SListC := TStringList.Create;
SListA.CommaText := StrListA; SListB.CommaText := StrListB;
for i:=0 to SListA.Count-1 do begin
if SListB.IndexOf(SListA[i])>=0 then SListC.Add(SListA[i]);
end;
Result := SListC.CommaText;
Finally
FreeAndNil(SListA); FreeAndNil(SListB); FreeAndNil(SListC);
end;
end;

delphi将两个Strlist合并，求交集 （保留相同的）

标签：var   for   add   合并   保留   .com   相同   cti   list   

原文地址：http://www.cnblogs.com/xwgcxk/p/7233788.html