Сортировка

[taxa1]

Есть код сортировки. Рабочий. Только не знаю что дописать чтоб он НЕ сортировал последнюю строчку, так как она пустая, и чтоб при первом клике сортировалось от А->Я, а при втором клике от Я->А. И делалось это по нажатию на фиксированный столбец StringGrid.

procedure TForm1.StringGrid1Click(Sender: TObject);
var
  SlSort, SlRow : TStringList;
  i, j, aCol : Integer;
begin
  aCol := StrinGgrid1.FixedCols;

  SlSort := TStringList.Create;
  for i := StrinGgrid1.FixedRows to StrinGgrid1.RowCount - 1 do begin
    SlRow := TStringList.Create;
    SlRow.Assign(StrinGgrid1.Rows[i]);
    SlSort.AddObject(StrinGgrid1.Cells[aCol, i], SlRow);
  end;
  SlSort.Sort;
  j := 0;
  for i := StrinGgrid1.FixedRows to StrinGgrid1.RowCount - 1 do begin
  SlRow := Pointer(SlSort.Objects[j]);
    StrinGgrid1.Rows[i].Assign(SlRow);
    SlRow.Free;
    Inc(j);
  end;
  SlSort.Free;
end;

[Stilet]

так как она пустая

А ты попробуй проверку поставить?

if trim(StrinGgrid1.Rows[i].Text)='' then continue;

в начало цикла.

И делалось это по нажатию на фиксированный столбец

Ну тогда твой метод ИМХО совсем не подходит... Хотя вот тут могу ошибаться, потому что такой реализации еще не видел. Но я бы сортировку делал по другому...

[taxa1]

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

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

А как бы вы делали?

[Stilet]

М.м.м... Как бы это попроще описать... Я бы провел индексацию таблицы. Сделал бы матрицу номеров строк упорядоченных по своему критерию.
Как же это продемонстрировать-то?...
Что такое Индексация таблиц знаешь?

[taxa1]

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

Что такое Индексация таблиц знаешь?

А по проще вопроса нету? Я программирование учу по ходу выполнения этой курсовой. Вот что в курсовой есть то более-мение знаю)

[Stilet]

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

[taxa1]

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

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

А можно код? Я просто не понимаю о чем речь идет, а сдавать уже во вторник.

[Stilet]

Ну сейчас я не особо настроен код писать с нуля...
Если не забуду, завтра пример сделаю.