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

- implemented ControlsDisabled

Browse Source 
- implemented TUpdateMode, TProviderFlags
   - implemented TIndexDef, TIndexDefs
   - added error message for if transaction of DB is not set
   - removed some duplicate definitions
   - restructured SetDataset
   - implemented UpdateMode, ProviderFlags
This commit is contained in:
michael 2005-01-12 10:27:08 +00:00
parent c1e71cde91
commit 010ccd8554
1 changed files with 36 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
fcl/db/bufdataset.inc
View File

@ -101,47 +101,45 @@ var x : longint;
NullMask : pbyte; NullMask : pbyte;
begin begin
begin Result := grOK;
Result := grOK; case GetMode of
case GetMode of gmPrior :
gmPrior : if FIsBOF then
if FIsBOF then result := grBOF
result := grBOF else if FBCurrentRecord <= 0 then
else if FBCurrentRecord <= 0 then begin
begin Result := grBOF;
Result := grBOF; FBCurrentRecord := -1;
FBCurrentRecord := -1; end
end else
else begin
begin Dec(FBCurrentRecord);
Dec(FBCurrentRecord); FIsEof := false;
FIsEof := false; end;
end; gmCurrent :
gmCurrent : if (FBCurrentRecord < 0) or (FBCurrentRecord >= RecordCount) then
if (FBCurrentRecord < 0) or (FBCurrentRecord >= RecordCount) then Result := grError;
Result := grError; gmNext :
gmNext : if FIsEOF then
if FIsEOF then result := grEOF
result := grEOF else if FBCurrentRecord >= (FBRecordCount - 1) then
else if FBCurrentRecord >= (FBRecordCount - 1) then begin
begin if getnextpacket > 0 then
if getnextpacket > 0 then
begin
Inc(FBCurrentRecord);
FIsBof := false;
end
else
begin
FIsEOF := true;
result:=grEOF;
end
end
else
begin begin
Inc(FBCurrentRecord); Inc(FBCurrentRecord);
FIsBof := false; FIsBof := false;
end; end
end; else
begin
FIsEOF := true;
result:=grEOF;
end
end
else
begin
Inc(FBCurrentRecord);
FIsBof := false;
end;
end; end;
if Result = grOK then if Result = grOK then