--- Merging r32850 into '.':

U    packages/fcl-db/src/datadict/fpdatadict.pp
--- Recording mergeinfo for merge of r32850 into '.':
 U   .
--- Merging r32963 into '.':
G    packages/fcl-db/src/datadict/fpdatadict.pp
--- Recording mergeinfo for merge of r32963 into '.':
 G   .

# revisions: 32850,32963

git-svn-id: branches/fixes_3_0@33357 -

packages/fcl-db/src/datadict/fpdatadict.pp

@@ -2514,10 +2514,10 @@ end;
 function TFPDDSQLEngine.CreateSequenceSQL(Sequence: TDDSequenceDef): String;
 begin
   Result:='CREATE SEQUENCE '+Sequence.SequenceName;
-  If (Sequence.StartValue>0) then
-    Result:=Result+'START WITH '+IntToStr(Sequence.StartValue);
+  If (Sequence.StartValue<>0) then
+    Result:=Result+' START WITH '+IntToStr(Sequence.StartValue);
   If (Sequence.Increment<>0) then
-    Result:=Result+'INCREMENT BY '+IntToStr(Sequence.Increment);
+    Result:=Result+' INCREMENT BY '+IntToStr(Sequence.Increment);
 end;
 
 function TFPDDSQLEngine.CreateSequencesSQL(Sequences: TFPDDSequenceList): String;
@@ -2870,7 +2870,7 @@ begin
     T:=TypeInfo(TIndexOptions);
     O:=StringToSet(T,S);
     OP:=TIndexOptions(O);
-    Options:=OP;
+    Self.Options:=OP;
     end;
 end;