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

* fcl-db TMemDataSet show Filter property is unimplemented; mantis issue #22051

Browse Source 
git-svn-id: trunk@26240 -
This commit is contained in:
reiniero 2013-12-16 13:26:47 +00:00
parent 695f271b8c
commit ee152cde6a
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-db/src/memds/memds.pp
View File

@ -114,11 +114,12 @@ type
function GetRecNo: Integer; override;
// Own.
procedure SetFilterText(AValue: string); //silently drops filter
Procedure RaiseError(Fmt : String; Args : Array of const);
Procedure CheckMarker(F : TStream; Marker : Integer);
Procedure WriteMarker(F : TStream; Marker : Integer);
procedure ReadFieldDefsFromStream(F : TStream);
procedure SaveFieldDefsToStream(F : TStream);
Procedure ReadFieldDefsFromStream(F : TStream);
Procedure SaveFieldDefsToStream(F : TStream);
// These should be overridden if you want to load more data.
// E.g. index defs.
Procedure LoadDataFromStream(F : TStream); virtual;
@ -136,8 +137,8 @@ type
Function DataSize : Integer;
procedure Clear(ClearDefs : Boolean);{$IFNDEF FPC} overload; {$ENDIF}
procedure Clear;{$IFNDEF FPC} overload; {$ENDIF}
Procedure Clear(ClearDefs : Boolean);{$IFNDEF FPC} overload; {$ENDIF}
Procedure Clear;{$IFNDEF FPC} overload; {$ENDIF}
Procedure SaveToFile(AFileName : String);{$IFNDEF FPC} overload; {$ENDIF}
Procedure SaveToFile(AFileName : String; SaveData : Boolean);{$IFNDEF FPC} overload; {$ENDIF}
Procedure SaveToStream(F : TStream); {$IFNDEF FPC} overload; {$ENDIF}
@ -148,6 +149,8 @@ type
Procedure CopyFromDataset(DataSet : TDataSet; CopyData : Boolean); {$IFNDEF FPC} overload; {$ENDIF}
Property FileModified : Boolean Read FFileModified;
// TMemDataset does not implement Filter. Please use OnFilter instead.
Property Filter: string; unimplemented;
published
Property FileName : String Read FFileName Write FFileName;
@ -1132,6 +1135,11 @@ begin
end;
end;
procedure TMemDataset.SetFilterText(AValue: string);
begin
// Just do nothing; filter is not implemented
end;
function TMemDataset.Locate(const KeyFields: string; const KeyValues: Variant;
Options: TLocateOptions): boolean;
var