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

* Patch from Luiz Americo to remove redundant field check (is in BindFields) Bug ID #29296

Browse Source 
git-svn-id: trunk@32807 -
This commit is contained in:
michael 2015-12-31 14:18:04 +00:00
parent 3c73c99a18
commit 49fcad5119
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1249,15 +1249,17 @@ begin
if Fields.Count = 0 then if Fields.Count = 0 then
DatabaseError(SErrNoDataset); DatabaseError(SErrNoDataset);
// If there is a field with FieldNo=0 then the fields are not found to the // search for autoinc field
// FieldDefs which is a sign that there is no dataset created. (Calculated and
// lookup fields have FieldNo=-1)
FAutoIncField:=nil; FAutoIncField:=nil;
for i := 0 to Fields.Count-1 do if FAutoIncValue>-1 then
if Fields[i].FieldNo=0 then begin
DatabaseError(SErrNoDataset) for i := 0 to Fields.Count-1 do
else if (FAutoIncValue>-1) and (Fields[i] is TAutoIncField) and not assigned(FAutoIncField) then if Fields[i] is TAutoIncField then
FAutoIncField := TAutoIncField(Fields[i]); begin
FAutoIncField := TAutoIncField(Fields[i]);
Break;
end;
end;
InitDefaultIndexes; InitDefaultIndexes;
CalcRecordSize; CalcRecordSize;