TStringList операции с данными

[Shouldercannon]

В цикле добавляем в TStringList данные типа:
Red
Green
Yellow
Brown
Black
Такие записи могут повторяться и может получиться на выходе:
Red
Red
Red
Green
Yellow
Yellow
Brown
Black
Black
Black
После чего делаем проверку в TStringList на повторные записи. При проверке мы подсчитываем сколько раз повторяется то или иное слово (Red = 3, Green = 1, Yellow = 2, Brown = 1, Black = 3). Потом подсчитываем сколько всего разных записей (Red, Green, Yellow, Brown, Black = 5).
Такое реально сделать?

[FaTaL]

КОнечно, С помощью второго СтрингЛиста.

[SERG1980]

во второй стринглист добавляете данные из первого запрещая дубликаты

//откидываем дубликаты
sl2.Sorted := True;//обязательно
sl2.Duplicates:=dupIgnore;
sl2.Assign(sl1);//копируем содержимое первого листа

потом в цикле перебирая строки второго листа сравниваем в цикле с первым листом и подсчитываем

[Serge_Bliznykov]

абсолютно несложно и на одном TStringList'е такое написать. Особенно, если допустимо отсортировать содержимое методом .Sort
тогда вообще без поиска - прямой однопроходный цикл даст требуемое число.


p.s.

Сообщение от SERG1980

потом в цикле перебирая строки второго листа сравниваем в цикле с первым листом и подсчитываем

а зачем в вашем варианте перебор?
sl2.Count уже сразу даст ответ о количестве разных записей...



ДОБАВЛЕНО
кстати, я бы копирование информации сделал не через sl2.Assign(sl1), а банально: sl2.Text := sl1.Text;

[SERG1980]

Дык там нужно ещё и подсчитать сколько каждого цвета

[Serge_Bliznykov]

Дык там нужно ещё и подсчитать сколько каждого цвета

да не боже ж мой...

ему нужно:

Потом подсчитываем сколько всего разных записей (Red, Green, Yellow, Brown, Black = 5).

Т.е. нужно посчитать количество РАЗНЫХ записей. Что Ваш код и сделает.

ShowMessage('Всего различных записей: '+IntToStr(sl2.Count));

[SERG1980]

Сообщение от Serge_Bliznykov

да не боже ж мой...

ему нужно:

Т.е. нужно посчитать количество РАЗНЫХ записей. Что Ваш код и сделает.

ShowMessage('Всего различных записей: '+IntToStr(sl2.Count));

Это ответ на вторую часть задания
А какже эти слова автора понять

При проверке мы подсчитываем сколько раз повторяется то или иное слово (Red = 3, Green = 1, Yellow = 2, Brown = 1, Black = 3). Потом подсчитываем сколько всего разных записей (Red, Green, Yellow, Brown, Black = 5).
Такое реально сделать?

[Serge_Bliznykov]

Это ответ на вторую часть задания
как же эти слова автора понять

Угу. я проглядел...
ну тогда тем более удобнее пройтись в цикле (одного проход хватит. А если предварительно отсортировать список - так задача вообще элементарная становится)

вот пример. (результаты выводятся в Memo1)

Memo1.Lines.Clear;
sl1.Sort;
if  sl1.Count>0 then begin
  OneElement := sl1.strings[0];
  CurCount := 1;
  AllUniqCount := 0; 
  for i:=1 to sl1.Count-1 do begin
     if OneElement = sl1.strings[i] then Inc(CurCount)
     else begin
        Memo1.Lines.Append(OneElement + ' : '+IntToStr(CurCount);
        Inc(AllUniqCount);
        OneElement := sl1.strings[i];
        CurCount := 1;
     end;
  
   inc(AllUniqCount);
   // вывод последней группы
   Memo1.Lines.Append(OneElement + ' : '+IntToStr(CurCount);
   Memo1.Lines.Append('Всего уникальных записей: '+IntToStr(AllUniqCount));

  end;
end;