[Instantobjects-cvscommit] SF.net SVN: instantobjects:[861] trunk/Source/Brokers/AnyDAC/InstantAnyDAC. pas

[<dav...@us...>]

Revision: 861
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=861&view=rev
Author:   davidvtaylor
Date:     2009-08-25 19:49:09 +0000 (Tue, 25 Aug 2009)

Log Message:
-----------
Update AnyDAC broker to fix breakage caused by new Enum type support

Modified Paths:
--------------
    trunk/Source/Brokers/AnyDAC/InstantAnyDAC.pas

Modified: trunk/Source/Brokers/AnyDAC/InstantAnyDAC.pas
===================================================================
--- trunk/Source/Brokers/AnyDAC/InstantAnyDAC.pas	2009-08-25 19:25:51 UTC (rev 860)
+++ trunk/Source/Brokers/AnyDAC/InstantAnyDAC.pas	2009-08-25 19:49:09 UTC (rev 861)
@@ -900,7 +900,8 @@
     'DATETIME',
     'IMAGE',
     'DATETIME',
-    'DATETIME');
+    'DATETIME',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -927,7 +928,8 @@
     'DATETIME',
     'IMAGE',
     'DATETIME',
-    'DATETIME');
+    'DATETIME',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -1000,7 +1002,8 @@
     'TIMESTAMP',
     'BLOB',
     'TIMESTAMP',
-    'TIMESTAMP');
+    'TIMESTAMP',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -1032,7 +1035,8 @@
     'DATE',
     'BLOB',
     'DATE',
-    'DATE');
+    'DATE',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -1058,7 +1062,8 @@
     'TIMESTAMP',
     'BYTEA',
     'TIMESTAMP',
-    'TIMESTAMP');
+    'TIMESTAMP',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;
@@ -1355,7 +1360,8 @@
     'TIMESTAMP',
     'BLOB',
     'TIMESTAMP',
-    'TIMESTAMP');
+    'TIMESTAMP',
+    'INTEGER');
 begin
   Result := Types[DataType];
 end;