сортировка данных-? Опции

[1147]

В таблице необходимо отсортировать данные по дате таким образом:
31.11.2002
02.07.2003
12.01.2004
07.12.2005
20.05.2006
использовал следующий код:

procedure TForm1.N8Click(Sender: TObject);
begin
DataModule1.BookTable.IndexFieldNames:= 'Дата';
end;

но он сортирует данные в таком порядке:
02.07.2003
07.12,2005
12.01.2004
20.05.2006
31.11.2002
т.е. сортировка происходит по первым числам а не по фактической величине даты. Пробовал таким образом:

procedure TForm1.N8Click(Sender: TObject);
begin
DataModule1.BookTable.sort:= 'Дата';
end;

но результат тот же самый. Подскажите, как правильно отсортировать данные по дате как описано выше

[1147]

чтото я заметил что такой поиск по дате лишил меня возможности осуществлять поиск по другим, текстовым полям. При вводе в них какого-либо значения из DBGrid пропадают все данные.
Это удалось исправить изменив код:

procedure TForm5.IKEFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
if edit1.Focused then
 Accept :=
    Pos(Edit1.Text, DataSet.FieldByName('DateOfBirth').AsString) > 0;
    if edit2.Focused then
Accept :=
    Pos(Edit2.Text, DataSet.FieldByName('Names').AsString) > 0;
end;

Но в этом случае, если я хочу найти имена, начинающиеся с большой буквы, то в поисковое поле я также должен вводить имя с большой буквы. При этом поиск отфильтровывает те же самые имена но начинающиеся с маленькой буквы. Т. е. необходимо учитывать регистр.
Как бы исправить эту ситуацию, ничего не потеряв при этом?

Сообщение отредактировано: 1147 - 6.11.2009 4:48