paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 09:59:29 +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;
procedure TCustomSqliteDataset.ClearCalcFields(Buffer: PChar);
var
i: Integer;
RecordItem: PDataRecord;
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;
constructor TCustomSqliteDataset.Create(AOwner: TComponent);