paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 06:06:17 +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 !? } {Opmerking: bestaande fielddefs die niet meer in de tabel zitten worden niet verwijderd !? }
function ImportFieldDef : boolean; function ImportFieldDef(APosition : Integer) : boolean;
var FD : TDDFieldDef; var FD : TDDFieldDef;
n, s : string; n, s : string;
begin begin
@ -497,7 +497,7 @@ Var
FD.Required:=false FD.Required:=false
else else
FD.Required:=false; FD.Required:=false;
FD.index := FPosition.AsInteger; FD.index := APosition;
s := trim(FDomainName.asstring); s := trim(FDomainName.asstring);
if copy(s, 1, 4) <> 'RDB$' then if copy(s, 1, 4) <> 'RDB$' then
FD.DomainName := s FD.DomainName := s
@ -513,7 +513,7 @@ Var
BindFields; BindFields;
while not Q.eof do while not Q.eof do
begin begin
if ImportFieldDef then if ImportFieldDef(Result) then
inc (result); inc (result);
Q.Next; Q.Next;
end; end;