Sortowanie według nazw w bazie danych

Mam problemik.:-) [krzyk] [cygaro]
Robie program o nazwie CDList (jest juz w wersji 1.3b) - jest to rozbudowana baza danych a zarazem katalog swojej kolekcji CD. Wszystko dziala sprawnie tylko chce dodac jedna funkcje, a mianowicie sortowanie nazw płytek według nazw. Uzyłem na budwę podstawowej bazy komponentów : Table; Datasource; Grid. Jesli ktoś ma pomysł albo wie jak to zrobić niech napisze a dodam go do autorów :))
Po skończeniu programu zamierzam dozucic go na stronke 4progrmmers:)))

Pozdrowienia!!! [browar]

http://4programmers.net/Forum/viewtopic.html?id=37794
I wpisz sobie jako autora pana UnDe@D [cya]

Podpowiem ci jak ja to zrobiłem w swoim programie. A wiec:
Odłóż na formę takie komponenty jak Ttable, DataSource, DBGrid, RadioGroup, Edita, 6 buttonów.
Oczywiście komponenty odpowiedzialne za łączenie się z bazą połącz z bazą.
Oto cała procka:
[code]private
{ Private declarations }
Function FiltrDla : String;
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

uses Unit7;

{$R *.DFM}
Function TForm6.FiltrDla : String;
Begin
Case RadioGroup1.ItemIndex Of
0 : Result := 'Gatunek'; //Tu oczywiście dasz swoje nazwy
1 : Result := 'Aktor';
2 : Result := 'Numer';
3 : Result := 'Wersja';
4 : Result := 'Rok';
end;
end;
//..............................................................................
procedure TForm6.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
// metoda obslugi zdarzenia OnFilterRecord
begin
Accept := DataSet[FiltrDla] = Edit1.Text;
end;
//..............................................................................
procedure TForm6.Button2Click(Sender: TObject);
begin
Table1.Filtered := False; // usuniecie filtra
end;
//..............................................................................
procedure TForm6.Button3Click(Sender: TObject);
begin
With Table1 Do
Begin
Filter := ''; // wymazanie wyrazenia filtra we wlasciwosci Filter
OnFilterRecord := Table1FilterRecord; // podstawienie metody obslugi zdarzenia
Filtered := True; // aktywowanie filtra
end;
end;
//..............................................................................
procedure TForm6.Button1Click(Sender: TObject);
begin
With Table1 Do
Begin
OnFilterRecord := Nil;
Filter := FiltrDla + ' = ' + #39 + Edit1.Text + #39;
Filtered := True; // aktywowanie filtra
Label2.Visible:=False;
end;
end;
//……………………………………………………..
procedure TForm6.Button6Click(Sender: TObject);
begin
Table1.First; //pierwszy rekord
end;
//..............................................................................
procedure TForm6.Button7Click(Sender: TObject);
begin
Table1.Last; //ostatni rekord
end;
//..............................................................................

procedure TForm6.Button8Click(Sender: TObject);
begin
Edit1.Text:=('');
end;
end.
[/code]

<image> </image>

Jak będzie jakis błąd to wal do mnie na GG