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

a:=TStringList.Create;a.CommaText:='aaa,bbb,ccc';b:=TStringList.Create;b.CommaText:='... 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 不能直接进行运算
展开
 我来答
fit大虾
2011-07-31 · TA获得超过564个赞
知道小有建树答主
回答量:551
采纳率:50%
帮助的人:254万
展开全部
先把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;
mit1208
2011-07-31 · TA获得超过2347个赞
知道大有可为答主
回答量:2743
采纳率:0%
帮助的人:1860万
展开全部
也可以比对两个TStringList中的项是否都存在
如果都存在的话就不加入到C创建的TStringList内
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式