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