VPF::Сортировка ListBox - Форум программистов

mgf

Дата 23.4.2009, 20:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 23.4.2009

Репутация: нет
Всего: нет

Помогите пожалуста!!! Как сделать сортировку против алфавита в ListBox?? И спрограммировать кнопку, на возвращение исходного положения строк?

THandle

Дата 23.4.2009, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Можно написать отдельную сортировку, либо использовать стандартную TStrings.CustomSort - там используется быстрая сортировка + нужно написать свою функцию для сравнения строк, такую какую нужно в конкретном случае.

Сортировки есть в FAQ центра помощи:

http://forum.vingrad.ru/faq/Vingrad-help-center.html

Как реализовывать свою функцию для сравнения строк в CustomSort тоже можно найти на форуме.

Christoph

Дата 24.4.2009, 13:32 (ссылка)

(голосов:2)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function TStringsSort(List: TStringList; Index1, Index2: Integer): Integer;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
begin
  List:=TStringList.Create;
    try
      List.Assign(ListBox1.Items);
      List.Sort;
      List.CustomSort(TStringsSort);
      ListBox1.Items.Assign(List);
    finally
      List.Free;
    end;
end;

function TStringsSort(List: TStringList; Index1, Index2: Integer): Integer;
begin
if List[Index1][1] < List[Index2][1] then  Result:=+1 else
   if  List[Index1][1] > List[Index2][1]  then Result:=-1 else
     Result:=0
end;
end.

Держи

--------------------

Christoph

Дата 24.4.2009, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

И почему ставите минус за код? объясните почему

--------------------

mgf

Дата 24.4.2009, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 23.4.2009

Репутация: нет
Всего: нет

спасибо огромное!)))

Christoph

Дата 24.4.2009, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

Код


procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
begin
  List:=TStringList.Create;
    try
      List.Assign(ListBox1.Items);
      List.CustomSort(TStringsSort);
      ListBox1.Items.Assign(List);
    finally
      List.Free;
    end;

end;

function TStringsSort(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:=-CompareStr(List[Index1],List[Index2]);
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »