[Instantobjects-cvscommit] Source/Core InstantCommand.pas,1.4,1.5 InstantConnectionManager.pas,1.21,1.22

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20439/Source/Core

Modified Files:
	InstantCommand.pas InstantConnectionManager.pas 
Log Message:
changes for D5 compatibility. Added D5 project group.

Index: InstantCommand.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantCommand.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantCommand.pas	4 Sep 2005 23:15:54 -0000	1.4
--- InstantCommand.pas	31 Oct 2005 13:49:56 -0000	1.5
***************
*** 1035,1039 ****
    Token := Reader.ReadToken;
    Result := IsConstantToken(Token) or InstantIsNumeric(Token) or
!     ((Length(Token) > 0) and (Token[1] in ['"', '[']));
  end;
  
--- 1035,1039 ----
    Token := Reader.ReadToken;
    Result := IsConstantToken(Token) or InstantIsNumeric(Token) or
!     ((Length(Token) > 0) and (Token[1] in ['"', '''', '[']));
  end;
  

Index: InstantConnectionManager.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManager.pas,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** InstantConnectionManager.pas	12 Oct 2005 14:23:52 -0000	1.21
--- InstantConnectionManager.pas	31 Oct 2005 13:49:56 -0000	1.22
***************
*** 283,287 ****
    ConnectionDef := ConnectionDefs.Find(ConnectionDefName) as TInstantConnectionDef;
    if Assigned(ConnectionDef) then
!     OnConnect(Self, ConnectionDef, Result)
    else
      raise EInstantError.CreateFmt(SConnectionDefError, [ConnectionDefName, FileName]);
--- 283,292 ----
    ConnectionDef := ConnectionDefs.Find(ConnectionDefName) as TInstantConnectionDef;
    if Assigned(ConnectionDef) then
!   begin
!     if Assigned(OnConnect) then
!       OnConnect(Self, ConnectionDef, Result)
!     else
!       raise EInstantError.Create(SUnassignedOnConnectError);
!   end
    else
      raise EInstantError.CreateFmt(SConnectionDefError, [ConnectionDefName, FileName]);