Как ускорить поиск?

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