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
j: Integer;
Fields: String;
SQL: String;
lSQL: String;
IDS: ISQLDataSet;
begin
for j := 0 to aFieldDefs.Count-1 do // Iterate
Fields:=Fields+SQLGetColumnDef(aFieldDefs[j])+', ';
SQL:=GetCreateSyntax;
SQL:=StringReplace(SQL, '%TableName%', aTableName, [rfIgnoreCase]);
SQL:=StringReplace(SQL, '%Fields%', copy(Fields,1,length(Fields)-2), [rfIgnoreCase]);
lSQL:=GetCreateSyntax;
lSQL:=StringReplace(SQL, '%TableName%', aTableName, [rfIgnoreCase]);
lSQL:=StringReplace(SQL, '%Fields%', copy(Fields,1,length(Fields)-2), [rfIgnoreCase]);
fDataset.GetInterface(ISQLDataSet, ids);
try
ids.iSQL:=SQL;
ids.iSQL:=lSQL;
ids.IExecSQL;
finally
ids:=nil;