СОртировка

← →
beginer1 © (2002-12-30 09:32) [0]

как быстро отсортировать записи В ListBox по имени тольк с конца строки и удалить одинаковые строки
те должны остаться уникальные имена отсортировынные с последнего символа

← →
Delirium^.Tremens © (2002-12-30 09:36) [1]

> по имени тольк с конца строки

Это что же, справа налево? IMHO, нужно самому алгоритмы писать или к арабам обращаться :-)

← →
Song © (2002-12-30 09:43) [2]

Используйте TStringList, у него есть ssDuplicate. А вот насчёт сортировки с конца :-) я так и не понял..

← →
ЮЮ © (2002-12-30 09:51) [3]

Это, наверное, "метод шифрования" такой, в строке хранится 1renigeb, а при прорисовке видно beginer1. "Королевство кривых зеркал", однако :-)

← →
beginer1 © (2002-12-30 09:58) [4]

>сортировка справа налево

>Song
А подробнее можно?

← →
VAleksey © (2002-12-30 09:59) [5]

Есть предложение записать в другой StringList имена наоборот, отсортировать его, а потом в соответствии с ним выстороить 1-й :)

← →
beginer1 © (2002-12-30 10:07) [6]

>ЮЮ
cпечиально для тебя пример приведу
есть список:
beginer1
Delirium^.Tremens
Song
ЮЮ
beginer1

а после сортировки должен выглядить вот так:
beginer1
Song
Delirium^.Tremens
ЮЮ

← →
Song © (2002-12-30 10:10) [7]

Это называется не сортировка, а выравнивание по правому краю.
Обрабатывайте TListBox.onDrawItem

← →
beginer1 © (2002-12-30 10:11) [8]

>VAleksey
А более рациональный метод?

2 Song © (30.12.02 10:10)

> Это называется не сортировка, а выравнивание по правому
> краю.
> Обрабатывайте TListBox.onDrawItem

Да нет, там еще и сортировка справа налево.

>Song
выравнивание мне не надо МНЕ НУЖНА ИМЕННО СОРТИРОВКА справа налево
те если последний символ A то строка должна стоять самой верхний в списке а если последний символ Z то в Конце списка

Какие проблемы

1. инвертируй строки
2. отсортируй их
3. инвертируй обратно
4. выровняй по правому краю, если надо

предполагаю, что элементов в списке не слишком много, поэтому использовал пузырьковую сортировку.

procedure TForm1.Button1Click(Sender: TObject); var i, j: integer; function RevStr(const s: string): string; var i, l: integer; begin l := length(s); SetLength(Result, l); for i := 1 to l do Result[i] := s[l - i + 1]; end; begin ListBox1.Items.BeginUpdate; for i := 0 to ListBox1.Items.Count - 2 do for j := i + 1 to ListBox1.Items.Count - 1 do if RevStr(ListBox1.Items[i]) > RevStr(ListBox1.Items[j]) then ListBox1.Items.Exchange(i, j); ListBox1.Items.EndUpdate; end;

СОртировка Найти похожие ветки