diff --git a/DBKonverter.dpr b/DBKonverter.dpr index f2b79a6..2693f02 100644 --- a/DBKonverter.dpr +++ b/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} diff --git a/DBKonverter.dproj b/DBKonverter.dproj index 358f572..52c0c78 100644 --- a/DBKonverter.dproj +++ b/DBKonverter.dproj @@ -1,7 +1,7 @@  {EDDA6659-A9ED-4795-BC3A-3BEDE04605E9} - 18.4 + 20.1 VCL DBKonverter.dpr True @@ -9,6 +9,7 @@ Win32 1 Application + DBKonverter true @@ -83,9 +84,9 @@ false true - true true 1033 + PerMonitor false @@ -95,7 +96,7 @@ true - true + PerMonitor @@ -106,10 +107,7 @@ dfm - - Cfg_2 - Base - + Base @@ -117,6 +115,10 @@ Cfg_1 Base + + Cfg_2 + Base + Delphi.Personality.12 @@ -134,7 +136,7 @@ Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server - + DBKonverter.exe @@ -150,19 +152,26 @@ 1 - Contents\MacOS 0 - + classes - 1 + 64 + + + classes + 64 - + - library\lib\armeabi-v7a + res\xml + 1 + + + res\xml 1 @@ -171,90 +180,382 @@ library\lib\armeabi 1 + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + library\lib\mips 1 + + library\lib\mips + 1 + library\lib\armeabi-v7a 1 + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + res\drawable 1 + + res\drawable + 1 + + + + + res\drawable-anydpi-v21 + 1 + + + res\drawable-anydpi-v21 + 1 + res\values 1 + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values-v31 + 1 + + + res\values-v31 + 1 + + + + + res\drawable-anydpi-v26 + 1 + + + res\drawable-anydpi-v26 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-anydpi-v33 + 1 + + + res\drawable-anydpi-v33 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-night-v21 + 1 + + + res\values-night-v21 + 1 + res\drawable 1 + + res\drawable + 1 + res\drawable-xxhdpi 1 + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + res\drawable-ldpi 1 + + res\drawable-ldpi + 1 + res\drawable-mdpi 1 + + res\drawable-mdpi + 1 + res\drawable-hdpi 1 + + res\drawable-hdpi + 1 + res\drawable-xhdpi 1 + + res\drawable-xhdpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + res\drawable-small 1 + + res\drawable-small + 1 + res\drawable-normal 1 + + res\drawable-normal + 1 + res\drawable-large 1 + + res\drawable-large + 1 + res\drawable-xlarge 1 + + res\drawable-xlarge + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\drawable-anydpi-v24 + 1 + + + res\drawable-anydpi-v24 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-night-anydpi-v21 + 1 + + + res\drawable-night-anydpi-v21 + 1 + + + + + res\drawable-anydpi-v31 + 1 + + + res\drawable-anydpi-v31 + 1 + + + + + res\drawable-night-anydpi-v31 + 1 + + + res\drawable-night-anydpi-v31 + 1 + @@ -274,6 +575,16 @@ 1 .framework + + Contents\MacOS + 1 + .framework + + + Contents\MacOS + 1 + .framework + 0 @@ -287,7 +598,7 @@ 1 .dylib - + 1 .dylib @@ -296,6 +607,16 @@ 1 .dylib + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + 0 .dll;.bpl @@ -310,7 +631,7 @@ 1 .dylib - + 1 .dylib @@ -319,6 +640,16 @@ 1 .dylib + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + 0 .bpl @@ -328,104 +659,147 @@ 0 + + 0 + 0 0 - + 0 Contents\Resources\StartUp\ 0 + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + 0 - - - 1 - - - 1 - - - 1 - - - - - 1 - - - 1 - - - 1 - - - - - 1 - - - 1 - - - 1 - - - - - 1 - - - 1 - - - 1 - - - - - 1 - - - 1 - - - 1 - - - - - 1 - - - 1 - - - 1 - - - - - 1 - - - 1 - - - 1 - - 1 + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + ..\ + 1 + + + + + Contents + 1 + + + Contents + 1 + + + Contents + 1 + + + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + 1 + @@ -436,12 +810,8 @@ ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 1 - - - - 1 - - + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 1 @@ -454,6 +824,10 @@ ..\ 1 + + ..\ + 1 + @@ -462,10 +836,20 @@ 1 - + 1 + + + ..\$(PROJECTNAME).launchscreen + 64 + + + ..\$(PROJECTNAME).launchscreen + 64 + + 1 @@ -473,58 +857,7 @@ 1 - - 1 - - - - - ..\ - 1 - - - - - Contents - 1 - - - - - Contents\Resources - 1 - - - - - library\lib\armeabi-v7a - 1 - - - 1 - - - 1 - - - 1 - - - 1 - - - Contents\MacOS - 1 - - - 0 - - - - - 1 - - + 1 @@ -548,14 +881,219 @@ 1 - - - - - - + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + + + + + + + + + True diff --git a/DBKonverter.dproj.local b/DBKonverter.dproj.local index c739bde..4bc3be9 100644 --- a/DBKonverter.dproj.local +++ b/DBKonverter.dproj.local @@ -1,10 +1,11 @@  - 1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.dfm=D:\Projekte\DBKonverter\Unit1.dfm 1899.12.30 00:00:00.000.616,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Project46.dproj=D:\Projekte\DBKonverter\DBKonverter.dproj + 1899.12.30 00:00:00.000.467,=D:\Projekte\Str_Tool\Str_Tool_UTF.pas + 1899.12.30 00:00:00.000.312,=D:\Components\Apppath\AppPath.pas 1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas=D:\Projekte\DBKonverter\Unit1.pas 1899.12.30 00:00:00.000.301,=C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas - 2024.10.11 14:38:12.467,=D:\Projekte\Str_Tool\Str_Tool_UTF.pas + 1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.dfm=D:\Projekte\DBKonverter\Unit1.dfm diff --git a/DBKonverter.identcache b/DBKonverter.identcache index e6501e6..4d62bd3 100644 Binary files a/DBKonverter.identcache and b/DBKonverter.identcache differ diff --git a/DBKonverter.res b/DBKonverter.res index bf7e57d..2032364 100644 Binary files a/DBKonverter.res and b/DBKonverter.res differ diff --git a/DBKonverter.stat b/DBKonverter.stat index 3afec55..1356017 100644 --- a/DBKonverter.stat +++ b/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 diff --git a/Unit1.pas b/Unit1.pas index 27973d6..5926898 100644 --- a/Unit1.pas +++ b/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], ','); diff --git a/Win32/Debug/AppPath.dcu b/Win32/Debug/AppPath.dcu index a95ca4b..4c967a5 100644 Binary files a/Win32/Debug/AppPath.dcu and b/Win32/Debug/AppPath.dcu differ diff --git a/Win32/Debug/DBKonverter.exe b/Win32/Debug/DBKonverter.exe index b928121..7e6243c 100644 Binary files a/Win32/Debug/DBKonverter.exe and b/Win32/Debug/DBKonverter.exe differ diff --git a/Win32/Debug/Str_Tool_UTF.dcu b/Win32/Debug/Str_Tool_UTF.dcu index 5f87eb6..09bce7c 100644 Binary files a/Win32/Debug/Str_Tool_UTF.dcu and b/Win32/Debug/Str_Tool_UTF.dcu differ diff --git a/Win32/Debug/Unit1.dcu b/Win32/Debug/Unit1.dcu index 0845364..44d8dde 100644 Binary files a/Win32/Debug/Unit1.dcu and b/Win32/Debug/Unit1.dcu differ diff --git a/Win32/Debug/ZAbstractConnection.dcu b/Win32/Debug/ZAbstractConnection.dcu index f3b6bfd..cfe93d8 100644 Binary files a/Win32/Debug/ZAbstractConnection.dcu and b/Win32/Debug/ZAbstractConnection.dcu differ diff --git a/Win32/Debug/ZAbstractDataset.dcu b/Win32/Debug/ZAbstractDataset.dcu index 8fbfbc4..0b4278c 100644 Binary files a/Win32/Debug/ZAbstractDataset.dcu and b/Win32/Debug/ZAbstractDataset.dcu differ diff --git a/Win32/Debug/ZAbstractRODataset.dcu b/Win32/Debug/ZAbstractRODataset.dcu index 6512c15..8b37dc6 100644 Binary files a/Win32/Debug/ZAbstractRODataset.dcu and b/Win32/Debug/ZAbstractRODataset.dcu differ diff --git a/Win32/Debug/ZAbstractTable.dcu b/Win32/Debug/ZAbstractTable.dcu index 4f133f1..f99858b 100644 Binary files a/Win32/Debug/ZAbstractTable.dcu and b/Win32/Debug/ZAbstractTable.dcu differ diff --git a/Win32/Debug/ZAdoToken.dcu b/Win32/Debug/ZAdoToken.dcu index 1ebfaec..970bdf8 100644 Binary files a/Win32/Debug/ZAdoToken.dcu and b/Win32/Debug/ZAdoToken.dcu differ diff --git a/Win32/Debug/ZBase64.dcu b/Win32/Debug/ZBase64.dcu index 57c31b4..805d3cc 100644 Binary files a/Win32/Debug/ZBase64.dcu and b/Win32/Debug/ZBase64.dcu differ diff --git a/Win32/Debug/ZClasses.dcu b/Win32/Debug/ZClasses.dcu index d83eea4..9ff330b 100644 Binary files a/Win32/Debug/ZClasses.dcu and b/Win32/Debug/ZClasses.dcu differ diff --git a/Win32/Debug/ZCollections.dcu b/Win32/Debug/ZCollections.dcu index 29387b2..437a020 100644 Binary files a/Win32/Debug/ZCollections.dcu and b/Win32/Debug/ZCollections.dcu differ diff --git a/Win32/Debug/ZCompatibility.dcu b/Win32/Debug/ZCompatibility.dcu index 4a0f89e..b85d258 100644 Binary files a/Win32/Debug/ZCompatibility.dcu and b/Win32/Debug/ZCompatibility.dcu differ diff --git a/Win32/Debug/ZConnection.dcu b/Win32/Debug/ZConnection.dcu index 88a489a..b0d44a3 100644 Binary files a/Win32/Debug/ZConnection.dcu and b/Win32/Debug/ZConnection.dcu differ diff --git a/Win32/Debug/ZDataset.dcu b/Win32/Debug/ZDataset.dcu index 9b4e397..f291383 100644 Binary files a/Win32/Debug/ZDataset.dcu and b/Win32/Debug/ZDataset.dcu differ diff --git a/Win32/Debug/ZDatasetParam.dcu b/Win32/Debug/ZDatasetParam.dcu index 8b97dcd..a573beb 100644 Binary files a/Win32/Debug/ZDatasetParam.dcu and b/Win32/Debug/ZDatasetParam.dcu differ diff --git a/Win32/Debug/ZDatasetUtils.dcu b/Win32/Debug/ZDatasetUtils.dcu index f013582..c63256b 100644 Binary files a/Win32/Debug/ZDatasetUtils.dcu and b/Win32/Debug/ZDatasetUtils.dcu differ diff --git a/Win32/Debug/ZDbcASA.dcu b/Win32/Debug/ZDbcASA.dcu index 0bf0ec8..884f30b 100644 Binary files a/Win32/Debug/ZDbcASA.dcu and b/Win32/Debug/ZDbcASA.dcu differ diff --git a/Win32/Debug/ZDbcASAMetadata.dcu b/Win32/Debug/ZDbcASAMetadata.dcu index 0990439..2fa4759 100644 Binary files a/Win32/Debug/ZDbcASAMetadata.dcu and b/Win32/Debug/ZDbcASAMetadata.dcu differ diff --git a/Win32/Debug/ZDbcASAResultSet.dcu b/Win32/Debug/ZDbcASAResultSet.dcu index ab5b6ae..39e9eb3 100644 Binary files a/Win32/Debug/ZDbcASAResultSet.dcu and b/Win32/Debug/ZDbcASAResultSet.dcu differ diff --git a/Win32/Debug/ZDbcASAStatement.dcu b/Win32/Debug/ZDbcASAStatement.dcu index 22cfbb3..33206f9 100644 Binary files a/Win32/Debug/ZDbcASAStatement.dcu and b/Win32/Debug/ZDbcASAStatement.dcu differ diff --git a/Win32/Debug/ZDbcASAUtils.dcu b/Win32/Debug/ZDbcASAUtils.dcu index e347d94..845ea9f 100644 Binary files a/Win32/Debug/ZDbcASAUtils.dcu and b/Win32/Debug/ZDbcASAUtils.dcu differ diff --git a/Win32/Debug/ZDbcAdo.dcu b/Win32/Debug/ZDbcAdo.dcu index 0051591..6ef3f30 100644 Binary files a/Win32/Debug/ZDbcAdo.dcu and b/Win32/Debug/ZDbcAdo.dcu differ diff --git a/Win32/Debug/ZDbcAdoMetadata.dcu b/Win32/Debug/ZDbcAdoMetadata.dcu index 3675765..59738b8 100644 Binary files a/Win32/Debug/ZDbcAdoMetadata.dcu and b/Win32/Debug/ZDbcAdoMetadata.dcu differ diff --git a/Win32/Debug/ZDbcAdoResultSet.dcu b/Win32/Debug/ZDbcAdoResultSet.dcu index 585475b..1833905 100644 Binary files a/Win32/Debug/ZDbcAdoResultSet.dcu and b/Win32/Debug/ZDbcAdoResultSet.dcu differ diff --git a/Win32/Debug/ZDbcAdoStatement.dcu b/Win32/Debug/ZDbcAdoStatement.dcu index 7265979..11b54e3 100644 Binary files a/Win32/Debug/ZDbcAdoStatement.dcu and b/Win32/Debug/ZDbcAdoStatement.dcu differ diff --git a/Win32/Debug/ZDbcAdoUtils.dcu b/Win32/Debug/ZDbcAdoUtils.dcu index 31785b1..5ae574b 100644 Binary files a/Win32/Debug/ZDbcAdoUtils.dcu and b/Win32/Debug/ZDbcAdoUtils.dcu differ diff --git a/Win32/Debug/ZDbcBeginnerStatement.dcu b/Win32/Debug/ZDbcBeginnerStatement.dcu index 891b397..30d2cd2 100644 Binary files a/Win32/Debug/ZDbcBeginnerStatement.dcu and b/Win32/Debug/ZDbcBeginnerStatement.dcu differ diff --git a/Win32/Debug/ZDbcCache.dcu b/Win32/Debug/ZDbcCache.dcu index 6dca626..ae8040c 100644 Binary files a/Win32/Debug/ZDbcCache.dcu and b/Win32/Debug/ZDbcCache.dcu differ diff --git a/Win32/Debug/ZDbcCachedResultSet.dcu b/Win32/Debug/ZDbcCachedResultSet.dcu index 70ced3f..9f7ec44 100644 Binary files a/Win32/Debug/ZDbcCachedResultSet.dcu and b/Win32/Debug/ZDbcCachedResultSet.dcu differ diff --git a/Win32/Debug/ZDbcConnection.dcu b/Win32/Debug/ZDbcConnection.dcu index b4ffb32..f181c0f 100644 Binary files a/Win32/Debug/ZDbcConnection.dcu and b/Win32/Debug/ZDbcConnection.dcu differ diff --git a/Win32/Debug/ZDbcDbLib.dcu b/Win32/Debug/ZDbcDbLib.dcu index b19b9af..d6a582d 100644 Binary files a/Win32/Debug/ZDbcDbLib.dcu and b/Win32/Debug/ZDbcDbLib.dcu differ diff --git a/Win32/Debug/ZDbcDbLibMetadata.dcu b/Win32/Debug/ZDbcDbLibMetadata.dcu index 4b81bf8..98efa49 100644 Binary files a/Win32/Debug/ZDbcDbLibMetadata.dcu and b/Win32/Debug/ZDbcDbLibMetadata.dcu differ diff --git a/Win32/Debug/ZDbcDbLibResultSet.dcu b/Win32/Debug/ZDbcDbLibResultSet.dcu index 7da3661..4a52cd5 100644 Binary files a/Win32/Debug/ZDbcDbLibResultSet.dcu and b/Win32/Debug/ZDbcDbLibResultSet.dcu differ diff --git a/Win32/Debug/ZDbcDbLibStatement.dcu b/Win32/Debug/ZDbcDbLibStatement.dcu index efe424b..a88976f 100644 Binary files a/Win32/Debug/ZDbcDbLibStatement.dcu and b/Win32/Debug/ZDbcDbLibStatement.dcu differ diff --git a/Win32/Debug/ZDbcDbLibUtils.dcu b/Win32/Debug/ZDbcDbLibUtils.dcu index 90cba53..532fd09 100644 Binary files a/Win32/Debug/ZDbcDbLibUtils.dcu and b/Win32/Debug/ZDbcDbLibUtils.dcu differ diff --git a/Win32/Debug/ZDbcFirebird.dcu b/Win32/Debug/ZDbcFirebird.dcu index 5c1a4ca..80d3d92 100644 Binary files a/Win32/Debug/ZDbcFirebird.dcu and b/Win32/Debug/ZDbcFirebird.dcu differ diff --git a/Win32/Debug/ZDbcFirebirdInterbase.dcu b/Win32/Debug/ZDbcFirebirdInterbase.dcu index 8a2bf2d..e32a502 100644 Binary files a/Win32/Debug/ZDbcFirebirdInterbase.dcu and b/Win32/Debug/ZDbcFirebirdInterbase.dcu differ diff --git a/Win32/Debug/ZDbcFirebirdResultSet.dcu b/Win32/Debug/ZDbcFirebirdResultSet.dcu index 595bd13..48923d2 100644 Binary files a/Win32/Debug/ZDbcFirebirdResultSet.dcu and b/Win32/Debug/ZDbcFirebirdResultSet.dcu differ diff --git a/Win32/Debug/ZDbcFirebirdStatement.dcu b/Win32/Debug/ZDbcFirebirdStatement.dcu index 8a4a262..367cbe9 100644 Binary files a/Win32/Debug/ZDbcFirebirdStatement.dcu and b/Win32/Debug/ZDbcFirebirdStatement.dcu differ diff --git a/Win32/Debug/ZDbcGenericResolver.dcu b/Win32/Debug/ZDbcGenericResolver.dcu index 69d6704..f242fbc 100644 Binary files a/Win32/Debug/ZDbcGenericResolver.dcu and b/Win32/Debug/ZDbcGenericResolver.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6.dcu b/Win32/Debug/ZDbcInterbase6.dcu index 861f6cf..a87ec7b 100644 Binary files a/Win32/Debug/ZDbcInterbase6.dcu and b/Win32/Debug/ZDbcInterbase6.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6ResultSet.dcu b/Win32/Debug/ZDbcInterbase6ResultSet.dcu index eb9b833..08b7d5c 100644 Binary files a/Win32/Debug/ZDbcInterbase6ResultSet.dcu and b/Win32/Debug/ZDbcInterbase6ResultSet.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6Statement.dcu b/Win32/Debug/ZDbcInterbase6Statement.dcu index fbd4b7a..7ee8792 100644 Binary files a/Win32/Debug/ZDbcInterbase6Statement.dcu and b/Win32/Debug/ZDbcInterbase6Statement.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6Utils.dcu b/Win32/Debug/ZDbcInterbase6Utils.dcu index 85a631b..228a2ca 100644 Binary files a/Win32/Debug/ZDbcInterbase6Utils.dcu and b/Win32/Debug/ZDbcInterbase6Utils.dcu differ diff --git a/Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu b/Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu index a0a405e..68a9100 100644 Binary files a/Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu and b/Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu differ diff --git a/Win32/Debug/ZDbcIntfs.dcu b/Win32/Debug/ZDbcIntfs.dcu index ba1c4a1..8ce19a5 100644 Binary files a/Win32/Debug/ZDbcIntfs.dcu and b/Win32/Debug/ZDbcIntfs.dcu differ diff --git a/Win32/Debug/ZDbcLogging.dcu b/Win32/Debug/ZDbcLogging.dcu index 92b192d..3fc98f1 100644 Binary files a/Win32/Debug/ZDbcLogging.dcu and b/Win32/Debug/ZDbcLogging.dcu differ diff --git a/Win32/Debug/ZDbcMetadata.dcu b/Win32/Debug/ZDbcMetadata.dcu index 739e792..11d2eff 100644 Binary files a/Win32/Debug/ZDbcMetadata.dcu and b/Win32/Debug/ZDbcMetadata.dcu differ diff --git a/Win32/Debug/ZDbcMySql.dcu b/Win32/Debug/ZDbcMySql.dcu index ee2c87e..4f1dccc 100644 Binary files a/Win32/Debug/ZDbcMySql.dcu and b/Win32/Debug/ZDbcMySql.dcu differ diff --git a/Win32/Debug/ZDbcMySqlMetadata.dcu b/Win32/Debug/ZDbcMySqlMetadata.dcu index 715a426..e869a0c 100644 Binary files a/Win32/Debug/ZDbcMySqlMetadata.dcu and b/Win32/Debug/ZDbcMySqlMetadata.dcu differ diff --git a/Win32/Debug/ZDbcMySqlResultSet.dcu b/Win32/Debug/ZDbcMySqlResultSet.dcu index e4a21a2..618997a 100644 Binary files a/Win32/Debug/ZDbcMySqlResultSet.dcu and b/Win32/Debug/ZDbcMySqlResultSet.dcu differ diff --git a/Win32/Debug/ZDbcMySqlStatement.dcu b/Win32/Debug/ZDbcMySqlStatement.dcu index afeff13..9d9e309 100644 Binary files a/Win32/Debug/ZDbcMySqlStatement.dcu and b/Win32/Debug/ZDbcMySqlStatement.dcu differ diff --git a/Win32/Debug/ZDbcMySqlUtils.dcu b/Win32/Debug/ZDbcMySqlUtils.dcu index d1f62b7..f163b84 100644 Binary files a/Win32/Debug/ZDbcMySqlUtils.dcu and b/Win32/Debug/ZDbcMySqlUtils.dcu differ diff --git a/Win32/Debug/ZDbcODBCCon.dcu b/Win32/Debug/ZDbcODBCCon.dcu index b6d2407..e814567 100644 Binary files a/Win32/Debug/ZDbcODBCCon.dcu and b/Win32/Debug/ZDbcODBCCon.dcu differ diff --git a/Win32/Debug/ZDbcODBCMetadata.dcu b/Win32/Debug/ZDbcODBCMetadata.dcu index 35bc1eb..2957d9e 100644 Binary files a/Win32/Debug/ZDbcODBCMetadata.dcu and b/Win32/Debug/ZDbcODBCMetadata.dcu differ diff --git a/Win32/Debug/ZDbcODBCResultSet.dcu b/Win32/Debug/ZDbcODBCResultSet.dcu index 510c9a6..bfac0d1 100644 Binary files a/Win32/Debug/ZDbcODBCResultSet.dcu and b/Win32/Debug/ZDbcODBCResultSet.dcu differ diff --git a/Win32/Debug/ZDbcODBCStatement.dcu b/Win32/Debug/ZDbcODBCStatement.dcu index 84f1c7c..59a33c1 100644 Binary files a/Win32/Debug/ZDbcODBCStatement.dcu and b/Win32/Debug/ZDbcODBCStatement.dcu differ diff --git a/Win32/Debug/ZDbcODBCUtils.dcu b/Win32/Debug/ZDbcODBCUtils.dcu index dfbc760..4d22058 100644 Binary files a/Win32/Debug/ZDbcODBCUtils.dcu and b/Win32/Debug/ZDbcODBCUtils.dcu differ diff --git a/Win32/Debug/ZDbcOleDB.dcu b/Win32/Debug/ZDbcOleDB.dcu index 1150e36..15a883c 100644 Binary files a/Win32/Debug/ZDbcOleDB.dcu and b/Win32/Debug/ZDbcOleDB.dcu differ diff --git a/Win32/Debug/ZDbcOleDBMetadata.dcu b/Win32/Debug/ZDbcOleDBMetadata.dcu index e0e8378..1366e2f 100644 Binary files a/Win32/Debug/ZDbcOleDBMetadata.dcu and b/Win32/Debug/ZDbcOleDBMetadata.dcu differ diff --git a/Win32/Debug/ZDbcOleDBResultSet.dcu b/Win32/Debug/ZDbcOleDBResultSet.dcu index 29dfd9e..e24345b 100644 Binary files a/Win32/Debug/ZDbcOleDBResultSet.dcu and b/Win32/Debug/ZDbcOleDBResultSet.dcu differ diff --git a/Win32/Debug/ZDbcOleDBStatement.dcu b/Win32/Debug/ZDbcOleDBStatement.dcu index e4022a2..81f4948 100644 Binary files a/Win32/Debug/ZDbcOleDBStatement.dcu and b/Win32/Debug/ZDbcOleDBStatement.dcu differ diff --git a/Win32/Debug/ZDbcOleDBUtils.dcu b/Win32/Debug/ZDbcOleDBUtils.dcu index 7935f55..2a9d385 100644 Binary files a/Win32/Debug/ZDbcOleDBUtils.dcu and b/Win32/Debug/ZDbcOleDBUtils.dcu differ diff --git a/Win32/Debug/ZDbcOracle.dcu b/Win32/Debug/ZDbcOracle.dcu index c44d552..1ae2aac 100644 Binary files a/Win32/Debug/ZDbcOracle.dcu and b/Win32/Debug/ZDbcOracle.dcu differ diff --git a/Win32/Debug/ZDbcOracleMetadata.dcu b/Win32/Debug/ZDbcOracleMetadata.dcu index 8205cac..6f654e0 100644 Binary files a/Win32/Debug/ZDbcOracleMetadata.dcu and b/Win32/Debug/ZDbcOracleMetadata.dcu differ diff --git a/Win32/Debug/ZDbcOracleResultSet.dcu b/Win32/Debug/ZDbcOracleResultSet.dcu index d6a716d..a973fc3 100644 Binary files a/Win32/Debug/ZDbcOracleResultSet.dcu and b/Win32/Debug/ZDbcOracleResultSet.dcu differ diff --git a/Win32/Debug/ZDbcOracleStatement.dcu b/Win32/Debug/ZDbcOracleStatement.dcu index f156c05..20863b1 100644 Binary files a/Win32/Debug/ZDbcOracleStatement.dcu and b/Win32/Debug/ZDbcOracleStatement.dcu differ diff --git a/Win32/Debug/ZDbcOracleUtils.dcu b/Win32/Debug/ZDbcOracleUtils.dcu index 0be45a0..aa68b8f 100644 Binary files a/Win32/Debug/ZDbcOracleUtils.dcu and b/Win32/Debug/ZDbcOracleUtils.dcu differ diff --git a/Win32/Debug/ZDbcPooled.dcu b/Win32/Debug/ZDbcPooled.dcu index cf7ca8b..e0b0074 100644 Binary files a/Win32/Debug/ZDbcPooled.dcu and b/Win32/Debug/ZDbcPooled.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSql.dcu b/Win32/Debug/ZDbcPostgreSql.dcu index 86c217b..f1387b9 100644 Binary files a/Win32/Debug/ZDbcPostgreSql.dcu and b/Win32/Debug/ZDbcPostgreSql.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlMetadata.dcu b/Win32/Debug/ZDbcPostgreSqlMetadata.dcu index 65e3aaf..c799f35 100644 Binary files a/Win32/Debug/ZDbcPostgreSqlMetadata.dcu and b/Win32/Debug/ZDbcPostgreSqlMetadata.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlResultSet.dcu b/Win32/Debug/ZDbcPostgreSqlResultSet.dcu index 260231f..87f81bb 100644 Binary files a/Win32/Debug/ZDbcPostgreSqlResultSet.dcu and b/Win32/Debug/ZDbcPostgreSqlResultSet.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlStatement.dcu b/Win32/Debug/ZDbcPostgreSqlStatement.dcu index 1db651d..c9fec9c 100644 Binary files a/Win32/Debug/ZDbcPostgreSqlStatement.dcu and b/Win32/Debug/ZDbcPostgreSqlStatement.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlUtils.dcu b/Win32/Debug/ZDbcPostgreSqlUtils.dcu index 56cc877..c7068a3 100644 Binary files a/Win32/Debug/ZDbcPostgreSqlUtils.dcu and b/Win32/Debug/ZDbcPostgreSqlUtils.dcu differ diff --git a/Win32/Debug/ZDbcProperties.dcu b/Win32/Debug/ZDbcProperties.dcu index d8f9a47..160827d 100644 Binary files a/Win32/Debug/ZDbcProperties.dcu and b/Win32/Debug/ZDbcProperties.dcu differ diff --git a/Win32/Debug/ZDbcProxy.dcu b/Win32/Debug/ZDbcProxy.dcu index 1912f3b..7380af0 100644 Binary files a/Win32/Debug/ZDbcProxy.dcu and b/Win32/Debug/ZDbcProxy.dcu differ diff --git a/Win32/Debug/ZDbcProxyMetadata.dcu b/Win32/Debug/ZDbcProxyMetadata.dcu index 6c641f1..6000eec 100644 Binary files a/Win32/Debug/ZDbcProxyMetadata.dcu and b/Win32/Debug/ZDbcProxyMetadata.dcu differ diff --git a/Win32/Debug/ZDbcProxyResultSet.dcu b/Win32/Debug/ZDbcProxyResultSet.dcu index 04236e6..02429df 100644 Binary files a/Win32/Debug/ZDbcProxyResultSet.dcu and b/Win32/Debug/ZDbcProxyResultSet.dcu differ diff --git a/Win32/Debug/ZDbcProxyStatement.dcu b/Win32/Debug/ZDbcProxyStatement.dcu index 4dc09a1..14c615d 100644 Binary files a/Win32/Debug/ZDbcProxyStatement.dcu and b/Win32/Debug/ZDbcProxyStatement.dcu differ diff --git a/Win32/Debug/ZDbcProxyUtils.dcu b/Win32/Debug/ZDbcProxyUtils.dcu index 3bb6931..750dfdd 100644 Binary files a/Win32/Debug/ZDbcProxyUtils.dcu and b/Win32/Debug/ZDbcProxyUtils.dcu differ diff --git a/Win32/Debug/ZDbcResultSet.dcu b/Win32/Debug/ZDbcResultSet.dcu index 5fc13d1..1b32ac4 100644 Binary files a/Win32/Debug/ZDbcResultSet.dcu and b/Win32/Debug/ZDbcResultSet.dcu differ diff --git a/Win32/Debug/ZDbcResultSetMetadata.dcu b/Win32/Debug/ZDbcResultSetMetadata.dcu index 2493a57..3efa2ec 100644 Binary files a/Win32/Debug/ZDbcResultSetMetadata.dcu and b/Win32/Debug/ZDbcResultSetMetadata.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhere.dcu b/Win32/Debug/ZDbcSQLAnywhere.dcu index 0bc571f..625f7a5 100644 Binary files a/Win32/Debug/ZDbcSQLAnywhere.dcu and b/Win32/Debug/ZDbcSQLAnywhere.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhereResultSet.dcu b/Win32/Debug/ZDbcSQLAnywhereResultSet.dcu index 62c4de9..17a9907 100644 Binary files a/Win32/Debug/ZDbcSQLAnywhereResultSet.dcu and b/Win32/Debug/ZDbcSQLAnywhereResultSet.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhereStatement.dcu b/Win32/Debug/ZDbcSQLAnywhereStatement.dcu index e312cb4..606c20b 100644 Binary files a/Win32/Debug/ZDbcSQLAnywhereStatement.dcu and b/Win32/Debug/ZDbcSQLAnywhereStatement.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhereUtils.dcu b/Win32/Debug/ZDbcSQLAnywhereUtils.dcu index 2b71b68..bf3ed6a 100644 Binary files a/Win32/Debug/ZDbcSQLAnywhereUtils.dcu and b/Win32/Debug/ZDbcSQLAnywhereUtils.dcu differ diff --git a/Win32/Debug/ZDbcSqLite.dcu b/Win32/Debug/ZDbcSqLite.dcu index ca645b7..bce380d 100644 Binary files a/Win32/Debug/ZDbcSqLite.dcu and b/Win32/Debug/ZDbcSqLite.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteMetadata.dcu b/Win32/Debug/ZDbcSqLiteMetadata.dcu index 857c6af..fe4ba4e 100644 Binary files a/Win32/Debug/ZDbcSqLiteMetadata.dcu and b/Win32/Debug/ZDbcSqLiteMetadata.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteResultSet.dcu b/Win32/Debug/ZDbcSqLiteResultSet.dcu index 9fe7d56..0bf4413 100644 Binary files a/Win32/Debug/ZDbcSqLiteResultSet.dcu and b/Win32/Debug/ZDbcSqLiteResultSet.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteStatement.dcu b/Win32/Debug/ZDbcSqLiteStatement.dcu index 9491b9f..a2ff767 100644 Binary files a/Win32/Debug/ZDbcSqLiteStatement.dcu and b/Win32/Debug/ZDbcSqLiteStatement.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteUtils.dcu b/Win32/Debug/ZDbcSqLiteUtils.dcu index 799239c..71e91a8 100644 Binary files a/Win32/Debug/ZDbcSqLiteUtils.dcu and b/Win32/Debug/ZDbcSqLiteUtils.dcu differ diff --git a/Win32/Debug/ZDbcStatement.dcu b/Win32/Debug/ZDbcStatement.dcu index cd61587..7f627bf 100644 Binary files a/Win32/Debug/ZDbcStatement.dcu and b/Win32/Debug/ZDbcStatement.dcu differ diff --git a/Win32/Debug/ZDbcUtils.dcu b/Win32/Debug/ZDbcUtils.dcu index 34467c4..1dd0829 100644 Binary files a/Win32/Debug/ZDbcUtils.dcu and b/Win32/Debug/ZDbcUtils.dcu differ diff --git a/Win32/Debug/ZDbcXmlUtils.dcu b/Win32/Debug/ZDbcXmlUtils.dcu index bcba97f..50e8f99 100644 Binary files a/Win32/Debug/ZDbcXmlUtils.dcu and b/Win32/Debug/ZDbcXmlUtils.dcu differ diff --git a/Win32/Debug/ZEncoding.dcu b/Win32/Debug/ZEncoding.dcu index 0507175..b26599d 100644 Binary files a/Win32/Debug/ZEncoding.dcu and b/Win32/Debug/ZEncoding.dcu differ diff --git a/Win32/Debug/ZExceptions.dcu b/Win32/Debug/ZExceptions.dcu index 94a2644..5f3b279 100644 Binary files a/Win32/Debug/ZExceptions.dcu and b/Win32/Debug/ZExceptions.dcu differ diff --git a/Win32/Debug/ZExprParser.dcu b/Win32/Debug/ZExprParser.dcu index 78a7d4a..4f98906 100644 Binary files a/Win32/Debug/ZExprParser.dcu and b/Win32/Debug/ZExprParser.dcu differ diff --git a/Win32/Debug/ZExprToken.dcu b/Win32/Debug/ZExprToken.dcu index 6c80f9d..6b6bcba 100644 Binary files a/Win32/Debug/ZExprToken.dcu and b/Win32/Debug/ZExprToken.dcu differ diff --git a/Win32/Debug/ZExpression.dcu b/Win32/Debug/ZExpression.dcu index 65309b5..0d9076e 100644 Binary files a/Win32/Debug/ZExpression.dcu and b/Win32/Debug/ZExpression.dcu differ diff --git a/Win32/Debug/ZFastCode.dcu b/Win32/Debug/ZFastCode.dcu index 0db6e55..625c71f 100644 Binary files a/Win32/Debug/ZFastCode.dcu and b/Win32/Debug/ZFastCode.dcu differ diff --git a/Win32/Debug/ZFormatSettings.dcu b/Win32/Debug/ZFormatSettings.dcu index 32edfc3..0c7a033 100644 Binary files a/Win32/Debug/ZFormatSettings.dcu and b/Win32/Debug/ZFormatSettings.dcu differ diff --git a/Win32/Debug/ZFunctions.dcu b/Win32/Debug/ZFunctions.dcu index 3428187..0f57ba4 100644 Binary files a/Win32/Debug/ZFunctions.dcu and b/Win32/Debug/ZFunctions.dcu differ diff --git a/Win32/Debug/ZFunctionsConvert.dcu b/Win32/Debug/ZFunctionsConvert.dcu index a42c378..896de5c 100644 Binary files a/Win32/Debug/ZFunctionsConvert.dcu and b/Win32/Debug/ZFunctionsConvert.dcu differ diff --git a/Win32/Debug/ZFunctionsDateTime.dcu b/Win32/Debug/ZFunctionsDateTime.dcu index 7b8ba99..f180c38 100644 Binary files a/Win32/Debug/ZFunctionsDateTime.dcu and b/Win32/Debug/ZFunctionsDateTime.dcu differ diff --git a/Win32/Debug/ZFunctionsMath.dcu b/Win32/Debug/ZFunctionsMath.dcu index 88a6e20..ecb10af 100644 Binary files a/Win32/Debug/ZFunctionsMath.dcu and b/Win32/Debug/ZFunctionsMath.dcu differ diff --git a/Win32/Debug/ZFunctionsOther.dcu b/Win32/Debug/ZFunctionsOther.dcu index e8337e1..d2a6ff6 100644 Binary files a/Win32/Debug/ZFunctionsOther.dcu and b/Win32/Debug/ZFunctionsOther.dcu differ diff --git a/Win32/Debug/ZFunctionsStrings.dcu b/Win32/Debug/ZFunctionsStrings.dcu index 495c792..c2d4302 100644 Binary files a/Win32/Debug/ZFunctionsStrings.dcu and b/Win32/Debug/ZFunctionsStrings.dcu differ diff --git a/Win32/Debug/ZGenericSqlAnalyser.dcu b/Win32/Debug/ZGenericSqlAnalyser.dcu index 73f7b3b..186ad20 100644 Binary files a/Win32/Debug/ZGenericSqlAnalyser.dcu and b/Win32/Debug/ZGenericSqlAnalyser.dcu differ diff --git a/Win32/Debug/ZGenericSqlToken.dcu b/Win32/Debug/ZGenericSqlToken.dcu index b784450..22870e6 100644 Binary files a/Win32/Debug/ZGenericSqlToken.dcu and b/Win32/Debug/ZGenericSqlToken.dcu differ diff --git a/Win32/Debug/ZInterbaseAnalyser.dcu b/Win32/Debug/ZInterbaseAnalyser.dcu index 9bc4150..21994e1 100644 Binary files a/Win32/Debug/ZInterbaseAnalyser.dcu and b/Win32/Debug/ZInterbaseAnalyser.dcu differ diff --git a/Win32/Debug/ZInterbaseToken.dcu b/Win32/Debug/ZInterbaseToken.dcu index 903f7fc..13733c0 100644 Binary files a/Win32/Debug/ZInterbaseToken.dcu and b/Win32/Debug/ZInterbaseToken.dcu differ diff --git a/Win32/Debug/ZMatchPattern.dcu b/Win32/Debug/ZMatchPattern.dcu index 87da7cb..39b8372 100644 Binary files a/Win32/Debug/ZMatchPattern.dcu and b/Win32/Debug/ZMatchPattern.dcu differ diff --git a/Win32/Debug/ZMemTable.dcu b/Win32/Debug/ZMemTable.dcu index 3913060..2c879c2 100644 Binary files a/Win32/Debug/ZMemTable.dcu and b/Win32/Debug/ZMemTable.dcu differ diff --git a/Win32/Debug/ZMessages.dcu b/Win32/Debug/ZMessages.dcu index ce585dc..49123e5 100644 Binary files a/Win32/Debug/ZMessages.dcu and b/Win32/Debug/ZMessages.dcu differ diff --git a/Win32/Debug/ZMySqlAnalyser.dcu b/Win32/Debug/ZMySqlAnalyser.dcu index a4bbce5..c6dae4f 100644 Binary files a/Win32/Debug/ZMySqlAnalyser.dcu and b/Win32/Debug/ZMySqlAnalyser.dcu differ diff --git a/Win32/Debug/ZMySqlToken.dcu b/Win32/Debug/ZMySqlToken.dcu index b43d6ff..681929a 100644 Binary files a/Win32/Debug/ZMySqlToken.dcu and b/Win32/Debug/ZMySqlToken.dcu differ diff --git a/Win32/Debug/ZODBCToken.dcu b/Win32/Debug/ZODBCToken.dcu index ad041a4..f3e1bb6 100644 Binary files a/Win32/Debug/ZODBCToken.dcu and b/Win32/Debug/ZODBCToken.dcu differ diff --git a/Win32/Debug/ZOleDBToken.dcu b/Win32/Debug/ZOleDBToken.dcu index d4a0703..30d6f1a 100644 Binary files a/Win32/Debug/ZOleDBToken.dcu and b/Win32/Debug/ZOleDBToken.dcu differ diff --git a/Win32/Debug/ZOracleAnalyser.dcu b/Win32/Debug/ZOracleAnalyser.dcu index 6a3d0cb..6b5aacf 100644 Binary files a/Win32/Debug/ZOracleAnalyser.dcu and b/Win32/Debug/ZOracleAnalyser.dcu differ diff --git a/Win32/Debug/ZOracleToken.dcu b/Win32/Debug/ZOracleToken.dcu index db5d7f8..d7943ff 100644 Binary files a/Win32/Debug/ZOracleToken.dcu and b/Win32/Debug/ZOracleToken.dcu differ diff --git a/Win32/Debug/ZPlainASADriver.dcu b/Win32/Debug/ZPlainASADriver.dcu index 4e82d22..aa46818 100644 Binary files a/Win32/Debug/ZPlainASADriver.dcu and b/Win32/Debug/ZPlainASADriver.dcu differ diff --git a/Win32/Debug/ZPlainAdo.dcu b/Win32/Debug/ZPlainAdo.dcu index b3a2b2f..62e93ee 100644 Binary files a/Win32/Debug/ZPlainAdo.dcu and b/Win32/Debug/ZPlainAdo.dcu differ diff --git a/Win32/Debug/ZPlainAdoDriver.dcu b/Win32/Debug/ZPlainAdoDriver.dcu index ffb6f9c..4537332 100644 Binary files a/Win32/Debug/ZPlainAdoDriver.dcu and b/Win32/Debug/ZPlainAdoDriver.dcu differ diff --git a/Win32/Debug/ZPlainDbLibDriver.dcu b/Win32/Debug/ZPlainDbLibDriver.dcu index d573bd1..c6f1083 100644 Binary files a/Win32/Debug/ZPlainDbLibDriver.dcu and b/Win32/Debug/ZPlainDbLibDriver.dcu differ diff --git a/Win32/Debug/ZPlainDriver.dcu b/Win32/Debug/ZPlainDriver.dcu index 6c4b634..07da14c 100644 Binary files a/Win32/Debug/ZPlainDriver.dcu and b/Win32/Debug/ZPlainDriver.dcu differ diff --git a/Win32/Debug/ZPlainFirebird.dcu b/Win32/Debug/ZPlainFirebird.dcu index 1205661..f9ff4b3 100644 Binary files a/Win32/Debug/ZPlainFirebird.dcu and b/Win32/Debug/ZPlainFirebird.dcu differ diff --git a/Win32/Debug/ZPlainFirebirdInterbaseDriver.dcu b/Win32/Debug/ZPlainFirebirdInterbaseDriver.dcu index 4a64f3f..9386497 100644 Binary files a/Win32/Debug/ZPlainFirebirdInterbaseDriver.dcu and b/Win32/Debug/ZPlainFirebirdInterbaseDriver.dcu differ diff --git a/Win32/Debug/ZPlainLoader.dcu b/Win32/Debug/ZPlainLoader.dcu index 4d16324..d7c060f 100644 Binary files a/Win32/Debug/ZPlainLoader.dcu and b/Win32/Debug/ZPlainLoader.dcu differ diff --git a/Win32/Debug/ZPlainMySqlDriver.dcu b/Win32/Debug/ZPlainMySqlDriver.dcu index 1b70810..f576165 100644 Binary files a/Win32/Debug/ZPlainMySqlDriver.dcu and b/Win32/Debug/ZPlainMySqlDriver.dcu differ diff --git a/Win32/Debug/ZPlainODBCDriver.dcu b/Win32/Debug/ZPlainODBCDriver.dcu index 001a0a2..3a0cc67 100644 Binary files a/Win32/Debug/ZPlainODBCDriver.dcu and b/Win32/Debug/ZPlainODBCDriver.dcu differ diff --git a/Win32/Debug/ZPlainOleDBDriver.dcu b/Win32/Debug/ZPlainOleDBDriver.dcu index 5cb06db..f0da0c8 100644 Binary files a/Win32/Debug/ZPlainOleDBDriver.dcu and b/Win32/Debug/ZPlainOleDBDriver.dcu differ diff --git a/Win32/Debug/ZPlainOracleDriver.dcu b/Win32/Debug/ZPlainOracleDriver.dcu index 1be0d61..76cdac8 100644 Binary files a/Win32/Debug/ZPlainOracleDriver.dcu and b/Win32/Debug/ZPlainOracleDriver.dcu differ diff --git a/Win32/Debug/ZPlainPostgreSqlDriver.dcu b/Win32/Debug/ZPlainPostgreSqlDriver.dcu index 7d26f33..ea3b306 100644 Binary files a/Win32/Debug/ZPlainPostgreSqlDriver.dcu and b/Win32/Debug/ZPlainPostgreSqlDriver.dcu differ diff --git a/Win32/Debug/ZPlainProxyDriver.dcu b/Win32/Debug/ZPlainProxyDriver.dcu index cfd7c95..8baf0fc 100644 Binary files a/Win32/Debug/ZPlainProxyDriver.dcu and b/Win32/Debug/ZPlainProxyDriver.dcu differ diff --git a/Win32/Debug/ZPlainProxyDriverIntf.dcu b/Win32/Debug/ZPlainProxyDriverIntf.dcu index cb1a25a..0c20239 100644 Binary files a/Win32/Debug/ZPlainProxyDriverIntf.dcu and b/Win32/Debug/ZPlainProxyDriverIntf.dcu differ diff --git a/Win32/Debug/ZPlainSQLAnywhere.dcu b/Win32/Debug/ZPlainSQLAnywhere.dcu index 6c1f989..2417f7c 100644 Binary files a/Win32/Debug/ZPlainSQLAnywhere.dcu and b/Win32/Debug/ZPlainSQLAnywhere.dcu differ diff --git a/Win32/Debug/ZPlainSqLiteDriver.dcu b/Win32/Debug/ZPlainSqLiteDriver.dcu index 8616a25..7885ce6 100644 Binary files a/Win32/Debug/ZPlainSqLiteDriver.dcu and b/Win32/Debug/ZPlainSqLiteDriver.dcu differ diff --git a/Win32/Debug/ZPostgreSqlAnalyser.dcu b/Win32/Debug/ZPostgreSqlAnalyser.dcu index 9d6007f..03f22fa 100644 Binary files a/Win32/Debug/ZPostgreSqlAnalyser.dcu and b/Win32/Debug/ZPostgreSqlAnalyser.dcu differ diff --git a/Win32/Debug/ZPostgreSqlToken.dcu b/Win32/Debug/ZPostgreSqlToken.dcu index 27f774c..d32f5ac 100644 Binary files a/Win32/Debug/ZPostgreSqlToken.dcu and b/Win32/Debug/ZPostgreSqlToken.dcu differ diff --git a/Win32/Debug/ZScriptParser.dcu b/Win32/Debug/ZScriptParser.dcu index 86bd82a..0a77148 100644 Binary files a/Win32/Debug/ZScriptParser.dcu and b/Win32/Debug/ZScriptParser.dcu differ diff --git a/Win32/Debug/ZSelectSchema.dcu b/Win32/Debug/ZSelectSchema.dcu index 18430fc..cdeba28 100644 Binary files a/Win32/Debug/ZSelectSchema.dcu and b/Win32/Debug/ZSelectSchema.dcu differ diff --git a/Win32/Debug/ZSequence.dcu b/Win32/Debug/ZSequence.dcu index 34c8917..4a5e7ac 100644 Binary files a/Win32/Debug/ZSequence.dcu and b/Win32/Debug/ZSequence.dcu differ diff --git a/Win32/Debug/ZSqLiteAnalyser.dcu b/Win32/Debug/ZSqLiteAnalyser.dcu index de68ebb..599be3a 100644 Binary files a/Win32/Debug/ZSqLiteAnalyser.dcu and b/Win32/Debug/ZSqLiteAnalyser.dcu differ diff --git a/Win32/Debug/ZSqLiteToken.dcu b/Win32/Debug/ZSqLiteToken.dcu index e95e344..19707ed 100644 Binary files a/Win32/Debug/ZSqLiteToken.dcu and b/Win32/Debug/ZSqLiteToken.dcu differ diff --git a/Win32/Debug/ZSqlProcessor.dcu b/Win32/Debug/ZSqlProcessor.dcu index ff7926e..40dcaf3 100644 Binary files a/Win32/Debug/ZSqlProcessor.dcu and b/Win32/Debug/ZSqlProcessor.dcu differ diff --git a/Win32/Debug/ZSqlStrings.dcu b/Win32/Debug/ZSqlStrings.dcu index efe6858..4b0aaa9 100644 Binary files a/Win32/Debug/ZSqlStrings.dcu and b/Win32/Debug/ZSqlStrings.dcu differ diff --git a/Win32/Debug/ZSqlUpdate.dcu b/Win32/Debug/ZSqlUpdate.dcu index f2d86da..34aad48 100644 Binary files a/Win32/Debug/ZSqlUpdate.dcu and b/Win32/Debug/ZSqlUpdate.dcu differ diff --git a/Win32/Debug/ZSybaseAnalyser.dcu b/Win32/Debug/ZSybaseAnalyser.dcu index 39eefed..47069dc 100644 Binary files a/Win32/Debug/ZSybaseAnalyser.dcu and b/Win32/Debug/ZSybaseAnalyser.dcu differ diff --git a/Win32/Debug/ZSybaseToken.dcu b/Win32/Debug/ZSybaseToken.dcu index f28678c..d268528 100644 Binary files a/Win32/Debug/ZSybaseToken.dcu and b/Win32/Debug/ZSybaseToken.dcu differ diff --git a/Win32/Debug/ZSysUtils.dcu b/Win32/Debug/ZSysUtils.dcu index dba2145..2f3a648 100644 Binary files a/Win32/Debug/ZSysUtils.dcu and b/Win32/Debug/ZSysUtils.dcu differ diff --git a/Win32/Debug/ZTokenizer.dcu b/Win32/Debug/ZTokenizer.dcu index 5af7030..bb1c489 100644 Binary files a/Win32/Debug/ZTokenizer.dcu and b/Win32/Debug/ZTokenizer.dcu differ diff --git a/Win32/Debug/ZTransaction.dcu b/Win32/Debug/ZTransaction.dcu index 99baf4e..89df7b2 100644 Binary files a/Win32/Debug/ZTransaction.dcu and b/Win32/Debug/ZTransaction.dcu differ diff --git a/Win32/Debug/ZVariables.dcu b/Win32/Debug/ZVariables.dcu index 6aac196..6e4d8b1 100644 Binary files a/Win32/Debug/ZVariables.dcu and b/Win32/Debug/ZVariables.dcu differ diff --git a/Win32/Debug/ZVariant.dcu b/Win32/Debug/ZVariant.dcu index 739d48a..3e0c071 100644 Binary files a/Win32/Debug/ZVariant.dcu and b/Win32/Debug/ZVariant.dcu differ diff --git a/__history/Unit1.pas.~86~ b/__history/Unit1.pas.~86~ deleted file mode 100644 index 5535542..0000000 --- a/__history/Unit1.pas.~86~ +++ /dev/null @@ -1,179 +0,0 @@ -UNIT Unit1; - -INTERFACE - -USES - Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, - Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, - ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, - ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, - JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; - -TYPE - Tmain = CLASS(TForm) - BitBtn1: TBitBtn; - OD: TOpenDialog; - sfl: TLabel; - T1: TTable; - DS: TDataSource; - JvDBGrid1: TJvDBGrid; - ZDB: TZConnection; - ZT1: TZTable; - BitBtn2: TBitBtn; - ZQ1: TZQuery; - ST: TStatusBar; - JvDBNavigator1: TJvDBNavigator; - AP: TAppPath; - PROCEDURE BitBtn1Click(Sender: TObject); - PROCEDURE BitBtn2Click(Sender: TObject); - PROCEDURE FormCreate(Sender: TObject); - PRIVATE - { Private-Deklarationen } - PUBLIC - { Public-Deklarationen } - END; - -VAR - main: Tmain; - sfile: STRING; - Server, User, Password, Catalog: STRING; - -IMPLEMENTATION - -{$R *.dfm} -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn1Click(Sender: TObject); - -BEGIN - IF OD.Execute THEN - BEGIN - sfile := OD.FileName; - sfl.Caption := OD.FileName; - T1.Active := False; - T1.DatabaseName := ExtractFileDir(OD.FileName); - T1.TableName := ExtractFilename(OD.FileName); - T1.Active := TRUE; - ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datensätze'; - ST.Refresh; - BitBtn2.Enabled := TRUE; - END; -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn2Click(Sender: TObject); - -VAR - i, rc: Integer; - fn: STRING; - createSQL: TStringList; - -BEGIN - fn := ExtractFilename(OD.FileName); - fn := Copy(fn, 1, POS('.', fn) - 1); - ZQ1.SQL.Clear; - ZDB.Connect; - ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); - ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); - ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN - ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') - ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN - ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') - ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN - 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,') - ELSE - BEGIN - 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], ','); - ZQ1.SQL.Add(');'); - ZQ1.ExecSQL; - ZT1.Active := False; - ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); - ZT1.Active := TRUE; - T1.First; - rc := 0; - REPEAT - inc(rc); - ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); - ST.Refresh; - ZT1.Append; - FOR i := 0 TO T1.Fields.Count - 1 DO - BEGIN - IF T1.Fields[i].value <> NULL THEN - BEGIN - TRY - IF T1.Fielddefs[i].Datatype = ftString THEN - ZT1.Fields[i].Text := T1.Fields[i].Text - ELSE - ZT1.Fields[i].value := T1.Fields[i].value - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(T1.Fielddefs[i].Name); - END; - END; - END; - END; - TRY - ZT1.Post; - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(e.Message); - END; - END; - T1.Next; - application.ProcessMessages; - UNTIL T1.Eof;; - MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.FormCreate(Sender: TObject); - -VAR - ini: TIniFile; - -BEGIN - ZDB.Connected := False; - ini := TIniFile.Create(AP.AppPath + 'config.ini'); - Server := ini.ReadString('SETTINGS', 'SERVER', ''); - User := ini.ReadString('SETTINGS', 'USER', ''); - Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); - Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); - ini.Free; - ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; - ZDB.HostName := Server; - ZDB.User := User; - ZDB.Password := Password; - ZDB.Catalog := Catalog; - ZDB.Connected := TRUE; - ST.Panels[1].Text := 'Server: ' + Server; - ST.Panels[2].Text := 'Datenbank: ' + Catalog; - ST.Panels[3].Text := 'DB-User: ' + User; - ST.Refresh; -END; - -// ----------------------------------------------------------------------------- - -END. diff --git a/__history/Unit1.pas.~87~ b/__history/Unit1.pas.~87~ deleted file mode 100644 index de12042..0000000 --- a/__history/Unit1.pas.~87~ +++ /dev/null @@ -1,179 +0,0 @@ -UNIT Unit1; - -INTERFACE - -USES - Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, - Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, - ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, - ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, - JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; - -TYPE - Tmain = CLASS(TForm) - BitBtn1: TBitBtn; - OD: TOpenDialog; - sfl: TLabel; - T1: TTable; - DS: TDataSource; - JvDBGrid1: TJvDBGrid; - ZDB: TZConnection; - ZT1: TZTable; - BitBtn2: TBitBtn; - ZQ1: TZQuery; - ST: TStatusBar; - JvDBNavigator1: TJvDBNavigator; - AP: TAppPath; - PROCEDURE BitBtn1Click(Sender: TObject); - PROCEDURE BitBtn2Click(Sender: TObject); - PROCEDURE FormCreate(Sender: TObject); - PRIVATE - { Private-Deklarationen } - PUBLIC - { Public-Deklarationen } - END; - -VAR - main: Tmain; - sfile: STRING; - Server, User, Password, Catalog: STRING; - -IMPLEMENTATION - -{$R *.dfm} -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn1Click(Sender: TObject); - -BEGIN - IF OD.Execute THEN - BEGIN - sfile := OD.FileName; - sfl.Caption := OD.FileName; - T1.Active := False; - T1.DatabaseName := ExtractFileDir(OD.FileName); - T1.TableName := ExtractFilename(OD.FileName); - T1.Active := TRUE; - ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datensätze'; - ST.Refresh; - BitBtn2.Enabled := TRUE; - END; -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn2Click(Sender: TObject); - -VAR - i, rc: Integer; - fn: STRING; - createSQL: TStringList; - -BEGIN - fn := ExtractFilename(OD.FileName); - fn := Copy(fn, 1, POS('.', fn) - 1); - ZQ1.SQL.Clear; - ZDB.Connect; - ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); - ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); - ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN - ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') - ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN - // ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') - // ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN - 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,') - ELSE - BEGIN - 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], ','); - ZQ1.SQL.Add(');'); - ZQ1.ExecSQL; - ZT1.Active := False; - ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); - ZT1.Active := TRUE; - T1.First; - rc := 0; - REPEAT - inc(rc); - ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); - ST.Refresh; - ZT1.Append; - FOR i := 0 TO T1.Fields.Count - 1 DO - BEGIN - IF T1.Fields[i].value <> NULL THEN - BEGIN - TRY - IF T1.Fielddefs[i].Datatype = ftString THEN - ZT1.Fields[i].Text := T1.Fields[i].Text - ELSE - ZT1.Fields[i].value := T1.Fields[i].value - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(T1.Fielddefs[i].Name); - END; - END; - END; - END; - TRY - ZT1.Post; - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(e.Message); - END; - END; - T1.Next; - application.ProcessMessages; - UNTIL T1.Eof;; - MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.FormCreate(Sender: TObject); - -VAR - ini: TIniFile; - -BEGIN - ZDB.Connected := False; - ini := TIniFile.Create(AP.AppPath + 'config.ini'); - Server := ini.ReadString('SETTINGS', 'SERVER', ''); - User := ini.ReadString('SETTINGS', 'USER', ''); - Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); - Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); - ini.Free; - ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; - ZDB.HostName := Server; - ZDB.User := User; - ZDB.Password := Password; - ZDB.Catalog := Catalog; - ZDB.Connected := TRUE; - ST.Panels[1].Text := 'Server: ' + Server; - ST.Panels[2].Text := 'Datenbank: ' + Catalog; - ST.Panels[3].Text := 'DB-User: ' + User; - ST.Refresh; -END; - -// ----------------------------------------------------------------------------- - -END. diff --git a/__history/Unit1.pas.~88~ b/__history/Unit1.pas.~88~ deleted file mode 100644 index 5535542..0000000 --- a/__history/Unit1.pas.~88~ +++ /dev/null @@ -1,179 +0,0 @@ -UNIT Unit1; - -INTERFACE - -USES - Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, - Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, - ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, - ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, - JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; - -TYPE - Tmain = CLASS(TForm) - BitBtn1: TBitBtn; - OD: TOpenDialog; - sfl: TLabel; - T1: TTable; - DS: TDataSource; - JvDBGrid1: TJvDBGrid; - ZDB: TZConnection; - ZT1: TZTable; - BitBtn2: TBitBtn; - ZQ1: TZQuery; - ST: TStatusBar; - JvDBNavigator1: TJvDBNavigator; - AP: TAppPath; - PROCEDURE BitBtn1Click(Sender: TObject); - PROCEDURE BitBtn2Click(Sender: TObject); - PROCEDURE FormCreate(Sender: TObject); - PRIVATE - { Private-Deklarationen } - PUBLIC - { Public-Deklarationen } - END; - -VAR - main: Tmain; - sfile: STRING; - Server, User, Password, Catalog: STRING; - -IMPLEMENTATION - -{$R *.dfm} -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn1Click(Sender: TObject); - -BEGIN - IF OD.Execute THEN - BEGIN - sfile := OD.FileName; - sfl.Caption := OD.FileName; - T1.Active := False; - T1.DatabaseName := ExtractFileDir(OD.FileName); - T1.TableName := ExtractFilename(OD.FileName); - T1.Active := TRUE; - ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datensätze'; - ST.Refresh; - BitBtn2.Enabled := TRUE; - END; -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn2Click(Sender: TObject); - -VAR - i, rc: Integer; - fn: STRING; - createSQL: TStringList; - -BEGIN - fn := ExtractFilename(OD.FileName); - fn := Copy(fn, 1, POS('.', fn) - 1); - ZQ1.SQL.Clear; - ZDB.Connect; - ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); - ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); - ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN - ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') - ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN - ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') - ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN - 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,') - ELSE - BEGIN - 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], ','); - ZQ1.SQL.Add(');'); - ZQ1.ExecSQL; - ZT1.Active := False; - ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); - ZT1.Active := TRUE; - T1.First; - rc := 0; - REPEAT - inc(rc); - ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); - ST.Refresh; - ZT1.Append; - FOR i := 0 TO T1.Fields.Count - 1 DO - BEGIN - IF T1.Fields[i].value <> NULL THEN - BEGIN - TRY - IF T1.Fielddefs[i].Datatype = ftString THEN - ZT1.Fields[i].Text := T1.Fields[i].Text - ELSE - ZT1.Fields[i].value := T1.Fields[i].value - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(T1.Fielddefs[i].Name); - END; - END; - END; - END; - TRY - ZT1.Post; - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(e.Message); - END; - END; - T1.Next; - application.ProcessMessages; - UNTIL T1.Eof;; - MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.FormCreate(Sender: TObject); - -VAR - ini: TIniFile; - -BEGIN - ZDB.Connected := False; - ini := TIniFile.Create(AP.AppPath + 'config.ini'); - Server := ini.ReadString('SETTINGS', 'SERVER', ''); - User := ini.ReadString('SETTINGS', 'USER', ''); - Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); - Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); - ini.Free; - ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; - ZDB.HostName := Server; - ZDB.User := User; - ZDB.Password := Password; - ZDB.Catalog := Catalog; - ZDB.Connected := TRUE; - ST.Panels[1].Text := 'Server: ' + Server; - ST.Panels[2].Text := 'Datenbank: ' + Catalog; - ST.Panels[3].Text := 'DB-User: ' + User; - ST.Refresh; -END; - -// ----------------------------------------------------------------------------- - -END. diff --git a/__history/Unit1.pas.~89~ b/__history/Unit1.pas.~89~ deleted file mode 100644 index 13e1283..0000000 --- a/__history/Unit1.pas.~89~ +++ /dev/null @@ -1,179 +0,0 @@ -UNIT Unit1; - -INTERFACE - -USES - Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, - Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, - ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, - ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, - JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; - -TYPE - Tmain = CLASS(TForm) - BitBtn1: TBitBtn; - OD: TOpenDialog; - sfl: TLabel; - T1: TTable; - DS: TDataSource; - JvDBGrid1: TJvDBGrid; - ZDB: TZConnection; - ZT1: TZTable; - BitBtn2: TBitBtn; - ZQ1: TZQuery; - ST: TStatusBar; - JvDBNavigator1: TJvDBNavigator; - AP: TAppPath; - PROCEDURE BitBtn1Click(Sender: TObject); - PROCEDURE BitBtn2Click(Sender: TObject); - PROCEDURE FormCreate(Sender: TObject); - PRIVATE - { Private-Deklarationen } - PUBLIC - { Public-Deklarationen } - END; - -VAR - main: Tmain; - sfile: STRING; - Server, User, Password, Catalog: STRING; - -IMPLEMENTATION - -{$R *.dfm} -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn1Click(Sender: TObject); - -BEGIN - IF OD.Execute THEN - BEGIN - sfile := OD.FileName; - sfl.Caption := OD.FileName; - T1.Active := False; - T1.DatabaseName := ExtractFileDir(OD.FileName); - T1.TableName := ExtractFilename(OD.FileName); - T1.Active := TRUE; - ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datensätze'; - ST.Refresh; - BitBtn2.Enabled := TRUE; - END; -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.BitBtn2Click(Sender: TObject); - -VAR - i, rc: Integer; - fn: STRING; - createSQL: TStringList; - -BEGIN - fn := ExtractFilename(OD.FileName); - fn := Copy(fn, 1, POS('.', fn) - 1); - ZQ1.SQL.Clear; - ZDB.Connect; - ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); - ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); - ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN - 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,') - ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN - ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') - ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN - ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') - ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN - 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,') - ELSE - BEGIN - 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], ','); - ZQ1.SQL.Add(');'); - ZQ1.ExecSQL; - ZT1.Active := False; - ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); - ZT1.Active := TRUE; - T1.First; - rc := 0; - REPEAT - inc(rc); - ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); - ST.Refresh; - ZT1.Append; - FOR i := 0 TO T1.Fields.Count - 1 DO - BEGIN - IF T1.Fields[i].value <> NULL THEN - BEGIN - TRY - IF T1.Fielddefs[i].Datatype = ftString THEN - ZT1.Fields[i].Text := T1.Fields[i].Text - ELSE - ZT1.Fields[i].value := T1.Fields[i].value - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(T1.Fielddefs[i].Name); - END; - END; - END; - END; - TRY - ZT1.Post; - EXCEPT - ON e: Exception DO - BEGIN - ShowMessage(e.Message); - END; - END; - T1.Next; - application.ProcessMessages; - UNTIL T1.Eof;; - MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); -END; - -// ----------------------------------------------------------------------------- - -PROCEDURE Tmain.FormCreate(Sender: TObject); - -VAR - ini: TIniFile; - -BEGIN - ZDB.Connected := False; - ini := TIniFile.Create(AP.AppPath + 'config.ini'); - Server := ini.ReadString('SETTINGS', 'SERVER', ''); - User := ini.ReadString('SETTINGS', 'USER', ''); - Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); - Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); - ini.Free; - ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; - ZDB.HostName := Server; - ZDB.User := User; - ZDB.Password := Password; - ZDB.Catalog := Catalog; - ZDB.Connected := TRUE; - ST.Panels[1].Text := 'Server: ' + Server; - ST.Panels[2].Text := 'Datenbank: ' + Catalog; - ST.Panels[3].Text := 'DB-User: ' + User; - ST.Refresh; -END; - -// ----------------------------------------------------------------------------- - -END.