Сортировка

[Dissonance]

Подскажите как осуществить сортировку? По этим полям: по алфавиту, Номер программы, по поля дата(Срок действия лицензии).

[Snoopy]

Опятьже Sql, также есть стандартные методы IndexFieldNames,Sort! А ещё есть поиск на форуме!

[Dissonance]

а ссылку кинуть можеш на код?

[Snoopy]

Конечно
http://programmersforum.ru/showthread.php?t=11845
http://programmersforum.ru/showthread.php?t=15648
http://programmersforum.ru/showthread.php?t=2051
и самое главное
http://programmersforum.ru/search.php

[Dissonance]

спасибо большое

Кароче у меня получился код: Только почему то сортирует только текстовые поля цифровые не пашут и дата тоже в чём дело?

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
 if Form2.RadioButton1.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='[номер группы] ASC';
    end;
end;

Вот код всего 12 штук они для 4 таблиц по 3 на каждую. Тоесть при выборе через combobox одной из таблиц появляются radiobutton'ы только для этой таблицы и т.д. Но почему то работает сортировка только на текстовое поле. Может потому что в текстовом у меня есть числа?

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
if Form2.RadioButton1.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Название ASC';
    end;
  end;
procedure TForm2.RadioButton3Click(Sender: TObject);
begin
if Form2.RadioButton3.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Номер программы Ask';
    end;
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
if Form2.RadioButton2.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Срок действия лицензии ASK';
    end;
end;

procedure TForm2.RadioButton4Click(Sender: TObject);
begin
if Form2.RadioButton4.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='№ ПК ASC';
    end;
end;

procedure TForm2.RadioButton5Click(Sender: TObject);
begin
if Form2.RadioButton5.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Инвентарный № ПК ASC';
    end;
end;

procedure TForm2.RadioButton6Click(Sender: TObject);
begin
if Form2.RadioButton6.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Серийный № ПК ASC';
    end;
end;

procedure TForm2.RadioButton7Click(Sender: TObject);
begin
if Form2.RadioButton7.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='№ программы ASC';
    end;
end;

procedure TForm2.RadioButton8Click(Sender: TObject);
begin
if Form2.RadioButton8.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Разработчик ASC';
    end;
end;

procedure TForm2.RadioButton9Click(Sender: TObject);
begin
if Form2.RadioButton9.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Телефон СП производителя ASC';
end;
end;
procedure TForm2.RadioButton10Click(Sender: TObject);
begin
if Form2.RadioButton10.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='№ программы ASC';
end;
end;
procedure TForm2.RadioButton11Click(Sender: TObject);
begin
 if Form2.RadioButton11.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Продавец ASC';
end;
end;
procedure TForm2.RadioButton12Click(Sender: TObject);
begin
if Form2.RadioButton12.Checked=true
   then
    begin
    Form2.ADOTable1.Sort:='Телефон ASC';
end;
end;

end.