[Instantobjects-cvscommit] Source/Catalogs/MSSql InstantMSSqlCatalog.pas,1.1,1.2

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Catalogs/MSSql
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27257/Catalogs/MSSql

Modified Files:
	InstantMSSqlCatalog.pas 
Log Message:
minor cleanup

Index: InstantMSSqlCatalog.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantMSSqlCatalog.pas	1 Jul 2005 23:29:23 -0000	1.1
--- InstantMSSqlCatalog.pas	15 Jul 2005 10:26:15 -0000	1.2
***************
*** 24,28 ****
   * the Initial Developer. All Rights Reserved.
   *
!  * Contributor(s):
   *
   * ***** END LICENSE BLOCK ***** *)
--- 24,28 ----
   * the Initial Developer. All Rights Reserved.
   *
!  * Contributor(s): Nando Dessena
   *
   * ***** END LICENSE BLOCK ***** *)
***************
*** 154,162 ****
          if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then
            FieldMetadata.Options := FieldMetadata.Options + [foIndexed];
!         { TODO : support ExternalTableName? }
!         if FieldMetadata.DataType = dtString then
!           FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger
!         else
!           FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger;
          Fields.Next;
        end;
--- 154,158 ----
          if TableMetadata.IndexMetadatas.IsFieldIndexed(FieldMetadata) then
            FieldMetadata.Options := FieldMetadata.Options + [foIndexed];
!         FieldMetadata.Size := Fields.FieldByName('COLUMN_LENGTH').AsInteger;
          Fields.Next;
        end;