Сравнение колонок StringGrid по строкам

[royun]

Serge_Bliznykov,
жду Вашей помощи.

[Serge_Bliznykov]

Вы так хотели?
sgcompare_src.rar
Project1_exe.rar

По сути всё решения вот:

procedure TForm1.Button2Click(Sender: TObject);
var
  TS : TStringList;
  i, indexS  : integer;
begin
  TS := TStringList.Create;
  for i:=1 to StringGrid1.RowCount-1 do begin
     indexS := TS.IndexOf(StringGrid1.Cells[2,i]);
     if indexS<0 then begin {ещё не было такой строки, добавляем}
        TS.AddObject(StringGrid1.Cells[2,i], TObject(1));
     end
     else {такое значение уже было ранее, увеличим счётчик на 1}
       TS.Objects[indexS] := TObject(Integer(TS.Objects[indexS])+1);
  end;

  StringGrid2.RowCount := TS.Count+1;
  for I := 0 to TS.Count - 1 do begin
    StringGrid2.Cells[0,i+1] := IntToStr(i+1);
    StringGrid2.Cells[1,i+1] := TS.Strings[i];
    StringGrid2.Cells[2,i+1] := IntToStr( Integer(TS.Objects[i]));
  end;

  FreeAndNil(TS);
end;

разумеется, можно было не выпендриваться с AddObject и приведением целого типа к TObject а банально взять динамический массив на n значений и использовать его. Но, думаю, что это будет сопоставимое по затратам/производительности решение...

[royun]

Serge_Bliznykov,
Ваш код при StringGrid.RowCount порядка 60 тыс. записей очень долго работает и почему-то не отображает вот этот участок кода и везде считает кол-во повторов равной 1-це.

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

Serge_Bliznykov,
Ваш код при StringGrid.RowCount порядка 60 тыс. записей почему-то не отображает вот этот участок кода и везде считает кол-во повторов равной 1-це.

Приношу свои извинения, я был не прав.

[Serge_Bliznykov]

код при StringGrid.RowCount порядка 60 тыс. записей очень долго работает

кстати, выполнение кода можно ускорить, если порядок отображения результатов не важен.
Дело в том, что если сделать TS (TStringList) сортированным (TS.sorted := true), то можно использовать бинарный поиск вместо .IndexOf использовать TS.Find. Это намного быстрее.
Ну и надо понимать, что сотни тысяч ( and over ) записей за одну секунду всё равно не обработаешь


Хотел сказать Вам "пожалуйста", но увидел, что мне не на что отвечать, ибо слов благодарности не видно...
Спишем это на забывчивость...

p.s. кстати, вашу задачу можно легко формулами в MS Excel реализовать

[royun]

Огромное Вам спасибо. Извините что я не сказал Вам спасибо. Вы мне очень сильно помогли. Дело в том, что я отлаживал программу, наводил красоту. Еще раз спасибо.

[Serge_Bliznykov]

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

Огромное Вам спасибо. Извините что я не сказал Вам спасибо. Вы мне очень сильно помогли. Дело в том, что я отлаживал программу, наводил красоту. Еще раз спасибо.

Да ничего страшного. я так и понял, что просто закрутились, не успели! бывает

Пожалуйста!