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

* Fixed AV while filtering datasets with null-fields

Browse Source 
git-svn-id: trunk@20389 -
This commit is contained in:
joost 2012-02-21 16:32:51 +00:00
parent c29ce4c891
commit 942c2d035e
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/base/bufdataset_parser.pp
View File

@ -181,13 +181,11 @@ end;
procedure TStringFieldVar.Refresh(Buffer: TRecordBuffer); procedure TStringFieldVar.Refresh(Buffer: TRecordBuffer);
var Fieldbuf : TStringFieldBuffer; var Fieldbuf : TStringFieldBuffer;
s : string;
begin begin
if not FField.DataSet.GetFieldData(FField,@Fieldbuf) then if not FField.DataSet.GetFieldData(FField,@Fieldbuf) then
s := '' FFieldVal^:=#0
else else
s := Fieldbuf; strcopy(FFieldVal,@Fieldbuf[0]);
strcopy(FFieldVal,@s[1]);
end; end;
//--TFloatFieldVar----------------------------------------------------------- //--TFloatFieldVar-----------------------------------------------------------