Oracle.pas
otInteger = 3;
otFloat = 4;
otString = 5;
otLong = 8;
otDate = 12;
otLongRaw = 24;
otBoolean = 252;
otCLOB = 112;
otNCLOB = -112;
otBLOB = 113;
otBFile = 114;
otCursor = 116;
otObject = 108;
otReference = 110;
otDBChar = 96;
otChar = 97;
otPLSQLString = 10;
otSubst = 1;
otTimestamp = 187;
otVarchar2 = 1;
otNumber = 2;
otVarchar = 9;
otRowId = 11;
otRaw = 23;
otMLSLabel = 106;
otRowidDesc = 104;
otTimestampTZ = 188;
otTimestampLTZ = 232;
otIntervalYM = 189;
otIntervalDS = 190;
otBinaryFloat = 100;
otBinaryDouble = 101;
function GetDOAColumnTypeName(ColType: Integer): string;
begin
case ColType of
// External Oracle Datatypes
3: Result := 'otInteger';
4: Result := 'otFloat';
5: Result := 'otString';
8: Result := 'otLong';
12: Result := 'otDate';
24: Result := 'otLongRaw';
252: Result := 'otBoolean';
112: Result := 'otCLOB';
-112: Result := 'otNCLOB';
113: Result := 'otBLOB';
114: Result := 'otBFile';
116: Result := 'otCursor';
108: Result := 'otObject';
110: Result := 'otReference';
96: Result := 'otDBChar';
97: Result := 'otChar';
10: Result := 'otPLSQLString';
1: Result := 'otSubst';
187: Result := 'otTimestamp';
// Internal Oracle Datatypes
1: Result := 'otVarchar2';
2: Result := 'otNumber';
9: Result := 'otVarchar';
11: Result := 'otRowId';
23: Result := 'otRaw';
106: Result := 'otMLSLabel';
// Oracle8
104: Result := 'otRowidDesc';
// Oracle9
188: Result := 'otTimestampTZ';
232: Result := 'otTimestampLTZ';
189: Result := 'otIntervalYM';
190: Result := 'otIntervalDS';
// Oracle10
100: Result := 'otBinaryFloat';
101: Result := 'otBinaryDouble';
else
Result := '';
end;
end;
