Сортировка в dbgrid

[Sciv]

А куда тогда писать я не знаю...

Новую тему создавать

что бы при стирании символов в DBGrid возвращался прежний список записей

Думаю, вот здесь

 else DataModule1.Table1.Filtered:=false;

Должна быть все же Table7, а не 1

То есть код такой:

procedure TOcenki.Edit1KeyPress(Sender: TObject; var Key: Char);
begin 
  DataModule1.Table7.Filtered:=false;
  if Length(Edit1.Text) > 0 then begin 
    DataModule1.Table7.Filter:='Dis='+ #39 + Edit1.Text + '*' + #39;
    DataModule1.Table7.Filtered:=true;
  end
end;

Я его сразу оптимизировал немного.