Удаление неполных дубликатов в StringGrid

[DIgorevich]

Всем привет. Проблема следующая. Имеется большое количество строк в StringGrid, каждый раз разное, столбцов шесть. Нужно удалить строки с одинаковыми значениями первого столбца (нулевого), при этом оставив единственную строку из всех дубликатов только ту, у которой число в столбце 3 наименьшее.
Я реализовал это так:

 type
  THackGrid = class(TStringGrid);

  var
    i,y:Integer;
begin
  for i:=st.RowCount - 1 downto 0 do
    begin
      for y:=st.RowCount - 1 downto 0 do
        begin
          if i<>y then
            if Trim(st.Cells[0,i]) = Trim(st.Cells[0,y]) then
              if (Trim(st.Cells[3,i])<>'') and (Trim(st.Cells[3,y])<>'') then
                if StrToInt(Trim(st.Cells[3,i]))<StrToInt(Trim(st.Cells[3,y])) then
                  THackGrid(st).DeleteRow(y);
        end;
    end;

Код работает, но проблема в том, что это дичайше медленно, потому что подцикл каждый раз проходит все строки. При наличии ста тысяч строк обработка занимает порядка 4 часов. Возможно, кто-то уже сталкивался с подобной задачей и знает более быстродействующее решение. Либо можно это реализовать как-то иначе, чем у меня, но также с ощутимым приростом в быстродействии. Буду рад любой помощи с конкретными примерами, а не как обычно у нас тут любят писать "сделай через другой компонент, там сам придумаешь")

[Аватар]

сделай через другой компонент

А как еще? Потому и медленно, что в визуальном компоненте. Начать с того - откуда данные там взялись. Если с СУБД, то там все на уровне sql сделать. В противном случае хотя бы в массиве структур это сделать и с сортировочкой для избежания лишних прогонов. Или в StringList это замутить. Милисекунды не будут, но и многие минут тоже

[ResourceSpace]

THackGrid(st).

Это что за финт?
Для начала (как уже верно заметили) это визуальный компонент. Так что проверьте:

begin
st.Visible:=False;
for ...
...
st.Visible:=True;
end;

что-то даст?

[DIgorevich]

Аватар, ResourceSpace, компонент ST создается динамически и невидимым. Данные берутся путем извлечения из файла собственного формата какой-то там программы, напоминающего чем-то csv-структуру. Порядок строк очень важен поэтому сортировкой тут пользоваться нельзя.

ResourceSpace, по поводу "THackGrid(st)." можно прочитать тут: http://www.programmersforum.ru/showp...47&postcount=2. Другими словами, он позволяет удалять строки из StringGrid без написания для этого специальной процедуры.

[Stilet]

А откуда в грид данные приходят?

[DIgorevich]

Stilet, я чуть выше писал, что извлекаются из файла. Файл мне присылают, он очень похож на csv по структуре.

[Stilet]

Невнимательно читал наверное...
Извлекай из файла в матрицу строк или записей и проводи все операции с ней. А уже потом грид из нее наполняй.

[Аватар]

Сортировкой пользоваться можно, запомнив индекс в структуре, делай с массивом структур что хош, сортируй потом по этому индексу и обратно в соответствии с этим загружай куда хош

[DIgorevich]

Аватар, так и сделал. С матрицей и обработкой в ней все работает в сотни раз быстрее.

[Stilet]

С матрицей и обработкой в ней все работает в сотни раз быстрее.

Естесственно )