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

fcl-db: bufdataset: revert r27075 because it had already been fixed another way in r26611, r26621

Browse Source 
git-svn-id: trunk@27079 -
This commit is contained in:
reiniero 2014-03-10 13:47:11 +00:00
parent 73f8c956e0
commit 5d71687901
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/fcl-db/src/base/bufdataset.pas
View File

@ -2089,8 +2089,6 @@ function TCustomBufDataset.GetFieldData(Field: TField; Buffer: Pointer): Boolean
var var
CurrBuff : TRecordBuffer; CurrBuff : TRecordBuffer;
BlobBuff : TBufBlobField;
i : integer;
begin begin
Result := False; Result := False;
@ -2112,24 +2110,6 @@ begin
If Field.FieldNo > 0 then // If =-1, then calculated/lookup field or =0 unbound field If Field.FieldNo > 0 then // If =-1, then calculated/lookup field or =0 unbound field
begin begin
if (State <> dsOldValue) and Assigned(Buffer) and (Field is TBlobField) then
for i := High(FUpdateBlobBuffers) downto Low(FUpdateBlobBuffers) do
if Assigned(FUpdateBlobBuffers[i]) and
(FUpdateBlobBuffers[i]^.FieldNo = Field.FieldNo) then
begin
// The right blob buffer:
FillChar(BlobBuff, SizeOf(TBufBlobField),#0);
if not GetFieldIsNull(pbyte(CurrBuff), Field.FieldNo-1) then
begin
inc(CurrBuff, FFieldBufPositions[Field.FieldNo-1]);
Move(CurrBuff^, BlobBuff, SizeOf(BlobBuff.ConnBlobBuffer));
end;
BlobBuff.BlobBuffer := FUpdateBlobBuffers[i];
Move(BlobBuff, Buffer^, SizeOf(TBufBlobField));
Result := True;
Exit;
end;
if GetFieldIsNull(pbyte(CurrBuff),Field.FieldNo-1) then if GetFieldIsNull(pbyte(CurrBuff),Field.FieldNo-1) then
Exit; Exit;
if assigned(buffer) then if assigned(buffer) then