合并或添加两个TStringLists[英] Combine or Add two TStringLists together

本文是小编为大家收集整理的关于合并或添加两个TStringLists的处理方法,想解了合并或添加两个TStringLists的问题怎么解决?合并或添加两个TStringLists问题的解决办法?那么可以参考本文帮助大家快速定位并解决问题。

问题描述

如何将两个 TStringList 对象相互添加或组合?例如.

varList1, List2, List3 : TStringList;开始List1.Add('Line1List1');List1.Add('Line2List1');List2.Add('Line1List2');List2.Add('Line2List2');结束


是具有各自字符串的两个列表.如何将它们组合成一个列表?
像 List3 一样:
'Line1List1''Line2List1''Line1List2''Line2List2'

即 (List1 + List2).

我怎样才能做到这一点?没有找到帮助...

推荐答案

procedure MergeStrings(Dest,来源:TStrings);var j : 整数;开始for j := 0 to -1+ 来源.Count doif Dest.IndexOf(Source[j]) = -1 然后Dest.Add(Source[j]) ;结束;


http://delphi.about.com/cs/adptips2003/a/bltip0703_4.htm[^]

你可以用 dupIgnore 设置 TStringList 对象的 Duplicate 方法:

procedure CombineStrings(S1, S2, CombinedList: TStringList);开始S1.Duplicates := dupIgnore;S1.排序:=真;S1.AddStrings(S2);组合列表:= S1;结束;


示例:

varSList1, SList2: TStringList;开始SList1 := TStringList.Create;SList2 := TStringList.Create;试试SList1.Add('Item 1');SList1.Add('Item 2');SList2.Add('Item 1');SList2.Add('Item 2');SList2.Add('Item 3');组合字符串(SList1,SList2,SList1);ListBox1.Items.Assign(SList1);终于SList1.免费;SList2.免费;结束;end;

本文地址:https://www.itbaoku.cn/post/1355998.html