pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix compilation error in vpSqlDialect

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4712 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-10 20:08:49 +00:00
parent 4139646e6e
commit 486edd6d5b
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tvplanit/source/vpsqldialect.pas
View File

@@ -167,18 +167,18 @@ procedure TVPBaseSQLDialect.CreateTable(const aTableName: String;
var var
j: Integer; j: Integer;
Fields: String; Fields: String;
SQL: String; lSQL: String;
IDS: ISQLDataSet; IDS: ISQLDataSet;
begin begin
for j := 0 to aFieldDefs.Count-1 do // Iterate for j := 0 to aFieldDefs.Count-1 do // Iterate
Fields:=Fields+SQLGetColumnDef(aFieldDefs[j])+', '; Fields:=Fields+SQLGetColumnDef(aFieldDefs[j])+', ';
SQL:=GetCreateSyntax; lSQL:=GetCreateSyntax;
SQL:=StringReplace(SQL, '%TableName%', aTableName, [rfIgnoreCase]); lSQL:=StringReplace(SQL, '%TableName%', aTableName, [rfIgnoreCase]);
SQL:=StringReplace(SQL, '%Fields%', copy(Fields,1,length(Fields)-2), [rfIgnoreCase]); lSQL:=StringReplace(SQL, '%Fields%', copy(Fields,1,length(Fields)-2), [rfIgnoreCase]);
fDataset.GetInterface(ISQLDataSet, ids); fDataset.GetInterface(ISQLDataSet, ids);
try try
ids.iSQL:=SQL; ids.iSQL:=lSQL;
ids.IExecSQL; ids.IExecSQL;
finally finally
ids:=nil; ids:=nil;