![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Допустим есть 2 TStringsList. В первом текст такой: "Олег, Андрей, Владимир", а во втором:"Олег, Андрей, Владимир, Сергей". Так вот, как эти 2 StringList сравнить и записать разницу в 3 StringList. Чтобы в нем было: "Сергей".
|
|
#2
|
|||
|
|||
|
видимо никто не знает(
|
|
#3
|
||||
|
||||
|
1. Общим циклом перебираем StringList1
2. Код:
StringList2.IndexOf(StringList1[index]); 3. Повторяем всё точно так же для SL2... Это в случае, если по одному имени на строку. Если они через запятую, или ещё как - гугол, как ни странно, работает, ищи "Разделение текста StringList Delphi" |
|
#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 dop.s. до этого не работал с StringList(( Я немного не понял StringList2.IndexOf(StringList1[index]); |
|
#5
|
||||
|
||||
|
Пока что всё верно, только в последней строчке
Код:
for I := 0 to second.Count - 1 do |
|
#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. |