StringGrid сделать сортировку по алфавиту

[Римма]

Привет всем. Кто может подсказать мне как в StringGrid сделать сортировку по алфавиту. Такое можно сделать? С нетерпением жду ваших подсказок.

[alexBlack]

Сообщение от Римма

Привет всем. Кто может подсказать мне как в StringGrid сделать сортировку по алфавиту. Такое можно сделать? С нетерпением жду ваших подсказок.

Проще всего, пожалуй, будет так:
сначала скопировать StringGrid в TStringList, уже его отсортировать и затем скопировать обратно.

[AlDelta]

Пузырьковая сортировка, алгоритм:

1. Сравниваем первую букву i-ой строки с первой буквой строки i+1 если они совпадают берем следующие буквы.
2. Если i+1-е больше i-го (в случае сортировки по убыванию) - меняем местами эти строки местами, переменной логического типа присваиваем значение, например "истина" - это будет означать, что перестановка была выполнена.
3. Возвращаемся к пункту 1. со следующим значение i.
4. если в процессе просмотра всего списка была выполнена хотя бы одна перестановка (это покажет наша дополнительная логическая переменная) надо выполнить просмотр еще раз, если перестановок не было - сортировка выполнена.

Посмотри этот алгоритм, если возникнут вопросы - задавай.

[Римма]

А так можно зделать что ли?Примерно он как будет сортировать то?Я че то не очень понила суть?Не можешь мне по подробние обьяснить?

[Римма]

Я имела в виду по поводу TStringList

[AlDelta]

А так можно зделать что ли?Примерно он как будет сортировать то?Я че то не очень понила суть?Не можешь мне по подробние обьяснить?

Единственный способ определить границы возможного - выйти за эти границы, в невозможное. (Артур Кларк)


Для того чтобы можно было работать с этим классом, надо создать экземпляр этого
класса - объект. Создание объекта TStringList:

Var 
 STR: TStringList;
Begin
 STR:= TStringList.Create;

Итак, объект создан. Для добавления строки используется метод Add единственным параметром, которого является добавляемая строка. Строка будет добавлена после самой последней строки. Тоже самое делает метод Append. Для того чтобы вставить строку в определённую позицию надо использовать функцию Insert.

procedure Insert(Index: Integer; const S: string); override;

параметр Index задаёт позицию добавляемой строки, если указать 0, то строка будет самой первой, если 1, то строка будет второй. Разумеется нумерация с нуля. Строка, которая стоит на этой позиции будет сдвинута вперёд. Нельзя указывать индекс строки больше чем строк в списке, произойдёт исключение. Ну и для удаления строки используется функция Delete, в качестве единственного параметра которой надо указывать индекс строки для удаления. Весь список строк предоставляется свойством-массивом Strings. Оно доступно как для чтения так и для изменения. Используется это свойство так:

ShowMessage(STR.Strings[1]);

Для получения количества элементов используется функция Count, которая возвращает количество элементов в списке. Весь список очищается с помощью метода Clear.
TStringList позволяет сортировать список в алфавитном порядке. Для сортирования всего списка в алфавитном порядке надо вызвать метод Sort или присвоить свойству Sorted значение True. После сортировки обратно вернуть строки на свои места невозможно. Различие между этими методами сортировки в том, что метод Sort просто сортирует список, а при присваивании свойству значения True, каждое добавляемое значение будет сортироваться, и воспользоваться методом Insert будет невозможно

[Римма]

Большое вам всем спасибо кто откликнулся на мой запрос.Вы мне хорошую идею подкинули.Можно тему считать закрытым.