|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Сравнение StringList
Допустим есть 2 TStringsList. В первом текст такой: "Олег, Андрей, Владимир", а во втором:"Олег, Андрей, Владимир, Сергей". Так вот, как эти 2 StringList сравнить и записать разницу в 3 StringList. Чтобы в нем было: "Сергей".
|
#2
|
|||
|
|||
видимо никто не знает(
|
#3
|
||||
|
||||
1. Общим циклом перебираем StringList1
2. Код:
StringList2.IndexOf(StringList1[index]); 3. Повторяем всё точно так же для SL2... Это в случае, если по одному имени на строку. Если они через запятую, или ещё как - гугол, как ни странно, работает, ищи "Разделение текста StringList Delphi" Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#4
|
|||
|
|||
Код:
var first, second, third:TStringList; i,k:integer; begin first:=TStringList.Create; second:=TstringList.Create; third:=TstringList.Create; first.Add('Oleg'); first.Add('Vladimir'); first.Add('Andrey'); second.Add('Oleg'); second.Add('Vladimir'); second.Add('Andrey'); second.Add('Sergey'); Memo1.Lines:=first; Memo2.Lines:=second; for I := 0 to second.Count do p.s. до этого не работал с StringList(( Я немного не понял StringList2.IndexOf(StringList1[index]); |
#5
|
||||
|
||||
Пока что всё верно, только в последней строчке
Код:
for I := 0 to second.Count - 1 do Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#6
|
|||
|
|||
Код:
for I := 0 to second.Count-1 do if not first.IndexOf(second[i])=second.IndexOf(first[i]) then third.Add(second[i]); Последний раз редактировалось Klo, 10.06.2010 в 19:51. |