Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];
Вниз
СОртировка Найти похожие ветки
← →
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
А более рациональный метод?
← →
Delirium^.Tremens (2002-12-30 10:14) [9]2 Song © (30.12.02 10:10)
> Это называется не сортировка, а выравнивание по правому
> краю.
> Обрабатывайте TListBox.onDrawItem
Да нет, там еще и сортировка справа налево.
← →
beginer1 (2002-12-30 10:20) [10]>Song
выравнивание мне не надо МНЕ НУЖНА ИМЕННО СОРТИРОВКА справа налево
те если последний символ A то строка должна стоять самой верхний в списке а если последний символ Z то в Конце списка
← →
gsu (2002-12-30 10:21) [11]Какие проблемы
1. инвертируй строки
2. отсортируй их
3. инвертируй обратно
4. выровняй по правому краю, если надо
← →
MBo (2002-12-30 13:33) [12]предполагаю, что элементов в списке не слишком много, поэтому использовал пузырьковую сортировку.
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c
