pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix TRxMemoryData.Lookup

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8348 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2022-07-13 10:25:49 +00:00
parent a904c14cc7
commit 066542cc34
1 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
components/rx/trunk/rxdb/rxmemds.pas
View File

@ -162,6 +162,7 @@ type
function IsSequenced: Boolean; override;
function Locate(const KeyFields: string; const KeyValues: Variant;
Options: TLocateOptions): Boolean; override;
function Lookup(const KeyFields: string; const KeyValues: Variant; const ResultFields: string): Variant; override;
procedure SortOnFields(const FieldNames: string;
CaseInsensitive: Boolean = True; Descending: Boolean = False);
procedure SortOnFieldsEx(const FieldNames: string;
@ -1525,6 +1526,27 @@ begin
end;
end;
function TRxMemoryData.Lookup(const KeyFields: string;
const KeyValues: Variant; const ResultFields: string): Variant;
var
SaveState: TDataSetState;
begin
if DataSetLocateThrough(Self, KeyFields, KeyValues, []{, ARecNo}) then
begin
{ SaveState := SetTempState(dsCalcFields);
try
// FFilterBuffer contains found record
CalculateFields(FFilterBuffer); // CalcBuffer is set to FFilterBuffer
Result:=FieldValues[ResultFields];
finally
RestoreState(SaveState);
end;}
Result:=FieldByName(ResultFields).Value;
end
else
Result:=Null;
end;
{ Table Manipulation }
procedure TRxMemoryData.EmptyTable;