StringGrid фильтрация с ComboBox (Delphi)

[Максим_83]

Приветствую всех. Нужна помощь с кодом по поводу фильтрации данных в StringGrid.
Тут на форуме взял код.

procedure TForm1.BitBtn5Click(Sender: TObject);
const
  SortColumn = 7; // сортировка по столбцу, отсчёт с нуля
var i, j, k : integer;
  sTemp : string;
begin
  {Сортировка простым обменом, методом пузырька }
  for i:=StringGrid1.FixedRows to StringGrid1.RowCount-2 do
    for j:=i+1 to StringGrid1.RowCount-1 do
      if StrToIntDef(StringGrid1.Cells[SortColumn,i],-1) >
               StrToIntDef(StringGrid1.Cells[SortColumn,j],-1) then
        for k:=StringGrid1.FixedCols to StringGrid1.ColCount-1 do
          begin
            sTemp := StringGrid1.Cells[k,i];
            StringGrid1.Cells[k,i] := StringGrid1.Cells[k,j];
            StringGrid1.Cells[k,j] := sTemp;
          end;
end;

Есть на форме ComboBox и с помощью его хотелось бы сортировать информацию. Информация в виде текста, чисел и чисел через точку.

В коде сортировка осуществлена через SortColumn = 7;
Как туда можно привязать ComboBox и брать данные для сортировки из него?
Так же в ComboBox написаны слова, и хотелось бы чтобы каждая строка в ComboBox соответствовала числу.
Ещё после фильтрования вся информация отображается не сверху вниз, а опускается в самый низ StringGrid
Как это реализовать не знаю, вот и прошу помощи у знающих.

[DiemonStar]

Нужна помощь с кодом по поводу фильтрации данных в StringGrid.

Есть на форме ComboBox и с помощью его хотелось бы сортировать информацию. Информация в виде текста, чисел и чисел через точку.

Вы уж определитесь, фильтрация вам нужна или сортировка?

[Максим_83]

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

Вы уж определитесь, фильтрация вам нужна или сортировка?

В принципе я имел ввиду одно и тоже под словами "фильтрация" и "сортировка". Если столь важно значение что путаетесь в одном ответе, то пусть будет "сортировка".
Извените но ваше сообщение обсолютно не несёт какой либо ценной информации для меня или кого-то другого, в частности по данному вопросу.
Впредь прошу отвечать по сути без лишнего флейма.

[DiemonStar]

В принципе я имел ввиду одно и тоже под словами "фильтрация" и "сортировка"

Фильтрация - отбор строк/столбцов по определённым признакам
Сортировка - расположение строк/столбцов в порядке, определённом условием.
Т.е. в случае фильтрации необходимо скрывать часть информации из таблицы, а в случае сортировки - правильно её размещать.

Извените но ваше сообщение обсолютно не несёт какой либо ценной информации для меня или кого-то другого

Позвольте не согласиться - чтобы помочь, нужно точно знать, что делать: "копать яму" или "строить дом"...

[Максим_83]

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

Фильтрация - отбор строк/столбцов по определённым признакам
Сортировка - расположение строк/столбцов в порядке, определённом условием.
Т.е. в случае фильтрации необходимо скрывать часть информации из таблицы, а в случае сортировки - правильно её размещать.

Позвольте не согласиться - чтобы помочь, нужно точно знать, что делать: "копать яму" или "строить дом"...

Давайте с вами "строить дом" посредством сортировки если сможете помочь.

[GetMax]

Как туда можно привязать ComboBox и брать данные для сортировки из него?

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   SortColumn:=StrToInt(ComboBox1.Text)-1;
end;

Переменная SortColumn описывается глобально

Так же в ComboBox написаны слова, и хотелось бы чтобы каждая строка в ComboBox соответствовала числу.

Не понял что вы имели ввиду. Приведите пример

Ещё после фильтрования вся информация отображается не сверху вниз, а опускается в самый низ StringGrid

Тоже не совсем понятно. Приведенный вами алгоритм прекрасно сортирует по возрастанию. Если нужна сортировка по убыванию, просто поменяйте знак ">" на знак "<"

[Максим_83]

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

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   SortColumn:=StrToInt(ComboBox1.Text)-1;
end;

Переменная SortColumn описывается глобально

Не понял что вы имели ввиду. Приведите пример

Тоже не совсем понятно. Приведенный вами алгоритм прекрасно сортирует по возрастанию. Если нужна сортировка по убыванию, просто поменяйте знак ">" на знак "<"

Да сортирует прекрасно, отображение идёт по возрастанию. Но тут есть один неприятный нюанс. В StringGrid к примеру 10 строк(не столбцов, чтобы не путались), из них заполнено всего 3 строки. После сортировки эти строки отображаются не с "0" позиции как было до сортировки, а с "7" позиции при условии что остальные строки пустые.
Сами эти пустые строки будут заполняться в дальнейшем по требованию.

[Аватар]

В коде 1-го сообщения циклы по всем строкам грида, переделайте на только информативные строки. Заменив StringGrid1.RowCount на число информативных строк

[Максим_83]

Сообщение от Аватар

В коде 1-го сообщения циклы по всем строкам грида, переделайте на только информативные строки. Заменив StringGrid1.RowCount на число информативных строк

Прошу сильно не пинать. Как понимаю вами подсказанный метод мне не подходит. Там именно надо чтобы циклы проходили по всем строкам. Сегодня к примеру у меня с информацией 3 строки, а через неделю уже 10.
Это как получается что каждый раз для сортировки надо будет переписывать часть кода? Такое не подходит.

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
SortColumn:=StrToInt(ComboBox1.Text )-1;
end;

Переменная SortColumn описывается глобально

Направили на верную мыслю, спасибо, но сделал немного по своему и работает как надо.

[Максим_83]

Изменил код вот так:

procedure TForm1.FormCreate(Sender: TObject);
Begin
ComboBox1.Items.AddObject('текст',TObject(2));
ComboBox1.Items.AddObject('текст'',TObject(7));
ComboBox1.Items.AddObject('текст'',TObject(8));
ComboBox1.Items.AddObject('текст'',TObject(9));
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var SortColumn, i, j, k : integer;
  sTemp : string;
begin
  ComboBox1.ItemIndex:=0; //Чтобы не вызывало ошибки при нажатии на кнопку без выбора строки
  SortColumn:=Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
....остальная часть кода без изменений(решил оставить по убывающей)....
          end;

Всем спасибо за дискуссию.