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

* Implement ClearCalcFields

Browse Source 
git-svn-id: trunk@12762 -
This commit is contained in:
blikblum 2009-02-21 17:50:04 +00:00
parent 3b171cb6fb
commit d72a9cfa48
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-db/src/sqlite/customsqliteds.pas
View File

@ -402,8 +402,18 @@ begin
end; end;
procedure TCustomSqliteDataset.ClearCalcFields(Buffer: PChar); procedure TCustomSqliteDataset.ClearCalcFields(Buffer: PChar);
var
i: Integer;
RecordItem: PDataRecord;
begin begin
//todo if FCalcFieldList = nil then
Exit;
RecordItem := PPDataRecord(Buffer)^;
for i := FieldDefs.Count to FieldDefs.Count + FCalcFieldList.Count - 1 do
begin
StrDispose(RecordItem^.Row[i]);
RecordItem^.Row[i] := nil;
end;
end; end;
constructor TCustomSqliteDataset.Create(AOwner: TComponent); constructor TCustomSqliteDataset.Create(AOwner: TComponent);