Модуль, позволяющий сортировать элементы структуры List

[a_n_n_a]

Здравструйте, помогите, пожалуйста, с этой задачкой по Delphi=)

Создайть модуль, позволяющий сортировать элементы структуры List, определять количество вхождений искомого значения,
удалять элемент по его номеру, заменять одно значение элемента на другое.
Создайть приложение, использующее разработанный модуль, применить функции модуля для компонентов, имеющих свойство типа List.

[Stilet]

А с чем помочь? Что не получается?

[a_n_n_a]

Ну дело у меня уже сдвинулось...
Написала модуль сортировки, а подключить не получается=) Надо же просто написать название модуля в Uses?

[Stilet]

Ну в целом да, и вызвать нужную процедуру... Впрочем хвастайся, не стесняйся.

[a_n_n_a]

по ходу дела я вообще не врубаюсь=)
значит вот у меня главная форма. на ней List, кнопка добавить запись из Edit, кнопка сортировка=)
Вот моя процедура сотрировки:

procedure TForm1.Button2Click(Sender: TObject);
var
   i, x: Integer;
begin
   for i := 0 to (ListBox1.Items.Count - 1) do
     for x := 0 to (ListBox1.Items.Count - 1) do
       if (ListBox1.Items[x] < ListBox1.Items[i]) and (x > i) then
       begin
         ListBox1.Items.Insert(i, ListBox1.Items[x]);
         ListBox1.Items.Delete(x + 1);
       end;
 end;

end;

ее надо запихать в новый модуль=) А как его создавать? через Сomponent->New component или New->Unit?

[Stilet]

Э-э-э стоп, стоп... Ты этот код откуда выдрала?

Ну если уж так хочется то вот :

Юнит:

unit Unit2;

interface
  uses StdCtrls;

 procedure LBE(var Sender: TListBox);

implementation

 procedure LBE(var Sender: TListBox);
var
   i, x: Integer;
begin
   for i := 0 to (Sender.Items.Count - 1) do
     for x := 0 to (Sender.Items.Count - 1) do
       if (Sender.Items[x] < Sender.Items[i]) and (x > i) then
       begin
         Sender.Items.Insert(i, Sender.Items[x]);
         Sender.Items.Delete(x + 1);
       end;
 end;


end.

Прога:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
LBE(listbox1);
end;

end.

Но учти - сортировать ЛистБокс можно попроще...

или New->Unit?

Верно.

[a_n_n_a]

А-а-а-а=)) Спасибо большое=))) С остальным сама=)))))