Init

DBKonverter.dpr

@@ -5,7 +5,8 @@ uses
   Unit1 in 'Unit1.pas' {main},
   Vcl.Themes,
   Vcl.Styles,
-  Str_Tool_UTF in '..\Str_Tool\Str_Tool_UTF.pas';
+  Str_Tool_UTF in '..\Str_Tool\Str_Tool_UTF.pas',
+  AppPath in 'D:\Components\Apppath\AppPath.pas';
 
 {$R *.res}
 

DBKonverter.dproj.local

@@ -1,10 +1,11 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.dfm=D:\Projekte\DBKonverter\Unit1.dfm</Transaction>
     <Transaction>1899.12.30 00:00:00.000.616,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Project46.dproj=D:\Projekte\DBKonverter\DBKonverter.dproj</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.467,=D:\Projekte\Str_Tool\Str_Tool_UTF.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.312,=D:\Components\Apppath\AppPath.pas</Transaction>
     <Transaction>1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas=D:\Projekte\DBKonverter\Unit1.pas</Transaction>
     <Transaction>1899.12.30 00:00:00.000.301,=C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas</Transaction>
-    <Transaction>2024.10.11 14:38:12.467,=D:\Projekte\Str_Tool\Str_Tool_UTF.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.dfm=D:\Projekte\DBKonverter\Unit1.dfm</Transaction>
   </Transactions>
 </BorlandProject>

DBKonverter.stat

@@ -1,10 +1,10 @@
 [Stats]
-EditorSecs=765
-DesignerSecs=91
-InspectorSecs=263
-CompileSecs=41164
-OtherSecs=249
+EditorSecs=3977
+DesignerSecs=28
+InspectorSecs=296
+CompileSecs=126664
+OtherSecs=532
 StartTime=19.12.2023 17:20:49
 RealKeys=0
 EffectiveKeys=0
-DebugSecs=1359
+DebugSecs=7921

Unit1.pas

@@ -91,26 +91,26 @@ BEGIN
     FOR i := 0 TO T1.Fielddefs.count - 1 DO
     BEGIN
       IF T1.Fielddefs[i].Datatype = ftString THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' varchar(max) NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' varchar(max) NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' bit NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' float NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' decimal(19,2) NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' date NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' datetime NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' datetime NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' int NULL,')
       ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' int NULL,')
       ELSE
       BEGIN
-        ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,')
+        ZQ1.SQL.Add('['+T1.Fielddefs[i].Name+']' + ' varchar(max) NULL,')
       END;
     END;
     ZQ1.SQL[ZQ1.SQL.count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.count - 1], ',');