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