11 年之前 · c7f6aeb15c
--- a/comparison.pas
+++ b/comparison.pas
@@ -1431,7 +1431,6 @@ begin
 
															           Line:= Line + 'index ' + AIndexName + ' on ' + ATableName;
														
 
															           Line:= Line + ' (' + FieldsList.CommaText + ') ;';
														
 
															-
														
 
															         end;
														
 
															         FQueryWindow.meQuery.Lines.Add(Line);
														
--- a/scriptdb.pas
+++ b/scriptdb.pas
@@ -1,5 +1,6 @@
 
															 unit Scriptdb;
														
 
															+{ Non-GUI unit that allows you to script a database's object DDL statements }
														
 
															 {$mode objfpc}{$H+}
														
 
															 interface