[Klo]

Допустим есть 2 TStringsList. В первом текст такой: "Олег, Андрей, Владимир", а во втором:"Олег, Андрей, Владимир, Сергей". Так вот, как эти 2 StringList сравнить и записать разницу в 3 StringList. Чтобы в нем было: "Сергей".

[Klo]

видимо никто не знает(

[PhoeniX]

1. Общим циклом перебираем StringList1
2.

Код:

StringList2.IndexOf(StringList1[index]);

- если не найдено - добавляем (SL3.Add...)
3. Повторяем всё точно так же для SL2...

Это в случае, если по одному имени на строку.
Если они через запятую, или ещё как - гугол, как ни странно, работает, ищи "Разделение текста StringList Delphi"

[Klo]

Код:

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]);

[PhoeniX]

Пока что всё верно, только в последней строчке

Код:

for I := 0 to second.Count - 1 do

Delphi TStringList IndexOf, на первой же странице есть ссылка на ответ. Если не силён в английском - есть на русском, чуть дальше.

[Klo]

Код:

for I := 0 to second.Count-1 do
if not first.IndexOf(second[i])=second.IndexOf(first[i]) then
third.Add(second[i]);

но выдает исключение(( Мне получается нужно так, чтобы если во второй лист добавились новые имена - эти имена отобразить в 3 листе(

[Страдалецъ]

В Third вам надо добавлять разницу между элементами, а вы просто копируете элемент из Second.
Но даже и так, все равно неправильно будет работать, т.к. вы находите элемент которого нет в списке, а у вас задача найти похожий частично элемент и разницу добавить в новый список.

[PhoeniX]

Код:

for I := 0 to first.Count-1 do
if second.IndexOf(first[i])<0 then
third.Add(first[i]);

for I := 0 to second.Count-1 do
if first.IndexOf(second[i])<0 then
third.Add(second[i]);

Как-то так, не уверен про правильность вызова IndexOf, но я направил тебя в нужную сторону.
С тебя +.

[Aristarh Dark]

Klo, вы уж меня извините, но сравнивать строки в вашем контексте - довольно нетривиальная задача (я бы написал процедуру, но потратил бы на нее несколько месяцев и запросил 4-х значную сумму в еврах).
Переставте задачу, или, если задача не переставляется - измените подход. Иначе - см. выше.
ЗЫЖ Феникс как всегда гонит пургу

[PhoeniX]

Аристарх, обоснуй
Дело упирается в сравнение двух списков...

[Aristarh Dark]

А что и с чем ты сравнил? Ты уровнял списки - круто, но не то что нужно.
ЗЫЖ Я редко (почти никогда) ошибаюсь, не нужно меня проверять.

[PhoeniX]

Присмотрись к коду. Я перебираю список А, и, если чего-то не нахожу из этого списка в списке Б, добавляю это "что-то" в список В. После чего повторяю то же самое для списка Б к списку А.
В каком месте я их уравниваю? В списке В получается разница между списками А и Б. Не это ли нужно?

[Aristarh Dark]

ну... не считая того что это все будет падать.. ты наверное (бугагашечки) прав...

[Aristarh Dark]

Как я сказал уже - сравнение строк - нетривиальная задача.
Тут иногда (а лучше всегда это делать) думать надо......
ЗЫЖ (многоточие означает - задумайтесь)

[PhoeniX]

То, что это будет падать, это гемор уже не мой. Мне сказали - "засунуть разницу списков А и Б в список В" - я написал пример. Остальное не моя забота.