Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.21 » View Incident Report |
Serious |
Reported By: Michael Vogel Reported On: 7/6/2005 For: Version 4.21 Build 6 |
procedure TForm1.FormCreate(Sender: TObject); begin ATable.Close; ATable.DatabaseName := ExtractFilePath(Application.ExeName); if (ATable.Exists) then ATable.Open; end; procedure TForm1.btnRangeClick(Sender: TObject); begin ATable.SetRange([1], [1]); end; procedure TForm1.btnFilterClick(Sender: TObject); var ATickCount: Integer; begin Screen.Cursor := crHourGlass; try ATickCount := GetTickCount; ATable.Filter := 'Name = ''Smith'''; ATable.Filtered := True; ShowMessage(IntToStr(GetTickCount - ATickCount) + ' ms'); finally Screen.Cursor := crDefault; end; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |