[Instantobjects-cvscommit] SF.net SVN: instantobjects:[840] branches/BrokerDev/AnyDAC/ InstantAnyDACCatalog.pas

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

Revision: 840
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=840&view=rev
Author:   davidvtaylor
Date:     2009-08-18 04:44:31 +0000 (Tue, 18 Aug 2009)

Log Message:
-----------
Small catalog change to get AnyDAC working with Firebird

Modified Paths:
--------------
    branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas

Modified: branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas
===================================================================
--- branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas	2009-08-18 04:42:40 UTC (rev 839)
+++ branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas	2009-08-18 04:44:31 UTC (rev 840)
@@ -83,6 +83,7 @@
   ADFieldAttrib     : TADDataAttributes;
   IntValue          : integer;
   FieldRow          : TADDatSRow;
+  ColumnLength      : variant;
   I                 : integer;
 begin
   ConnMetadata := Connector.Connection.ConnectionMetaDataIntf;
@@ -102,7 +103,9 @@
           FieldMetadata.Name := ADFieldName;
           FieldMetadata.DataType := FieldDataType;
           FieldMetadata.AlternateDataTypes := FieldAltDataTypes;
-          FieldMetadata.Size := Integer(FieldRow.GetData('COLUMN_LENGTH'));
+          ColumnLength := FieldRow.GetData('COLUMN_LENGTH');
+          if VarIsOrdinal(ColumnLength) then
+            FieldMetadata.Size :=  Integer(ColumnLength);
           FieldMetadata.Options := [];
 
           if (not (caAllowNull in ADFieldAttrib)) then