![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.21 » View Incident Report |
![]() |
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 Tuesday, April 23, 2024 at 08:39 AM | Privacy Policy![]() © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |