[Instantobjects-cvscommit] SF.net SVN: instantobjects: [715] trunk/Source/Catalogs/MSSql/ InstantMSSqlCatalog.pas

[<bvs...@us...>]

Revision: 715
          http://svn.sourceforge.net/instantobjects/revision/?rev=715&view=rev
Author:   bvsimmons
Date:     2006-11-16 05:12:02 -0800 (Thu, 16 Nov 2006)

Log Message:
-----------
+ correction for revision 713 to provide support for SQL Server 7 in the MSSqlCatalog.

Revision Links:
--------------
    http://svn.sourceforge.net/instantobjects/revision/?rev=713&view=rev

Modified Paths:
--------------
    trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas

Modified: trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas
===================================================================
--- trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas	2006-11-16 09:03:07 UTC (rev 714)
+++ trunk/Source/Catalogs/MSSql/InstantMSSqlCatalog.pas	2006-11-16 13:12:02 UTC (rev 715)
@@ -348,7 +348,7 @@
       try
         FSQLServerVersion := VersionDataSet.Fields[0].AsString;
         // Trim everything but the first line, which contains the info we need.
-        FSQLServerVersion := Copy(FSQLServerVersion, 1, Pos(sLineBreak, Result) - 1);
+        FSQLServerVersion := Copy(FSQLServerVersion, 1, Pos(#$A#9, FSQLServerVersion) - 1);
       finally
         VersionDataSet.Close;
       end;