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

--- Merging r32850 into '.':

Browse Source 
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 -
This commit is contained in:
marco 2016-03-27 21:39:35 +00:00
parent 6eac008a4e
commit 242aa90d07
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/datadict/fpdatadict.pp
View File

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