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

* Some cleanup of code by LaCak

Browse Source 
git-svn-id: trunk@17705 -
This commit is contained in:
michael 2011-06-09 12:36:34 +00:00
parent 4a08937132
commit 08689fe638
1 changed files with 5 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1803,29 +1803,18 @@ begin
if state = dsOldValue then
begin
if not GetActiveRecordUpdateBuffer then
begin
// There is no old value available
result := false;
exit;
end;
currbuff := FUpdateBuffer[FCurrentUpdateBuffer].OldValuesBuffer;
Exit; // There is no old value available
CurrBuff := FUpdateBuffer[FCurrentUpdateBuffer].OldValuesBuffer;
end
else
CurrBuff := GetCurrentBuffer;
if not assigned(CurrBuff) then
begin
result := false;
exit;
end;
if not assigned(CurrBuff) then Exit;
If Field.Fieldno > 0 then // If = 0, then calculated field or something similar
begin
if GetFieldIsnull(pbyte(CurrBuff),Field.Fieldno-1) then
begin
result := false;
exit;
end;
if GetFieldIsNull(pbyte(CurrBuff),Field.FieldNo-1) then
Exit;
if assigned(buffer) then
begin
inc(CurrBuff,FFieldBufPositions[Field.FieldNo-1]);