paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 03:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added filtering

Browse Source 
git-svn-id: trunk@10088 -
This commit is contained in:
michael 2008-01-28 21:00:50 +00:00
parent 9a2d12bcb2
commit 3d044dfbe6
1 changed files with 60 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
packages/fcl-db/src/paradox/paradox.pp
View File

@ -21,7 +21,7 @@ unit paradox;
interface
uses
sysutils, classes, db, pxlib;
sysutils, classes, db, pxlib, bufdataset_parser;
type
EParadox=class(Exception);
@ -40,6 +40,7 @@ type
FTableName : String;
FInputEncoding : String;
FTargetEncoding : String;
FParser : TBufDatasetParser;
function GetInputEncoding: String;
function GetTableName: String;
function GetTargetEncoding: String;
@ -56,7 +57,10 @@ type
procedure SetTargetEncoding(const AValue: String);
protected
// Mandatory
procedure SetFilterText(const Value: String); override; {virtual;}
procedure SetFiltered(Value: Boolean); override; {virtual;}
procedure ParseFilter(const AFilter: string);
function AllocRecordBuffer: PChar; override;
procedure FreeRecordBuffer(var Buffer: PChar); override;
procedure GetBookmarkData(Buffer: PChar; Data: Pointer); override;
@ -263,12 +267,15 @@ var
begin
Result:=True;
if not Assigned(OnFilterRecord) then
if not Assigned(OnFilterRecord) and Not Filtered then
Exit;
SaveState:=SetTempState(dsFilter);
Try
FFilterBuffer:=Buffer;
OnFilterRecord(Self,Result);
If Assigned(OnFilterRecord) then
OnFilterRecord(Self,Result);
If Result and Filtered and (Filter<>'') then
Result:=Boolean((FParser.ExtractFromBuffer(FFilterBuffer))^);
Finally
RestoreState(SaveState);
end;
@ -344,6 +351,28 @@ begin
FTargetEncoding:=AValue;
end;
procedure TParadox.SetFilterText(const Value: String);
begin
if (Value<>Filter) then
begin
ParseFilter(Value);
inherited;
if IsCursorOpen and Filtered then
Refresh;
end;
end;
procedure TParadox.SetFiltered(Value: Boolean);
begin
if (Value<>Filtered) then
begin
inherited;
if IsCursorOpen then
Refresh;
end;
end;
//Abstract Overrides
function TParadox.AllocRecordBuffer: PChar;
begin
@ -481,11 +510,38 @@ begin
end;
Raise;
end;
try
ParseFilter(Filter);
except
On E : Exception do
Filter:='';
end;
end;
procedure TParadox.ParseFilter(const AFilter: string);
begin
// parser created?
if Length(AFilter) > 0 then
begin
if (FParser = nil) and IsCursorOpen then
begin
FParser := TBufDatasetParser.Create(Self);
end;
// have a parser now?
if FParser <> nil then
begin
// set options
FParser.PartialMatch := not (foNoPartialCompare in FilterOptions);
FParser.CaseInsensitive := foCaseInsensitive in FilterOptions;
// parse expression
FParser.ParseExpression(AFilter);
end;
end;
end;
procedure TParadox.InternalClose;
begin
FreeAndNil(FParser);
FreeMem(FOffsets);
FOffSets:=Nil;
FCurrRecNo:=-1;