[Delphimodbus-cvs] delphimodbus/source AboutComponentEditor.pas, 1.4, 1.5 IdModbusClient.pas, 1.32, 1.33 ModBusCompiler.inc, 1.9, 1.10

[Pieter P. <pl...@us...>]

Update of /cvsroot/delphimodbus/delphimodbus/source
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1922

Modified Files:
	AboutComponentEditor.pas IdModbusClient.pas ModBusCompiler.inc 
Log Message:
Add XE4 support

Index: IdModbusClient.pas
===================================================================
RCS file: /cvsroot/delphimodbus/delphimodbus/source/IdModbusClient.pas,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** IdModbusClient.pas	18 Nov 2011 08:34:23 -0000	1.32
--- IdModbusClient.pas	23 Apr 2013 08:59:11 -0000	1.33
***************
*** 102,106 ****
      function WriteDWord(const RegNo: Word; const Value: DWord): Boolean;
      function WriteSingle(const RegNo: Word; const Value: Single): Boolean;
!     function WriteString(const RegNo: Word; const Text: AnsiString): Boolean;
    published
      property AutoConnect: Boolean read FAutoConnect write FAutoConnect default True;
--- 102,106 ----
      function WriteDWord(const RegNo: Word; const Value: DWord): Boolean;
      function WriteSingle(const RegNo: Word; const Value: Single): Boolean;
!     function WriteString(const RegNo: Word; const Text: String): Boolean;
    published
      property AutoConnect: Boolean read FAutoConnect write FAutoConnect default True;
***************
*** 626,630 ****
  
  
! function TIdModBusClient.WriteString(const RegNo: Word; const Text: AnsiString): Boolean;
  var
    Buffer: array of Word;
--- 626,631 ----
  
  
! 
! function TIdModBusClient.WriteString(const RegNo: Word; const Text: String): Boolean;
  var
    Buffer: array of Word;

Index: AboutComponentEditor.pas
===================================================================
RCS file: /cvsroot/delphimodbus/delphimodbus/source/AboutComponentEditor.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** AboutComponentEditor.pas	5 Feb 2010 08:45:57 -0000	1.4
--- AboutComponentEditor.pas	23 Apr 2013 08:59:11 -0000	1.5
***************
*** 45,49 ****
      function GetVerbCount: Integer; override;
      procedure Edit; override;
!   end; { AboutComponentEditor }
  
  type
--- 45,49 ----
      function GetVerbCount: Integer; override;
      procedure Edit; override;
!   end; { TAboutComponentEditor }
  
  type

Index: ModBusCompiler.inc
===================================================================
RCS file: /cvsroot/delphimodbus/delphimodbus/source/ModBusCompiler.inc,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ModBusCompiler.inc	7 Sep 2012 14:48:31 -0000	1.9
--- ModBusCompiler.inc	23 Apr 2013 08:59:11 -0000	1.10
***************
*** 178,181 ****
--- 178,201 ----
  {$ENDIF}
  
+ {$IFDEF VER250}
+   {$DEFINE DMB_DELPHI1}
+   {$DEFINE DMB_DELPHI2}
+   {$DEFINE DMB_DELPHI3}
+   {$DEFINE DMB_DELPHI4}
+   {$DEFINE DMB_DELPHI5}
+   {$DEFINE DMB_DELPHI6}
+   {$DEFINE DMB_DELPHI7}
+   {$DEFINE DMB_DELPHI2005}
+   {$DEFINE DMB_DELPHI2006}
+   {$DEFINE DMB_DELPHI2007}
+   {$DEFINE DMB_DELPHI2009}
+   {$DEFINE DMB_DELPHI2010}
+   {$DEFINE DMB_DELPHIXE}
+   {$DEFINE DMB_DELPHIXE2}
+   {$DEFINE DMB_DELPHIXE3}
+   {$DEFINE DMB_DELPHIXE4}
+   {$DEFINE DMB_DELPHIXE4_ONLY}
+ {$ENDIF}
+ 
  {$IFDEF DMB_DELPHI2005}
  { By default use Indy 10 starting from Delphi 2005 }