Question

delphi 语言中 我想做个 TStringList 类的运算

a:= TStringList.Create; a.CommaText:='aaa,bbb,ccc';
b:= TStringList.Create; b.CommaText:='aaa,bbb';
c:= TStringList.Create;
------------想得到 c:=a - b 即：结果为b.CommaText:='ccc';
请问怎么实现？ 貌似TStringList 不能直接进行运算

Answer 1

先把a加到c，再循环查找b的项目并删除，但你的每个项目不能相同，例如。a.CommaText:='aaa,bbb,aaa,ccc'出现2个aaa的不好算了。
var a,b,c:TStringList;
i:integer;
begin
a:= TStringList.Create; a.CommaText:='aaa,bbb,ccc';
b:= TStringList.Create; b.CommaText:='aaa,bbb';
c:= TStringList.Create;
c.Assign(a);
for i:=0 to b.Count -1 do begin
if c.IndexOf(b[i])>-1 then c.Delete(c.IndexOf(b[i]));
end;
showmessage(c.CommaText);
end;

Answer 2

也可以比对两个TStringList中的项是否都存在
如果都存在的话就不加入到C创建的TStringList内