Как отсортировать по алфавиту массив строк?

← →
alextov (2004-04-27 11:23) [0]

Нужно отсортировать массив из рекордов по полю типа string.
Рекорд описан следующим образом
type TPrice = record
cod : integer;
Tovar :string;
end;

Может многоуважемый All подскажет какуюто ф-цию которая сортирует по алфавиту массивы строк....

← →
Тимохов © (2004-04-27 11:25) [1]

1. Массив какой?
2. Делайте через TList, в нем есть встроеннная сортировка.

← →
Dimka Maslov © (2004-04-27 11:36) [2]

Делаешь TStringList
Strings[i] пусть будет Tovar, a Integer(Objects[i]) пусть будет cod.

Потом вызываешь метод Sort..., а ещё лучши присвой значение Sorted := True, тогда сортировка будет автоматическая.

← →
tesseract © (2004-04-27 11:45) [3]

>> Dimka Maslov ©

Мда а как ты TstringList c Record синхронизировать будешь??

Не лучше ли просто пошарить по тому-же sources.ru и не найти реализацию алгоритма простой сортировки, там вставкой или quicksort? Программист ты или где?

← →
Dimka Maslov © (2004-04-27 11:51) [4]

>tesseract © (27.04.04 11:45) [3]
В данном случае, если пользоваться TStringList и в нём и хранит всю информацию, тогда record вообще не нужен, а кому интересне алгоритм быстрой сотрировки http://delphibase.endimus.ru/?action=viewtopic&topic=mathsort

tesseract © (27.04.04 11:45) [3]
А их не надо синхронизировать, нужно сортировать массив, в [2] предложен дешевый способ.

← →
alextov (2004-04-27 12:19) [6]

Спасибо всем

Как отсортировать по алфавиту массив строк? Найти похожие ветки