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

* Position keeps increasing in firebird, but can have missing positions when a field is dropped

Browse Source 
git-svn-id: trunk@13855 -
This commit is contained in:
michael 2009-10-13 18:56:49 +00:00
parent 242560f138
commit 43d3bacc78
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/datadict/fpddfb.pp
View File

@ -459,7 +459,7 @@ Var
{Opmerking: bestaande fielddefs die niet meer in de tabel zitten worden niet verwijderd !? }
function ImportFieldDef : boolean;
function ImportFieldDef(APosition : Integer) : boolean;
var FD : TDDFieldDef;
n, s : string;
begin
@ -497,7 +497,7 @@ Var
FD.Required:=false
else
FD.Required:=false;
FD.index := FPosition.AsInteger;
FD.index := APosition;
s := trim(FDomainName.asstring);
if copy(s, 1, 4) <> 'RDB$' then
FD.DomainName := s
@ -513,7 +513,7 @@ Var
BindFields;
while not Q.eof do
begin
if ImportFieldDef then
if ImportFieldDef(Result) then
inc (result);
Q.Next;
end;