From 486edd6d5ba287b74a5a0fe6ad8b2c9ce73490b7 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 10 Jun 2016 20:08:49 +0000
Subject: [PATCH] tvplanit: Fix compilation error in vpSqlDialect

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4712 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpsqldialect.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/tvplanit/source/vpsqldialect.pas b/components/tvplanit/source/vpsqldialect.pas
index 130954e98..78c397686 100644
--- a/components/tvplanit/source/vpsqldialect.pas
+++ b/components/tvplanit/source/vpsqldialect.pas
@@ -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;