paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 10:11:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: cosmetic: improve documentation for TFieldType array members

Browse Source 
git-svn-id: trunk@27659 -
This commit is contained in:
reiniero 2014-04-26 10:07:12 +00:00
parent 2e3e1d37b5
commit 87f7cf715e
3 changed files with 174 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

169
packages/fcl-db/src/base/db.pas
View File

@ -1,6 +1,6 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of the Copyright (c) 1999-2014 by Michael Van Canneyt, member of the
Free Pascal development team Free Pascal development team
@ -100,13 +100,8 @@ type
TFieldClass = class of TField; TFieldClass = class of TField;
{ // Data type for field.
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, // The order is determined by Delphi compatibility
ftBoolean, ftFloat, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic,
ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor);
}
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
@ -115,7 +110,7 @@ type
ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo); ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo);
{ Part of DBCommon, but temporary defined here (bug 8206) } { Part of DBCommon, but temporarily defined here (bug 8206) }
TFieldMap = array[TFieldType] of Byte; TFieldMap = array[TFieldType] of Byte;
@ -1997,85 +1992,101 @@ type
const const
FieldTypetoVariantMap : array[TFieldType] of Integer = (varError, varOleStr, varSmallint, FieldTypetoVariantMap : array[TFieldType] of Integer =
varInteger, varSmallint, varBoolean, varDouble, varCurrency, varCurrency, (
varDate, varDate, varDate, varOleStr, varOleStr, varInteger, varOleStr, {ftUnknown} varError,
varOleStr, varOleStr, varOleStr, varOleStr, varOleStr, varOleStr, varError, {ftString} varOleStr,
varOleStr, varOleStr, varError, varError, varError, varError, varError, {ftSmallint} varSmallint,
varOleStr, varOleStr, varVariant, varUnknown, varDispatch, varOleStr, {ftInteger} varInteger,
varOleStr, varDouble, varOleStr,varOleStr); {ftWord} varSmallint,
{ftBoolean} varBoolean,
{ftFloat} varDouble,
{ftCurrency} varCurrency,
{ftBCD} varCurrency,
{ftDate} varDate,
{ftTime} varDate,
{ftDateTime} varDate,
{ftBytes} varOleStr,
{ftVarBytes} varOleStr,
{ftAutoInc} varInteger,
{ftBlob} varOleStr,
{ftMemo} varOleStr,
{ftGraphic} varOleStr,
{ftFmtMemo} varOleStr,
{ftParadoxOle} varOleStr,
{ftDBaseOle} varOleStr,
{ftTypedBinary} varOleStr,
{ftCursor} varError,
{ftFixedChar} varOleStr,
{ftWideString} varOleStr,
{ftLargeint} varError,
{ftADT} varError,
{ftArray} varError,
{ftReference} varError,
{ftDataSet} varError,
{ftOraBlob} varOleStr,
{ftOraClob} varOleStr,
{ftVariant} varVariant,
{ftInterface} varUnknown,
{ftIDispatch} varDispatch,
{ftGuid} varOleStr,
{ftTimeStamp} varOleStr,
{ftFMTBcd} varDouble,
{ftFixedWideChar} varOleStr,
{ftWideMemo} varOleStr
);
Const Const
Fieldtypenames : Array [TFieldType] of String[15] = Fieldtypenames : Array [TFieldType] of String[15] =
( (
'Unknown', {ftUnknown} 'Unknown',
'String', {ftString} 'String',
'Smallint', {ftSmallint} 'Smallint',
'Integer', {ftInteger} 'Integer',
'Word', {ftWord} 'Word',
'Boolean', {ftBoolean} 'Boolean',
'Float', {ftFloat} 'Float',
'Currency', {ftCurrency} 'Currency',
'BCD', {ftBCD} 'BCD',
'Date', {ftDate} 'Date',
'Time', {ftTime} 'Time',
'DateTime', {ftDateTime} 'DateTime',
'Bytes', {ftBytes} 'Bytes',
'VarBytes', {ftVarBytes} 'VarBytes',
'AutoInc', {ftAutoInc} 'AutoInc',
'Blob', {ftBlob} 'Blob',
'Memo', {ftMemo} 'Memo',
'Graphic', {ftGraphic} 'Graphic',
'FmtMemo', {ftFmtMemo} 'FmtMemo',
'ParadoxOle', {ftParadoxOle} 'ParadoxOle',
'DBaseOle', {ftDBaseOle} 'DBaseOle',
'TypedBinary', {ftTypedBinary} 'TypedBinary',
'Cursor', {ftCursor} 'Cursor',
'FixedChar', {ftFixedChar} 'FixedChar',
'WideString', {ftWideString} 'WideString',
'Largeint', {ftLargeint} 'Largeint',
'ADT', {ftADT} 'ADT',
'Array', {ftArray} 'Array',
'Reference', {ftReference} 'Reference',
'DataSet', {ftDataSet} 'DataSet',
'OraBlob', {ftOraBlob} 'OraBlob',
'OraClob', {ftOraClob} 'OraClob',
'Variant', {ftVariant} 'Variant',
'Interface', {ftInterface} 'Interface',
'IDispatch', {ftIDispatch} 'IDispatch',
'Guid', {ftGuid} 'Guid',
'TimeStamp', {ftTimeStamp} 'TimeStamp',
'FMTBcd', {ftFMTBcd} 'FMTBcd',
'FixedWideChar', {ftFixedWideChar} 'FixedWideChar',
'WideMemo' {ftWideMemo} 'WideMemo'
); );
{ 'Unknown',
'String',
'Smallint',
'Integer',
'Word',
'Boolean',
'Float',
'Date',
'Time',
'DateTime',
'Bytes',
'VarBytes',
'AutoInc',
'Blob',
'Memo',
'Graphic',
'FmtMemo',
'ParadoxOle',
'DBaseOle',
'TypedBinary',
'Cursor'
);}
const const
DefaultFieldClasses : Array [TFieldType] of TFieldClass = DefaultFieldClasses : Array [TFieldType] of TFieldClass =
( { ftUnknown} Tfield, (
{ ftUnknown} Tfield,
{ ftString} TStringField, { ftString} TStringField,
{ ftSmallint} TSmallIntField, { ftSmallint} TSmallIntField,
{ ftInteger} TLongintField, { ftInteger} TLongintField,

60
packages/fcl-db/src/export/fpfixedexport.pp
View File

@ -88,23 +88,51 @@ end;
procedure TCustomFixedLengthExporter.BuildDefaultFieldMap(AMap: TExportFields); procedure TCustomFixedLengthExporter.BuildDefaultFieldMap(AMap: TExportFields);
{ TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
ftWideString, ftLargeint, ftADT, ftArray, ftReference,
ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo);
}
Const Const
FieldWidths : Array[TFieldType] of integer // Mapping to TFieldType
= (-1,0,3,10,5, FieldWidths : Array[TFieldType] of integer =
1,20,20,20,10,8,20, (
0,0,10,0,0,0,0, {ftUnknown} -1,
0,0,0,0,0, {ftString} 0,
0,0,0,0,0, {ftSmallint} 3,
0,0,0,0,0, {ftInteger} 10,
0,0,0,0,0,0); {ftWord} 5,
{ftBoolean} 1,
{ftFloat} 20,
{ftCurrency} 20,
{ftBCD} 20,
{ftDate} 10,
{ftTime} 8,
{ftDateTime} 20,
{ftBytes} 0,
{ftVarBytes} 0,
{ftAutoInc} 10,
{ftBlob} 0,
{ftMemo} 0,
{ftGraphic} 0,
{ftFmtMemo} 0,
{ftParadoxOle} 0,
{ftDBaseOle} 0,
{ftTypedBinary} 0,
{ftCursor} 0,
{ftFixedChar} 0,
{ftWideString} 0,
{ftLargeint} 0,
{ftADT} 0,
{ftArray} 0,
{ftReference} 0,
{ftDataSet} 0,
{ftOraBlob} 0,
{ftOraClob} 0,
{ftVariant} 0,
{ftInterface} 0,
{ftIDispatch} 0,
{ftGuid} 0,
{ftTimeStamp} 0,
{ftFMTBcd} 0,
{ftFixedWideChar} 0,
{ftWideMemo} 0
);
Var Var
I,W : Integer; I,W : Integer;

80
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -85,46 +85,46 @@ type
const const
FieldtypeDefinitionsConst : Array [TFieldType] of String[20] = FieldtypeDefinitionsConst : Array [TFieldType] of String[20] =
( (
'', {ftUnknown} '',
'VARCHAR(10)', {ftString} 'VARCHAR(10)',
'SMALLINT', {ftSmallint} 'SMALLINT',
'INTEGER', {ftInteger} 'INTEGER',
'', // ftWord {ftWord} '',
'BOOLEAN', {ftBoolean} 'BOOLEAN',
'DOUBLE PRECISION', // ftFloat {ftFloat} 'DOUBLE PRECISION',
'', // ftCurrency {ftCurrency} '',
'DECIMAL(18,4)',// ftBCD {ftBCD} 'DECIMAL(18,4)',
'DATE', {ftDate} 'DATE',
'TIME', {ftTime} 'TIME',
'TIMESTAMP', // ftDateTime {ftDateTime} 'TIMESTAMP',
'', // ftBytes {ftBytes} '',
'', // ftVarBytes {ftVarBytes} '',
'', // ftAutoInc {ftAutoInc} '',
'BLOB', // ftBlob {ftBlob} 'BLOB',
'BLOB', // ftMemo {ftMemo} 'BLOB',
'BLOB', // ftGraphic {ftGraphic} 'BLOB',
'', {ftFmtMemo} '',
'', {ftParadoxOle} '',
'', {ftDBaseOle} '',
'', {ftTypedBinary} '',
'', {ftCursor} '',
'CHAR(10)', // ftFixedChar {ftFixedChar} 'CHAR(10)',
'', // ftWideString {ftWideString} '',
'BIGINT', // ftLargeInt {ftLargeint} 'BIGINT',
'', {ftADT} '',
'', {ftArray} '',
'', {ftReference} '',
'', {ftDataSet} '',
'', {ftOraBlob} '',
'', {ftOraClob} '',
'', {ftVariant} '',
'', {ftInterface} '',
'', {ftIDispatch} '',
'', // ftGuid {ftGuid} '',
'TIMESTAMP', // ftTimestamp {ftTimeStamp} 'TIMESTAMP',
'NUMERIC(18,6)',// ftFmtBCD {ftFMTBcd} 'NUMERIC(18,6)',
'', // ftFixedWideChar {ftFixedWideChar} '',
'' // ftWideMemo {ftWideMemo} ''
); );
// names as returned by ODBC SQLGetInfo(..., SQL_DBMS_NAME, ...) and GetConnectionInfo(citServerType) // names as returned by ODBC SQLGetInfo(..., SQL_DBMS_NAME, ...) and GetConnectionInfo(citServerType)