paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 13:29:18 +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;
begin
begin
Result := grOK;
case GetMode of
gmPrior :
if FIsBOF then
result := grBOF
else if FBCurrentRecord <= 0 then
begin
Result := grBOF;
FBCurrentRecord := -1;
end
else
begin
Dec(FBCurrentRecord);
FIsEof := false;
end;
gmCurrent :
if (FBCurrentRecord < 0) or (FBCurrentRecord >= RecordCount) then
Result := grError;
gmNext :
if FIsEOF then
result := grEOF
else if FBCurrentRecord >= (FBRecordCount - 1) then
begin
if getnextpacket > 0 then
begin
Inc(FBCurrentRecord);
FIsBof := false;
end
else
begin
FIsEOF := true;
result:=grEOF;
end
end
else
Result := grOK;
case GetMode of
gmPrior :
if FIsBOF then
result := grBOF
else if FBCurrentRecord <= 0 then
begin
Result := grBOF;
FBCurrentRecord := -1;
end
else
begin
Dec(FBCurrentRecord);
FIsEof := false;
end;
gmCurrent :
if (FBCurrentRecord < 0) or (FBCurrentRecord >= RecordCount) then
Result := grError;
gmNext :
if FIsEOF then
result := grEOF
else if FBCurrentRecord >= (FBRecordCount - 1) then
begin
if getnextpacket > 0 then
begin
Inc(FBCurrentRecord);
FIsBof := false;
end;
end;
end
else
begin
FIsEOF := true;
result:=grEOF;
end
end
else
begin
Inc(FBCurrentRecord);
FIsBof := false;
end;
end;
if Result = grOK then