tim.minkenberg/dbkonverter_paradox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Init

Browse source
This commit is contained in:
tim.minkenberg 2026-07-15 14:02:11 +02:00
parent 5e9ac89dcd
commit 723c360f0c
166 changed files with 717 additions and 893 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Unit1.pas
View file

@ -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], ',');