Как ускорить поиск? |
Previous Top Next |
Code: |
type TForm1 = class(TForm) DataSource1: TDataSource; Table1: TTable; Button1: TButton; end;
procedure TForm1.Button1Click(Sender: TObject); var SeekValue: string; begin Table1.DisableControls; Table1.FindKey([SeekValue]); Table1.EnableControls; end; |
©Drkb::02643
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php