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;
|
