Скачать: CL | DM;

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

← →
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

---

← →
Anatoly Podgoretsky ©   (2004-04-27 12:02) [5]

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

---

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

Спасибо всем

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c