VPF::StringGrid правильная сортировка - Форум программистов

AJIeKcEu

Дата 1.2.2011, 09:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 26.10.2005
Где: Уфа

Репутация: нет
Всего: 0

Добрый день!
Числа: 1;120;11;52;564;57;13
Проблема в том что у меня идет вот такая сортировка чисел :
1
11
120
13
52;
564;
57;

Код



procedure TForm8.Button10Click(Sender: TObject);
var
  SlSort, SlRow : TStringList;
  i, j, aCol : Integer;
begin

  aCol := 4; //Например, выполним сортировку по столбцу таблицы.
  
  SlSort := TStringList.Create;
  for i := StrinGgrid1.FixedRows+1 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+1 to StrinGgrid1.RowCount - 1 do begin
    SlRow := Pointer(SlSort.Objects[j]);
    StrinGgrid1.Rows[i].Assign(SlRow);
    SlRow.Free;
    Inc(j);
  end;
  SlSort.Free;
end;

а как сделать чтоб была такая сортировка, по возрастанию?
1
11
13
52;
57;
120
564;

Это я для примера сделал, данные в стринг грид

В заранее благодарю!

БелАмор

Дата 2.2.2011, 01:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 10.6.2010
Где: Россия

Репутация: 5
Всего: 17

Для сортировки используйте не Sort, а CustomSort, указывая свою функцию сравнения. В этой функции переводите строки в числа и сравнивайте как числа. Обязательно предусмотрите вариант, когда формат строки не соответствует числу, тогда можно, например, принимать значение 0. Функция сравнения не должна быть методом.
Полностью рабочий пример:
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=76958

Это сообщение отредактировал(а) БелАмор - 2.2.2011, 01:46

northener

Дата 2.2.2011, 02:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(AJIeKcEu @ 1.2.2011, 09:06

)

Проблема в том что у меня идет вот такая сортировка чисел

Пошли гневное письмо Биллу Гейтсу ака микрософт.
Именно он/они решили/выбрали такой принцип сортировки основным(Default).
Хотя раньше (вроде до ХР) придерживались другого принципа.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

northener

Дата 2.2.2011, 02:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(БелАмор @ 2.2.2011, 01:43

)

Обязательно предусмотрите вариант, когда формат строки не соответствует числу

Данное высказывание требует уточнение: "когда формат никакой части строки" не соответствует числу.
Ибо строки типа "A51" не соответствуют числу, но сортируются таким же непотребным способом.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Poseidon

Дата 2.2.2011, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(northener @ 2.2.2011, 02:13

)

Именно он/они решили/выбрали такой принцип сортировки основным(Default).

Что? Вообще-то это TStringList. Если не понятно, то повторю: TStringList. Вполне логично что данные там считаются текстом (String). И уж совсем логично что "120" будет меньше чем "13", т.к. текст сравнивается по буквам (знакам). А знак "2" будет меньше чем знак "3". И, как ни странно, M$ тут совершенно не при чем.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

bagos

Дата 2.2.2011, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

Репутация: нет
Всего: 1

AJIeKcEu, используйте свой метод сортировки, если есть возможность почитайте Никлауса Вирта, там вс очень хорошо написано, и примеры есть на паскале, и smile

AJIeKcEu

Дата 8.2.2011, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 26.10.2005
Где: Уфа

Репутация: нет
Всего: 0

У меня всеравно не получается(

AJIeKcEu

Дата 8.2.2011, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 26.10.2005
Где: Уфа

Репутация: нет
Всего: 0

ух вроде разобрался...
Всем спасибо

Это сообщение отредактировал(а) AJIeKcEu - 8.2.2011, 13:25

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »