diff --git a/Build/Build.fbl5 b/Build/Build.fbl5 index c3a82472..becddbf0 100644 Binary files a/Build/Build.fbl5 and b/Build/Build.fbl5 differ diff --git a/Build/Build.fbp5 b/Build/Build.fbp5 index 8a6318ba..35792193 100644 --- a/Build/Build.fbp5 +++ b/Build/Build.fbp5 @@ -368,10 +368,12 @@ False True False - @@ -532,11 +533,11 @@ source_path 0 Servidor - True + False True False True - False + True 0 False @@ -567,7 +568,7 @@ source_path %project_path%\Resources\Iconos\Servidor.ico False True - False + True True False False @@ -577,9 +578,9 @@ source_path False False True - 3081 + 3082 - 1 + 3 0 0 False @@ -599,7 +600,17 @@ source_path [usPackages,usCompiler,usLinker,usVersionInfo] False True - @@ -647,7 +658,7 @@ source_path fa8 False False - .\ + True True False @@ -730,7 +741,7 @@ source_path 1000 False - + 0 @@ -744,7 +755,7 @@ source_path 12 Debug False - + True True @@ -765,12 +776,12 @@ source_path False 3082 - 2 + 1 0 0 False 0 - %source_path%\Base\BaseD10.dpk + %source_path%\Base\Base.dpk True 0 @@ -787,7 +798,7 @@ source_path False - + 0 @@ -869,7 +880,7 @@ Comments= 12 Release False - + True True @@ -895,9 +906,9 @@ Comments= 0 False 0 - %source_path%\ControlesBase\ControlesBaseD10.dpk + %source_path%\Base\ControllerBase\ControllerBase.dpk True - 3 + 0 rcBorland @@ -912,7 +923,7 @@ Comments= False 4194304 False False - False + True True %library_path% 0 @@ -979,8 +990,8 @@ Comments= True - - + + 0 @@ -992,125 +1003,9 @@ Comments= 0 1252 12 - Debug + Release False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Parametros\Cliente\Parametros.dpk - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - - - - False - %base_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 3 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - True - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Debug - False - + True True @@ -1136,132 +1031,7 @@ Comments= 0 False 0 - %source_path%\Usuarios\Usuarios.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 3 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - True - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Debug - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 1 - 0 - 0 - False - 0 - %source_path%\Configuracion\Configuracion.dpk + %source_path%\Base\GUIBase\GUIBase.dpk True 0 @@ -1276,13 +1046,22 @@ Comments= [usPackages,usCompiler,usLinker,usVersionInfo] False False - False False - False + False False False True @@ -1293,10 +1072,10 @@ Comments= False - %modules_dcp_path% - True + %base_dcp_path% + False - True + False False True @@ -1306,28 +1085,28 @@ Comments= 4194304 False False - False + True True %library_path% 0 - True + False 3 1048576 16384 True - True + False %output_path%\Cliente False False fa8 - True + False False True True - False + True False WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; @@ -1337,9 +1116,9 @@ Comments= - + Módulos - 8388736 + 0 Módulos True @@ -1353,179 +1132,470 @@ Comments= 0 1000 False - - - + + General 0 - True - False - False - True - True - 0 - 1252 - 12 - Debug - False - - + General True True - - False - False - False - False True False - False - False - False - False - False - False - False - 3081 - 1 0 - 0 False 0 - %source_path%\Modulos\FicherosEDI\Cliente\FicherosEDI.dpk - True - 0 - - - rcBorland 1000 - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - + Empresas + 0 + + Empresas + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Empresas\Model\Empresas_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + - - - False - False - False - False - False - True - False - False - %package_path% - - - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 3 - 1048576 - 16384 - - True - False - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True - - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Debug - False - - - True - True - - False - - False - False - True - True - False - False - False - False - False - False - False - False - 3082 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\VentasTerminadas\Cliente\VentasTerminadas.dpk - True - 3 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Empresas\Data\Empresas_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Empresas\Controller\Empresas_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Base\Usuarios\Usuarios.dpk + True + 3 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + - - - False - False - False - False - False - True - False - False - %package_path% - + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Empresas\Views\Empresas_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Empresas\Plugin\Empresas_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + - - False - %modules_dcp_path% - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - True - 3 - 1048576 - 16384 - - True - False - %output_path%\Cliente - False - - False - fa8 - True - False - - True - True - True - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + Contactos + 0 + + Contactos + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Contactos\Model\Contactos_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Contactos\Data\Contactos_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Contactos\Controller\Contactos_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Contactos\Views\Contactos_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + True + True + False + False + False + False + False + False + False + False + 3082 + + 1 + 0 + 0 + False + 0 + %source_path%\Modulos\Contactos\Plugin\Contactos_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + False + + False + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + False + 3 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + False + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + Familias + 0 + + Familias + False + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Familias\Model\Familias_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Familias\Data\Familias_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Familias\Controller\Familias_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Familias\Views\Familias_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 12 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Familias\Plugin\Familias_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [usPackages,usCompiler,usLinker,usVersionInfo] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + - - + + 0 - True - False - False - True - True - 0 - 1252 - 12 - Release - False - + - True + False True - - False - False - False - False True False - False - False - False - False - False - False - False - 3081 - 1 0 - 0 False 0 - %source_path%\Modulos\VentasProceso\Cliente\VentasProceso.dpk - True - 0 - - - rcBorland 1000 - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - + + - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - False - %output_path%\Cliente - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Almacenes\Model\Almacenes_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Almacenes\Data\Almacenes_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Almacenes\Controller\Almacenes_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Almacenes\Views\Almacenes_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Almacenes\Plugin\Almacenes_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + - - + + 0 - True - False - False - True - True - 0 - 1252 - 12 - Release - False - + - True + False True - - False - False - False - False True False - False - False - False - False - False - False - False - 3081 - 1 0 - 0 False 0 - %source_path%\Modulos\ReferenciaGenerica\Cliente\ReferenciaGenerica.dpk - True - 0 - - - rcBorland 1000 - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - + + - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - False - %output_path%\Cliente - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Articulos\Model\Articulos_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Articulos\Data\Articulos_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Articulos\Controller\Articulos_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Articulos\Views\Articulos_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Articulos\Plugin\Articulos_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + - - + + Ventas + 0 + + Ventas + False + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Comisiones\Model\Comisiones_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Comisiones\Data\Comisiones_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Comisiones\Controller\Comisiones_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + Compras + 0 + + Compras + False + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + False + False + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + Logística + 0 + + Logística + False + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Inventario\Model\Inventario_model.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Inventario\Data\Inventario_data.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Inventario\Controller\Inventario_controller.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + 0 + + + + True + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 - True - False - False - True - True - 0 - 1252 - 12 - Release - False - + - True + False True - - False - False - False - False True False - False - False - False - False - False - False - False - 3081 - 1 0 - 0 False 0 - %source_path%\Modulos\Recepciones\Cliente\Recepciones.dpk - True - 0 - - - rcBorland 1000 - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - + + - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - False - %output_path%\Cliente - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + - - + + Relaciones + 0 + + Relaciones + False + True + False + True + False + + 0 + False + 0 + 1000 + False + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + + + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + + + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + + + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + + + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + 0 - True - False - False - True - True - 0 - 1252 - 12 - Release - False - + - True + False True - - False - False - False - False True False - False - False - False - False - False - False - False - 3081 - 1 0 - 0 False 0 - %source_path%\Modulos\Devoluciones\Cliente\Devoluciones.dpk - True - 0 - - - rcBorland 1000 - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - + + - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - False - %output_path%\Cliente - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Traspasos\Cliente\Traspasos.dpk - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - + + - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - False - %output_path%\Cliente - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + - - - - - 0 - - True - False - False - True - True - 0 - 1252 - 12 - Release - False - - - True - True - - False - - False - False - False - True - False - False - False - False - False - False - False - False - 3081 - - 1 - 0 - 0 - False - 0 - %source_path%\Modulos\Stock\Cliente\Stock.dpk - True - 0 - - - rcBorland - 1000 - - False - False - False - False - [usPackages,usCompiler,usLinker,usVersionInfo] - False - False - - - - False - False - False - False - False - True - False - False - %package_path% - + + - - False - %modules_dcp_path% - False - - False - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path% - 0 - False - 3 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - - False - fa8 - False - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - - False - False - True + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Inventario\Views\Inventario_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Inventario\Plugin\Inventario_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Comisiones\Views\Comisiones_view.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + %source_path%\Modulos\Comisiones\Plugin\Comisiones_plugin.dpk + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + + + + + + 0 + + True + False + False + True + True + 0 + 1252 + 11 + Release + False + + + True + True + + False + + False + False + False + True + False + False + False + False + False + False + False + False + 3081 + + 0 + 0 + 0 + False + 0 + + + True + 0 + + + rcBorland + 1000 + + False + False + False + False + [] + False + False + + + + False + False + False + True + True + True + False + False + %package_path% + + + + False + %modules_dcp_path% + True + + True + + False + True + False + False + True + 4194304 + False + False + False + True + %library_path% + 0 + True + 0 + 1048576 + 16384 + + True + True + %output_path% + False + + False + fa8 + True + False + + True + True + False + False + WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; + + False + False + True + - + Cliente - 8388736 + 0 Cliente True @@ -2307,128 +15813,8 @@ Comments= 0 1000 False - - - - - - 0 - - True - True - False - True - True - 0 - 1252 - 12 - Debug - False - - - True - True - - False - %project_path%\Resources\Iconos\Cliente.ico - False - True - False - True - False - False - False - False - False - False - False - False - 3081 - - 1 - 0 - 0 - False - 0 - %source_path%\Cliente\AdminPV.dpr - True - 0 - - - rcBorland - 1000 - - False - True - True - False - [usCompiler,usLinker,usVersionInfo] - True - True - - - - False - False - True - False - False - True - False - False - - - - DEBUG - False - - True - - True - - False - True - False - False - True - 4194304 - False - False - False - True - %library_path%;%modules_dcp_path% - 0 - True - 0 - 1048576 - 16384 - - True - True - %output_path%\Cliente - False - BaseD10;Configuracion;ControlesBaseD10;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica - False - fa8 - True - False - - True - True - False - False - WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - .\ - False - True - True - - - - - - + + 0 @@ -2442,13 +15828,13 @@ Comments= 12 Debug False - + True True False - %project_path%\Resources\Iconos\CargaEDI.ico + %project_path%\Resources\Iconos\Factuges.ico False False True @@ -2465,17 +15851,17 @@ Comments= 2 0 - 0 + 2 False 0 - %source_path%\CargaEDI\CargaEDI.dpr + %source_path%\Cliente\FactuGES.dpr True - 0 + 2 rcBorland 1000 - + %source_path%\Cliente\ False False False @@ -2483,33 +15869,33 @@ Comments= [usCompiler,usLinker,usVersionInfo] False False - False False - False + False False False True False False - + .\ - + DEBUG; False - + .\ True True @@ -2524,7 +15910,7 @@ Comments= False False True - %library_path%;%modules_dcp_path% + %library_path%;%modules_dcp_path%; 0 True 3 @@ -2532,10 +15918,10 @@ Comments= 16384 True - True + False %output_path%\Cliente False - BaseD10;Configuracion;FicherosEDI + PluginSDK_D10R;GUISDK_D11;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin; False fa8 True @@ -2543,10 +15929,10 @@ Comments= True True - False + True False WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - + .\ False True True @@ -2752,18 +16138,9 @@ Comments= output_path vtProject - - - - False - False - False - search_path - vtProject - - %DELPHI2007DIR%\Lib;%library_3rdparty_path% + %DELPHI2007DIR%\Lib;%DELPHI2007DIR%\Imports;%library_3rdparty_path%;%base_dcp_path% True False False @@ -2788,7 +16165,7 @@ Comments= vtProject - %source_path%\Lib + %source_path%\Modulos\Lib True False False @@ -2820,7 +16197,7 @@ Comments= vtProject - %DELPHI2007DIR%\Lib\Indy10;%project_path%\Lib;%project_path%\Lib\RemObjects\RemObjects_SDK;%project_path%\Lib\RemObjects\Data_Abstract;%project_path%\Lib\CCPack;%project_path%\Lib\CFPack;%project_path%\Lib\GUISDK;%project_path%\Lib\PluginSDK;%project_path%\Lib\DevExpressVCL;%project_path%\Lib\FastReport3;%project_path%\Lib\JCL;%project_path%\Lib\JVCL;%project_path%\Lib\PngComponents;%project_path%\Lib\cxIntl5;%project_path%\Lib\cxIntlPrintSys3;%project_path%\Lib\TB2k+TBX;%project_path%\Lib\Mustangpeak\MPCommonLib;%project_path%\Lib\Mustangpeak\EasyListview; + %DELPHI2007DIR%\Lib\Indy10;%project_path%\Lib;%project_path%\Lib\RemObjects\RemObjects_SDK;%project_path%\Lib\RemObjects\Data_Abstract;%project_path%\Lib\CCPack;%project_path%\Lib\CFPack;%project_path%\Lib\GUISDK;%project_path%\Lib\PluginSDK;%project_path%\Lib\DevExpressVCL;%project_path%\Lib\FastReport3;%project_path%\Lib\JCL;%project_path%\Lib\JVCL;%project_path%\Lib\PngComponents;%project_path%\Lib\cxIntl5;%project_path%\Lib\cxIntlPrintSys3;%project_path%\Lib\TB2k+TBX;%project_path%\Lib\Mustangpeak\MPCommonLib;%project_path%\Lib\Mustangpeak\EasyListview;%project_path%\Lib\JSDialog; True False False @@ -2835,7 +16212,9 @@ Comments= path_aux vtProject - + + False False diff --git a/Build/Build.fbv b/Build/Build.fbv index 7c0b3370..411786d2 100644 --- a/Build/Build.fbv +++ b/Build/Build.fbv @@ -1 +1 @@ - + diff --git a/Build/Build.lck b/Build/Build.lck deleted file mode 100644 index 20d5cb86..00000000 Binary files a/Build/Build.lck and /dev/null differ diff --git a/Database/FACTUGES.FDB b/Database/FACTUGES.FDB index 6dda0c85..f08e75c5 100644 Binary files a/Database/FACTUGES.FDB and b/Database/FACTUGES.FDB differ diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk index b843b891..eb08d3b8 100644 --- a/Source/Base/Base.dpk +++ b/Source/Base/Base.dpk @@ -23,33 +23,41 @@ package Base; {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'Libreria base de FactuGES'} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} {$DEFINE DEBUG} requires rtl, vcl, + TB2k_D10, + GUISDK_D11, RemObjects_Core_D10, DataAbstract_Core_D10, - JSDialog100, - GUISDK_D11, + vcljpg, IndyCore, - IndyProtocols, IndySystem, + IndyProtocols, + cxLibraryD10, + dxThemeD10, + cxEditorsD10, + cxDataD10, + cxExtEditorsD10, + cxGridD10, + cxPageControlD10, + cxExportD10, + dxPSCoreD10, + PNG_D10, + PngComponentsD10, + tbx_d10, + cxIntlPrintSys3D10, + cxIntl5D10, Jcl, - JclVcl, JvCoreD11R, - JvPageCompsD11R, - JvStdCtrlsD11R, JvSystemD11R, - JvMMD11R, - JvCtrlsD11R, - Jv3rdD11R, - JvAppFrmD11R, + JvStdCtrlsD11R, JvDlgsD11R, JvNetD11R, - PngComponentsD10, - PNG_D10; + JvPageCompsD11R; contains uDataTableUtils in 'Utiles\uDataTableUtils.pas', diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index ebf57c5e..ba013b7a 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -6,7 +6,7 @@ Debug AnyCPU DCC32 - ..\Lib\Base.bpl + ..\..\Output\Debug\Cliente\Base.bpl 7.0 @@ -19,7 +19,7 @@ .\ .\ .\ - ..\Lib + ..\..\Output\Release\Cliente ..\Lib @@ -30,38 +30,15 @@ .\ .\ .\ - ..\Lib + ..\..\Output\Debug\Cliente ..\Lib + 3 Delphi.Personality Package -FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - - - - - - - - - - - - - - - - - +FalseTrueFalseLibreria base de FactuGESTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 @@ -82,41 +59,41 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fActualizacion
 @@ -148,7 +125,7 @@ diff --git a/Source/Base/Base.drc b/Source/Base/Base.drc index 6038e046..b7b29acb 100644 --- a/Source/Base/Base.drc +++ b/Source/Base/Base.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -8,9 +8,48 @@ resources were bound to the produced executable. */ -#define uClassRegistryUtils_eClassnotFound 65520 +#define JSDialogStrs_StrAssignSourceMustB 65520 +#define JSDialogStrs_StrYouMustAssociateA 65521 +#define JSDialogStrs_sBtnYes 65522 +#define JSDialogStrs_sBtnNo 65523 +#define JSDialogStrs_sBtnOK 65524 +#define JSDialogStrs_sBtnCancel 65525 +#define JSDialogStrs_sBtnHelp 65526 +#define JSDialogStrs_sBtnAbort 65527 +#define JSDialogStrs_sBtnRetry 65528 +#define JSDialogStrs_sBtnIgnore 65529 +#define JSDialogStrs_sBtnAll 65530 +#define JSDialogStrs_sBtnNoToAll 65531 +#define JSDialogStrs_sBtnYesToAll 65532 +#define JSDialogStrs_sBtnClose 65533 +#define JSDialogStrs_StrConfirmation 65534 +#define uClassRegistryUtils_eClassnotFound 65535 STRINGTABLE BEGIN + JSDialogStrs_StrAssignSourceMustB, "Assign source must be a TJsDialog" + JSDialogStrs_StrYouMustAssociateA, "You must associate a Help File with your application" + JSDialogStrs_sBtnYes, "&Yes" + JSDialogStrs_sBtnNo, "&No" + JSDialogStrs_sBtnOK, "OK" + JSDialogStrs_sBtnCancel, "Cancel" + JSDialogStrs_sBtnHelp, "&Help" + JSDialogStrs_sBtnAbort, "&Abort" + JSDialogStrs_sBtnRetry, "&Retry" + JSDialogStrs_sBtnIgnore, "&Ignore" + JSDialogStrs_sBtnAll, "&All" + JSDialogStrs_sBtnNoToAll, "N&o to All" + JSDialogStrs_sBtnYesToAll, "Yes to &All" + JSDialogStrs_sBtnClose, "&Close" + JSDialogStrs_StrConfirmation, "Confirmation" uClassRegistryUtils_eClassnotFound, "Class \"%s\" was not found in the registry." END +/* C:\Codigo Tecsitel\Lib\JSDialog\mbimg.res */ +/* C:\Codigo Tecsitel\Lib\JSDialog\vistaimg.RES */ +/* C:\Codigo Tecsitel\Source\Base\uConfigurarConexion.dfm */ +/* C:\Codigo Tecsitel\Source\Base\uDataModuleConexion.dfm */ +/* C:\Codigo Tecsitel\Source\Base\uDataModuleConfiguracion.dfm */ +/* C:\Codigo Tecsitel\Source\Base\uDataModuleBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\uActualizacion.dfm */ +/* C:\Codigo Tecsitel\Source\Base\Base.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C4.tmp */ diff --git a/Source/Base/Base.identcache b/Source/Base/Base.identcache index ef7bae95..a5818f8f 100644 Binary files a/Source/Base/Base.identcache and b/Source/Base/Base.identcache differ diff --git a/Source/Base/Base.rc b/Source/Base/Base.rc index e69de29b..153736af 100644 --- a/Source/Base/Base.rc +++ b/Source/Base/Base.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Base/ControllerBase/ControllerBase.dpk b/Source/Base/ControllerBase/ControllerBase.dpk index 900e7f3b..36c3d82c 100644 --- a/Source/Base/ControllerBase/ControllerBase.dpk +++ b/Source/Base/ControllerBase/ControllerBase.dpk @@ -22,18 +22,19 @@ package ControllerBase; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires rtl, vcl, dbrtl, dsnap, - DataAbstract_D10, - cxLibraryD10, - dxThemeD10, vcldb, - adortl; + adortl, + RemObjects_Core_D10, + DataAbstract_Core_D10, + cxLibraryD10, + dxThemeD10; contains uControllerBase in 'uControllerBase.pas', diff --git a/Source/Base/ControllerBase/ControllerBase.dproj b/Source/Base/ControllerBase/ControllerBase.dproj index 6122a369..831c8ea4 100644 --- a/Source/Base/ControllerBase/ControllerBase.dproj +++ b/Source/Base/ControllerBase/ControllerBase.dproj @@ -44,75 +44,33 @@ T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib T:\COMPON~1\jcl\lib\d10\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy9;..\..\DataAbstract_D10\Lib;..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - ControllerBase.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0ControllerBase.dpk - + MainSource - - - - - - - - - + + + + + + + + + + - - diff --git a/Source/Base/GUIBase/GUIBase.drc b/Source/Base/GUIBase/GUIBase.drc index 7642ac97..d4e2e1dd 100644 --- a/Source/Base/GUIBase/GUIBase.drc +++ b/Source/Base/GUIBase/GUIBase.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,27 @@ STRINGTABLE BEGIN END +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewFiltroBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewGridBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorItem.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorDBBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorGridBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewPreview.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorPreview.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorDBItem.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewBarraSeleccion.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewFormaPago.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewObservaciones.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewTotales.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewDetallesBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewIncidencias.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewDetallesDTO.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewDetallesGenerico.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewGrid2Niveles.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uEditorBasico.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uDialogBase.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\uViewGrid.dfm */ +/* C:\Codigo Tecsitel\Source\Base\GUIBase\GUIBase.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1C8.tmp */ diff --git a/Source/Base/GUIBase/GUIBase.rc b/Source/Base/GUIBase/GUIBase.rc index e69de29b..153736af 100644 --- a/Source/Base/GUIBase/GUIBase.rc +++ b/Source/Base/GUIBase/GUIBase.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Base/GUIBase/GUIBase.res b/Source/Base/GUIBase/GUIBase.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Base/GUIBase/GUIBase.res and b/Source/Base/GUIBase/GUIBase.res differ diff --git a/Source/Base/GUIBase/uEditorPreview.dfm b/Source/Base/GUIBase/uEditorPreview.dfm index e33fe45a..0532ec05 100644 --- a/Source/Base/GUIBase/uEditorPreview.dfm +++ b/Source/Base/GUIBase/uEditorPreview.dfm @@ -875,10 +875,6 @@ inherited fEditorPreview: TfEditorPreview Left = 48 Top = 240 end - object frxChartObject1: TfrxChartObject - Left = 16 - Top = 272 - end object frxRichObject1: TfrxRichObject Left = 48 Top = 272 diff --git a/Source/Base/GUIBase/uEditorPreview.pas b/Source/Base/GUIBase/uEditorPreview.pas index 48b75e08..6769b0e9 100644 --- a/Source/Base/GUIBase/uEditorPreview.pas +++ b/Source/Base/GUIBase/uEditorPreview.pas @@ -9,7 +9,7 @@ uses TB2ExtItems, TBXExtItems, uViewPreview, frxClass, ComCtrls, frxPreview, JvFormAutoSize, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport, - frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode, + frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode, ExtCtrls, JvComponentBase, TBXStatusBars, JvExComCtrls, JvStatusBar; type @@ -55,7 +55,6 @@ type TBXSeparatorItem18: TTBXSeparatorItem; frxBarCodeObject1: TfrxBarCodeObject; frxOLEObject1: TfrxOLEObject; - frxChartObject1: TfrxChartObject; frxRichObject1: TfrxRichObject; frxCrossObject1: TfrxCrossObject; frxCheckBoxObject1: TfrxCheckBoxObject; diff --git a/Source/Base/Usuarios/Usuarios.dpk b/Source/Base/Usuarios/Usuarios.dpk index f60f5fa0..b5fa2fda 100644 --- a/Source/Base/Usuarios/Usuarios.dpk +++ b/Source/Base/Usuarios/Usuarios.dpk @@ -23,15 +23,15 @@ package Usuarios; {$MINENUMSIZE 1} {$IMAGEBASE $400000} {$DESCRIPTION 'Gestión de usuarios'} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires vcl, vcldb, - DataAbstract_D10, Base, Empresas_model, - Empresas_controller; + Empresas_controller, + JvMMD11R; contains uDataModuleUsuarios in 'uDataModuleUsuarios.pas' {dmUsuarios: TDAClientDataModule}, diff --git a/Source/Base/Usuarios/Usuarios.dproj b/Source/Base/Usuarios/Usuarios.dproj index 8f80e1ec..a43424cc 100644 --- a/Source/Base/Usuarios/Usuarios.dproj +++ b/Source/Base/Usuarios/Usuarios.dproj @@ -1,4 +1,5 @@ - + + {0e3d28a9-51af-483b-b478-472a086ee120} Usuarios.dpk @@ -36,69 +37,24 @@ ..\..\Lib;..\..\Modulos\Lib ..\..\Lib;..\..\Modulos\Lib ..\..\Lib;..\..\Modulos\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - Gestión de usuarios - False - False - False - - - C:\Archivos de programa\Borland\Delphi7\Bin\ - - - True - False - 1 - 0 - 3 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.3.0 - - - - - - 1.0.0.0 - - - - Usuarios.dpk - - +FalseTrueFalseGestión de usuariosFalseFalseFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1030FalseFalseFalseFalseFalse308212521.0.3.01.0.0.0Usuarios.dpk - + MainSource - - - - - - + + + + + +
fCambiarPassword
 @@ -115,9 +71,7 @@
fUsuarios
 - - diff --git a/Source/Cliente/FactuGES.drc b/Source/Cliente/FactuGES.drc index 7642ac97..46c48c60 100644 --- a/Source/Cliente/FactuGES.drc +++ b/Source/Cliente/FactuGES.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,10 @@ STRINGTABLE BEGIN END +/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */ +/* C:\Codigo Tecsitel\Lib\JVCL\JvXPCore.res */ +/* C:\Codigo Tecsitel\Source\Cliente\uSplash.dfm */ +/* C:\Codigo Tecsitel\Source\Cliente\uAcercaDe.dfm */ +/* C:\Codigo Tecsitel\Source\Cliente\uPantallaPrincipal.dfm */ +/* C:\Codigo Tecsitel\Source\Cliente\FactuGES.RES */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1F4.tmp */ diff --git a/Source/Cliente/FactuGES.identcache b/Source/Cliente/FactuGES.identcache index 5a0cd405..5e424217 100644 Binary files a/Source/Cliente/FactuGES.identcache and b/Source/Cliente/FactuGES.identcache differ diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index ea1ce68a..9542e8cb 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,4 +1,4 @@ -MAINICON ICON "E:\Codigo (Luis León)\Source\Iconos\Factuges.ico" +MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" 1 VERSIONINFO FILEVERSION 2,2,2,0 PRODUCTVERSION 2,2,2,0 diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index fbc3c2b3..19ec614f 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm index 488c1c56..1a52c5c4 100644 --- a/Source/Cliente/uPantallaPrincipal.dfm +++ b/Source/Cliente/uPantallaPrincipal.dfm @@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Left = 358 Top = 250 Caption = 'Pantalla principal' - ClientHeight = 662 + ClientHeight = 451 ClientWidth = 559 Color = clWindow Font.Charset = DEFAULT_CHARSET @@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Left = 0 Top = 0 Width = 559 - Height = 640 + Height = 429 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 @@ -35,7 +35,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Left = 215 Top = 5 Width = 5 - Height = 630 + Height = 419 ResizeStyle = rsPattern ExplicitLeft = 210 ExplicitHeight = 570 @@ -44,7 +44,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Left = 5 Top = 5 Width = 210 - Height = 630 + Height = 419 ActivePage = pagInicio Align = alLeft AutoHeaders = True @@ -89,7 +89,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Left = 0 Top = 0 Width = 208 - Height = 557 + Height = 346 Background.Stretch = False Background.Proportional = False Background.Center = False @@ -99,7 +99,7 @@ object fPantallaPrincipal: TfPantallaPrincipal ImageIndex = 0 object Panel1: TPanel Left = 0 - Top = 471 + Top = 260 Width = 208 Height = 86 Align = alBottom @@ -153,7 +153,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Left = 220 Top = 5 Width = 334 - Height = 630 + Height = 419 BoundColor = clActiveCaption BoundLines = [blLeft, blTop, blRight, blBottom] Caption = 'pnlBorde' @@ -162,7 +162,7 @@ object fPantallaPrincipal: TfPantallaPrincipal Left = 1 Top = 1 Width = 332 - Height = 628 + Height = 417 Align = alClient Color = clWindow TabOrder = 0 @@ -202,7 +202,7 @@ object fPantallaPrincipal: TfPantallaPrincipal end object TBXStatusBar1: TTBXStatusBar Left = 0 - Top = 640 + Top = 429 Width = 559 Images = StatusPanelImageList Panels = < diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas index e6243efe..5bd1da51 100644 --- a/Source/Cliente/uPantallaPrincipal.pas +++ b/Source/Cliente/uPantallaPrincipal.pas @@ -3,21 +3,15 @@ unit uPantallaPrincipal; interface uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, XPMan, uGUIBase, uCustomEditor, - JvNavigationPane, JvExExtCtrls, JvComponent, Menus, ImgList, - PngImageList, ActnList, uHostManager, JvExControls, JvPageList, JvPanel, - TBX, TB2Item, TB2Dock, TB2Toolbar, ComCtrls, TBXToolPals, TBXLists, - TBXExtItems, TB2ExtItems, TBXMDI, TBXDkPanels, JvSplitter, JvSyncSplitter, - JvXPBar, JvXPCore, JvXPContainer, JvLookOut, JvOutlookBar, Buttons, - JvExButtons, JvBitBtn, JvSpeedButton, JvExStdCtrls, JvButton, JvCtrls, - JvStartMenuButton, JvTransparentButton, JvExComCtrls, JvListView, - JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvBaseDlg, - JvJVCLAboutForm, AppEvnts, JvWaitingGradient, JvGradient, - cxControls, JvComponentBase, JvMenus, TBXStatusBars, uEmpresasController, - pngimage; -type + Windows, Forms, SysUtils, Messages, JvMenus, Menus, Graphics, AppEvnts, + JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, + JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan, + TBXStatusBars, JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls, + JvPageList, JvExControls, JvExExtCtrls, JvSplitter, JvSyncSplitter, + TBXDkPanels, uCustomEditor, uHostManager, uEmpresasController, uGUIBase, + Dialogs; +type IMainForm = interface(IHostForm) ['{56FCE1D7-E163-4A36-A468-A6324A4E3911}'] function GetEmpresasController : IEmpresasController; @@ -138,7 +132,7 @@ uses uDataModuleConexion, uModuleController, uDataModuleBase, Math, uMenuUtils, uSplash, uAcercaDe, UxTheme, Themes, uDataModuleUsuarios, uPluginEmpresas, uNavPaneController, uMainMenuController, uROSessions, FactuGES_Intf, - uDialogUtils, uActualizacion; + uDialogUtils, uActualizacion, uROClient, cxControls; {$R *.dfm} diff --git a/Source/FactuGES_Group.groupproj b/Source/FactuGES_Group.groupproj index 2a14eaba..bb62afa2 100644 --- a/Source/FactuGES_Group.groupproj +++ b/Source/FactuGES_Group.groupproj @@ -4,6 +4,7 @@ + @@ -34,8 +35,26 @@ Default.Personality - + + + + + + + + + + + + + + + + + + + @@ -252,23 +271,14 @@ - - - - - - - - - - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk index 47b4be61..c584af61 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk @@ -22,39 +22,17 @@ package Contactos_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} {%TogetherDiagram 'ModelSupport_Contactos_controller\default.txaPackage'} requires rtl, vcl, - DataAbstract_D10, Base, GUIBase, Contactos_model, - Contactos_data, - dbrtl, - cxLibraryD10, - dxThemeD10, - GUISDK_D10, - ccpack10, - designide, - xmlrtl, - vclactnband, - vclx, - cfpack_d10, - JvAppFrmD10R, - vcljpg, - JclVcl, - Jcl, - JvSystemD10R, - JvCoreD10R, - dsnap, - vcldb, - adortl, - JvCtrlsD10R, - JvStdCtrlsD10R; - + Contactos_data; + contains uContactosController in 'uContactosController.pas', uIEditorContactos in 'View\uIEditorContactos.pas', diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index 9f21bc9c..ceb309c7 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -1,4 +1,5 @@ - + + {e4ad187e-0c3a-462a-b435-f69475af2f56} Contactos_controller.dpk @@ -36,99 +37,23 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - - - - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 JCL Debug IDE extension JCL Project Analyzer JCL Open and Save IDE dialogs with favorite folders - - - Contactos_controller.dpk - - + Contactos_controller.dpk - + MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -158,489 +83,4 @@ - - - diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.drc b/Source/Modulos/Contactos/Controller/Contactos_controller.drc index 7642ac97..f73ed2ae 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.drc +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,5 @@ STRINGTABLE BEGIN END +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Controller\Contactos_controller.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1EE.tmp */ diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.rc b/Source/Modulos/Contactos/Controller/Contactos_controller.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.rc +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.res b/Source/Modulos/Contactos/Controller/Contactos_controller.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.res and b/Source/Modulos/Contactos/Controller/Contactos_controller.res differ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dpk b/Source/Modulos/Contactos/Data/Contactos_data.dpk index 36692c4d..4ce57ece 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.dpk +++ b/Source/Modulos/Contactos/Data/Contactos_data.dpk @@ -22,25 +22,12 @@ package Contactos_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} {%TogetherDiagram 'ModelSupport_Contactos_data\default.txaPackage'} requires rtl, vcl, - dbrtl, - dsnap, - vcldb, - DataAbstract_D10, - adortl, - vcljpg, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - cxExtEditorsD10, - cxGridD10, - cxPageControlD10, Base, Usuarios, Contactos_model; diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dproj b/Source/Modulos/Contactos/Data/Contactos_data.dproj index 14b1e409..d075a5fb 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.dproj +++ b/Source/Modulos/Contactos/Data/Contactos_data.dproj @@ -1,4 +1,5 @@ - + + {13ceca01-95fe-4f1e-80ed-6dcc5ef31c88} Contactos_data.dpk @@ -36,78 +37,18 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - Contactos_data.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_data.dpk - + MainSource - - - - - - - - - - - - - - - - - - -
DataModuleClientes
@@ -121,489 +62,4 @@
DataModuleProveedores
 - - - diff --git a/Source/Modulos/Contactos/Data/Contactos_data.drc b/Source/Modulos/Contactos/Data/Contactos_data.drc index 7642ac97..81ac7137 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.drc +++ b/Source/Modulos/Contactos/Data/Contactos_data.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,9 @@ STRINGTABLE BEGIN END +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleContactos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Data\Contactos_data.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1EC.tmp */ diff --git a/Source/Modulos/Contactos/Data/Contactos_data.rc b/Source/Modulos/Contactos/Data/Contactos_data.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.rc +++ b/Source/Modulos/Contactos/Data/Contactos_data.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Contactos/Data/Contactos_data.res b/Source/Modulos/Contactos/Data/Contactos_data.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Data/Contactos_data.res and b/Source/Modulos/Contactos/Data/Contactos_data.res differ diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas index 74abeab0..a57de352 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas @@ -38,7 +38,7 @@ implementation {$R *.dfm} uses - FactuGES_Intf, uBizContactosDatosBancarios, cxControls, uDAInterfaces, schContactosClient_Intf, + FactuGES_Intf, uBizContactosDatosBancarios, cxControls, schContactosClient_Intf, uDataTableUtils, Dialogs; { TdmClientes } diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas index 5049510f..73097481 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas +++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas @@ -53,8 +53,7 @@ implementation uses uDataTableUtils, uDataModuleConexion, cxControls, - FactuGES_Intf, uDataModuleUsuarios, schContactosClient_Intf, Dialogs, - uDAInterfaces; + FactuGES_Intf, uDataModuleUsuarios, schContactosClient_Intf, Dialogs; { TdmContactos } diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas b/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas index 546744b2..9acc034d 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas +++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.pas @@ -33,7 +33,7 @@ implementation {$R *.dfm} uses - cxControls, schContactosClient_Intf, uDAInterfaces, uDataTableUtils; + cxControls, schContactosClient_Intf, uDataTableUtils; { TDataModuleProveedores } diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dpk b/Source/Modulos/Contactos/Model/Contactos_model.dpk index 6a2206f6..b7d5e659 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dpk +++ b/Source/Modulos/Contactos/Model/Contactos_model.dpk @@ -22,24 +22,11 @@ package Contactos_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires rtl, - dbrtl, vcl, - DataAbstract_D10, - dsnap, - vcldb, - adortl, - vcljpg, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - cxExtEditorsD10, - cxGridD10, - cxPageControlD10, Base, Usuarios, Empresas_controller; diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj index 7e9e8cca..4e90043f 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dproj +++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj @@ -1,4 +1,5 @@ - + + {a7225a8d-f40d-4878-9a27-c5de0e7cb638} Contactos_model.dpk @@ -36,88 +37,19 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - - - - - - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - - - Contactos_model.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 +Contactos_model.dpk - + MainSource - - - - - - - - - - - - - - - - - - @@ -135,489 +67,4 @@ - - - diff --git a/Source/Modulos/Contactos/Model/Contactos_model.drc b/Source/Modulos/Contactos/Model/Contactos_model.drc index 7642ac97..593c0137 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.drc +++ b/Source/Modulos/Contactos/Model/Contactos_model.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,5 @@ STRINGTABLE BEGIN END +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Model\Contactos_model.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1EA.tmp */ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.rc b/Source/Modulos/Contactos/Model/Contactos_model.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.rc +++ b/Source/Modulos/Contactos/Model/Contactos_model.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Model/Contactos_model.res and b/Source/Modulos/Contactos/Model/Contactos_model.res differ diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.dpk b/Source/Modulos/Contactos/Plugin/Contactos_plugin.dpk index 0b99147d..629a42ee 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.dpk +++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.dpk @@ -22,27 +22,13 @@ package Contactos_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires rtl, vcl, - GUISDK_D10, - ccpack10, - designide, - xmlrtl, - vclactnband, - vclx, - cfpack_d10, - JvAppFrmD10R, - vcljpg, - JclVcl, - Jcl, - JvSystemD10R, - JvCoreD10R, PluginSDK_D10R, - PngComponentsD10, - PNG_D10, + Base, Contactos_model, Contactos_data, Contactos_controller, diff --git a/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj b/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj index 01b15aaa..d3c4ac0c 100644 --- a/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj +++ b/Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj @@ -36,99 +36,23 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - - - - - - - JCL Debug IDE extension - JCL Project Analyzer - JCL Open and Save IDE dialogs with favorite folders - - - Contactos_plugin.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Contactos_plugin.dpk - + MainSource - - - - - - - - - - - - - - - - - - - - - -
PluginContactos
 - - diff --git a/Source/Modulos/Contactos/Views/Contactos_view.drc b/Source/Modulos/Contactos/Views/Contactos_view.drc index 7642ac97..6f299514 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.drc +++ b/Source/Modulos/Contactos/Views/Contactos_view.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,37 @@ STRINGTABLE BEGIN END +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewContactos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorContactos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewEmpleados.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorEmpleados.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorElegirClientes.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewContacto.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewContactoDatosBancarios.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorContacto.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewEmpleado.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDireccionesEntrega.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewClienteDescuentos.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewClienteDatosComerciales.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewProveedorDatosComerciales.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorEmpleado.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorElegirProveedores.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorDireccion.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorElegirDireccionEntrega.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorGruposCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorGruposProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorGruposEmpleado.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorFichasEmpleadoReport.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uEditorEtiquetasContactosReport.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionProveedor.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Views\Contactos_view.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1F0.tmp */ diff --git a/Source/Modulos/Contactos/Views/Contactos_view.rc b/Source/Modulos/Contactos/Views/Contactos_view.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.rc +++ b/Source/Modulos/Contactos/Views/Contactos_view.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ diff --git a/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.dfm b/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.dfm index 30014cbe..6d9c73c1 100644 --- a/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.dfm +++ b/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.dfm @@ -1,6 +1,7 @@ inherited fEditorEtiquetasContactosPreview: TfEditorEtiquetasContactosPreview Caption = 'Previsualizar la factura' ExplicitWidth = 803 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.pas b/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.pas index 79bbab27..66787211 100644 --- a/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.pas +++ b/Source/Modulos/Contactos/Views/uEditorEtiquetasContactosReport.pas @@ -5,7 +5,7 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass, - frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE, + frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, diff --git a/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.dfm b/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.dfm index 8a69c09e..5ab584a3 100644 --- a/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.dfm +++ b/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.dfm @@ -1,12 +1,14 @@ inherited fEditorFichasEmpleadoPreview: TfEditorFichasEmpleadoPreview Caption = 'Previsualizar la factura' ExplicitWidth = 803 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader ExplicitWidth = 795 inherited Image1: TImage Left = 768 + ExplicitLeft = 768 end end inherited StatusBar: TJvStatusBar diff --git a/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.pas b/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.pas index 72095b63..21e843f6 100644 --- a/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.pas +++ b/Source/Modulos/Contactos/Views/uEditorFichasEmpleadoReport.pas @@ -5,7 +5,7 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass, - frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE, + frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.dpk b/Source/Modulos/Empresas/Controller/Empresas_controller.dpk index 0ae4f23d..a865e3c1 100644 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.dpk +++ b/Source/Modulos/Empresas/Controller/Empresas_controller.dpk @@ -22,57 +22,13 @@ package Empresas_controller; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} -{%TogetherDiagram 'ModelSupport_Empresas_controller\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorContacto\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorCliente\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uContactosController\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorClientes\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uClientesController\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorContactos\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\default.txvpck'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uClientesController\default.txvpck'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorCliente\default.txvpck'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorClientes\default.txvpck'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorContactos\default.txvpck'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorContacto\default.txvpck'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uContactosController\default.txvpck'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorInstalador\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorInstaladores\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorVendedores\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorProveedores\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorVendedor\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uInstaladoresController\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uProveedoresController\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uIEditorProveedor\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uVendedoresController\default.txaPackage'} -{%TogetherDiagram 'ModelSupport_Empresas_controller\uVendedoresController\default.txvpck'} +{$IMPLICITBUILD ON} requires rtl, vcl, - DataAbstract_D10, Base, GUIBase, - dbrtl, - cxLibraryD10, - dxThemeD10, - GUISDK_D10, - ccpack10, - designide, - xmlrtl, - vclactnband, - vclx, - cfpack_d10, - JvAppFrmD10R, - vcljpg, - JclVcl, - Jcl, - JvSystemD10R, - JvCoreD10R, - dsnap, - vcldb, - adortl, Empresas_model, Empresas_data; diff --git a/Source/Modulos/Empresas/Controller/Empresas_controller.dproj b/Source/Modulos/Empresas/Controller/Empresas_controller.dproj index 874796ac..6eeab254 100644 --- a/Source/Modulos/Empresas/Controller/Empresas_controller.dproj +++ b/Source/Modulos/Empresas/Controller/Empresas_controller.dproj @@ -1,4 +1,5 @@ - + + {e4ad187e-0c3a-462a-b435-f69475af2f56} Empresas_controller.dpk @@ -36,50 +37,15 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + @@ -89,80 +55,31 @@ JCL Debug IDE extension JCL Project Analyzer JCL Open and Save IDE dialogs with favorite folders - - - Empresas_controller.dpk - - + Empresas_controller.dpk - + MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + - diff --git a/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.rc b/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.rc +++ b/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.res b/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.res and b/Source/Modulos/Tipos de IVA/Controller/TiposIVA_controller.res differ diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dpk b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dpk index 1552bd67..722e4d0d 100644 --- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dpk +++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dpk @@ -22,25 +22,12 @@ package TiposIVA_data; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires rtl, vcl, - dbrtl, - dsnap, - vcldb, - adortl, - vcljpg, - cxLibraryD10, - dxThemeD10, - cxEditorsD10, - cxDataD10, - cxExtEditorsD10, - cxGridD10, - cxPageControlD10, - DataAbstract_D10, Base, TiposIVA_model; diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dproj b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dproj index 7a36521d..b329b5ea 100644 --- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dproj +++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.dproj @@ -1,4 +1,5 @@ - + + {55d06c67-fc74-4d88-8787-801dee872bb3} TiposIVA_data.dpk @@ -36,563 +37,38 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - TiposIVA_data.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposIVA_data.dpk - + MainSource - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + +
DataModuleTiposIVA
 - - diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc index 7642ac97..a0b74431 100644 --- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc +++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,6 @@ STRINGTABLE BEGIN END +/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E2.tmp */ diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.rc b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.rc +++ b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res and b/Source/Modulos/Tipos de IVA/Data/TiposIVA_data.res differ diff --git a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas index 7429f772..388b204e 100644 --- a/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas +++ b/Source/Modulos/Tipos de IVA/Data/uDataModuleTiposIVA.pas @@ -68,7 +68,7 @@ implementation {$R *.DFM} uses - FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces, + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, schTiposIVAClient_Intf; { TDataModuleTiposIVA } diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk index b9b65ee0..b1945a9f 100644 --- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk +++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dpk @@ -22,17 +22,12 @@ package TiposIVA_model; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires rtl, - dsnap, - dbrtl, - vcldb, vcl, - adortl, - Base, - DataAbstract_D10; + Base; contains uIDataModuleTiposIVA in 'Data\uIDataModuleTiposIVA.pas', diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj index 09441447..b7105572 100644 --- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj +++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.dproj @@ -1,4 +1,5 @@ - + + {82fe21d8-609d-444d-879e-4d9e1c291607} TiposIVA_model.dpk @@ -36,555 +37,28 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - TiposIVA_model.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposIVA_model.dpk - + MainSource - - - - - - - - + + + + + + + - - - diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc index 7642ac97..b4d78895 100644 --- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc +++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,5 @@ STRINGTABLE BEGIN END +/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1E0.tmp */ diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.rc b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.rc +++ b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res and b/Source/Modulos/Tipos de IVA/Model/TiposIVA_model.res differ diff --git a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dpk b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dpk index bb0a1ec9..ce61896a 100644 --- a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dpk +++ b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dpk @@ -22,15 +22,11 @@ package TiposIVA_plugin; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires rtl, vcl, - PngComponentsD10, - PNG_D10, - vclactnband, - vclx, PluginSDK_D10R, TiposIVA_model, TiposIVA_controller, diff --git a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dproj b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dproj index 50efd3ec..3339fa69 100644 --- a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dproj +++ b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dproj @@ -1,4 +1,5 @@ - + + {139324a2-0c57-446d-aebd-edd9578e22fd} TiposIVA_plugin.dpk @@ -34,554 +35,28 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - TiposIVA_plugin.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposIVA_plugin.dpk - + MainSource - - - - - - - - - - + + + + + + + + + + - - - diff --git a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.rc b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.rc +++ b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.res b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.res and b/Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.res differ diff --git a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm index 78cb5712..84c17173 100644 --- a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm +++ b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm @@ -4,14 +4,14 @@ object srvTiposIVA: TsrvTiposIVA RequiresSession = True SessionManager = dmServer.SessionManager ServiceSchema = schTiposIVA - ServiceDataStreamer = DABinDataStreamer + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 300 Width = 334 object Diagrams: TDADiagrams Left = 150 - Top = 80 + Top = 88 DiagramData = ''#13#10''#13#10 end object DataDictionary: TDADataDictionary @@ -267,7 +267,7 @@ object srvTiposIVA: TsrvTiposIVA Left = 251 Top = 24 end - object DABinDataStreamer: TDABinDataStreamer + object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 88 end diff --git a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas index e890dc44..64d268f9 100644 --- a/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas +++ b/Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas @@ -15,7 +15,8 @@ uses {Ancestor Implementation:} DataAbstractService_Impl, {Used RODLs:} DataAbstract4_Intf, {Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses, - uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer; + uDAScriptingProvider, uDABusinessProcessor, uDADataStreamer, + uDABin2DataStreamer; type { TsrvTiposIVA } @@ -24,7 +25,7 @@ type schTiposIVA: TDASchema; DataDictionary: TDADataDictionary; bpTiposIVA: TDABusinessProcessor; - DABinDataStreamer: TDABinDataStreamer; + Bin2DataStreamer: TDABin2DataStreamer; procedure DARemoteServiceCreate(Sender: TObject); procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); diff --git a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dpk b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dpk index 58780b3a..acf5d8a7 100644 --- a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dpk +++ b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dpk @@ -22,21 +22,16 @@ package TiposIVA_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires rtl, vcl, - dbrtl, - vcldb, - dsnap, - adortl, - DataAbstract_D10, Base, TiposIVA_model, TiposIVA_data, TiposIVA_controller, - JvCmpD10R; + JvCmpD11R; contains uTiposIVAViewRegister in 'uTiposIVAViewRegister.pas', diff --git a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dproj b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dproj index e694cb98..7d31171c 100644 --- a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dproj +++ b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.dproj @@ -1,4 +1,5 @@ - + + {911c25fd-90ea-4e70-aa53-99f37be38b57} TiposIVA_view.dpk @@ -34,71 +35,24 @@ ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib ..\..\..\Lib;..\..\Lib - DEBUG Delphi.Personality Package - - False - True - False - - - False - False - False - - - True - False - 1 - 0 - 0 - 0 - False - False - False - False - False - 3082 - 1252 - - - - - 1.0.0.0 - - - - - - 1.0.0.0 - - - - TiposIVA_view.dpk - - +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposIVA_view.dpk - + MainSource - - - - - - - - - - - - + + + + + +
fEditorTipoIVA
 @@ -106,490 +60,6 @@
fEditorTiposIVA
 + - - - diff --git a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.rc b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.rc index e69de29b..153736af 100644 --- a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.rc +++ b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.res b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.res index 86c94e6a..8b251f31 100644 Binary files a/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.res and b/Source/Modulos/Tipos de IVA/Views/TiposIVA_view.res differ diff --git a/Source/Servicios/srvConfiguracion_Impl.dfm b/Source/Servicios/srvConfiguracion_Impl.dfm index 65c6da91..95fac36b 100644 --- a/Source/Servicios/srvConfiguracion_Impl.dfm +++ b/Source/Servicios/srvConfiguracion_Impl.dfm @@ -4,7 +4,7 @@ object srvConfiguracion: TsrvConfiguracion SessionManager = dmServer.SessionManager ConnectionName = 'IBX' ServiceSchema = schConfiguracion - ServiceDataStreamer = DABinDataStreamer + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 160 @@ -50,7 +50,7 @@ object srvConfiguracion: TsrvConfiguracion Left = 40 Top = 16 end - object DABinDataStreamer: TDABinDataStreamer + object Bin2DataStreamer: TDABin2DataStreamer Left = 40 Top = 80 end diff --git a/Source/Servicios/srvConfiguracion_Impl.pas b/Source/Servicios/srvConfiguracion_Impl.pas index 27b93916..9f64d02c 100644 --- a/Source/Servicios/srvConfiguracion_Impl.pas +++ b/Source/Servicios/srvConfiguracion_Impl.pas @@ -12,19 +12,18 @@ interface uses {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, -// {Required:} uRORemoteDataModule, {Ancestor Implementation:} DataAbstractService_Impl, {Used RODLs:} DataAbstract4_Intf, -// {Generated:} FactuGES_Intf, uDAClasses; {Generated:} FactuGES_Intf, uDAClasses, uDAScriptingProvider, - uDABusinessProcessor, uDADataTable, uDABINAdapter, uDADataStreamer; + uDABusinessProcessor, uDADataTable, uDABINAdapter, uDADataStreamer, + uDABin2DataStreamer; type { TsrvConfiguracion } TsrvConfiguracion = class(TDataAbstractService, IsrvConfiguracion) schConfiguracion: TDASchema; - DABinDataStreamer: TDABinDataStreamer; + Bin2DataStreamer: TDABin2DataStreamer; procedure DARemoteServiceCreate(Sender: TObject); procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); diff --git a/Source/Servicios/srvLogin_Impl.dfm b/Source/Servicios/srvLogin_Impl.dfm index 6911815b..dfe6364f 100644 --- a/Source/Servicios/srvLogin_Impl.dfm +++ b/Source/Servicios/srvLogin_Impl.dfm @@ -3,7 +3,7 @@ object srvLogin: TsrvLogin OnCreate = DataAbstractServiceCreate ConnectionName = 'IBX' ServiceSchema = schLogin - ServiceDataStreamer = DABinDataStreamer + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 300 @@ -16,12 +16,13 @@ object srvLogin: TsrvLogin item Name = 'ID_USUARIO' DataType = datInteger - Value = '' + Value = '1' ParamType = daptInput end> Statements = < item Connection = 'IBX' + TargetTable = 'EMPRESAS_USUARIOS' SQL = 'SELECT '#10' ID_EMPRESA'#10' FROM'#10' EMPRESAS_USUARIOS'#10' WHERE ID_U' + 'SUARIO = :ID_USUARIO' @@ -37,6 +38,7 @@ object srvLogin: TsrvLogin item Name = 'ID_EMPRESA' DataType = datInteger + InPrimaryKey = True end> end item @@ -44,7 +46,7 @@ object srvLogin: TsrvLogin item Name = 'ID_USUARIO' DataType = datInteger - Value = '' + Value = '1' ParamType = daptInput end> Statements = < @@ -86,6 +88,7 @@ object srvLogin: TsrvLogin Statements = < item Connection = 'IBX' + TargetTable = 'USUARIOS' SQL = 'SELECT'#10' ID'#10' FROM'#10' USUARIOS'#10' WHERE USUARIO = :USUARIO AND' + #10' PASS = :PASS AND'#10' ACTIVO = 1' @@ -101,6 +104,7 @@ object srvLogin: TsrvLogin item Name = 'ID' DataType = datInteger + InPrimaryKey = True end> end> JoinDataTables = <> @@ -138,7 +142,7 @@ object srvLogin: TsrvLogin Left = 40 Top = 24 end - object DABinDataStreamer: TDABinDataStreamer + object Bin2DataStreamer: TDABin2DataStreamer Left = 40 Top = 88 end diff --git a/Source/Servicios/srvLogin_Impl.pas b/Source/Servicios/srvLogin_Impl.pas index 529b192b..a73d90f9 100644 --- a/Source/Servicios/srvLogin_Impl.pas +++ b/Source/Servicios/srvLogin_Impl.pas @@ -16,7 +16,7 @@ uses {Ancestor Implementation:} DataAbstractService_Impl, {Used RODLs:} DataAbstract4_Intf, {Generated:} FactuGES_Intf, uDAClasses, uDAInterfaces, uDAEngine, - uDADataTable, uDABINAdapter, uROClient, uDADataStreamer; + uDADataTable, uDABINAdapter, uROClient, uDADataStreamer, uDABin2DataStreamer; const PERFIL_ADMINISTRADORES = 'Administradores'; @@ -24,8 +24,8 @@ const type { TsrvLogin } TsrvLogin = class(TDataAbstractService, IsrvLogin) + Bin2DataStreamer: TDABin2DataStreamer; schLogin: TDASchema; - DABinDataStreamer: TDABinDataStreamer; procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); procedure DataAbstractServiceCreate(Sender: TObject); @@ -39,6 +39,7 @@ type implementation {$R *.dfm} + uses {Generated:} FactuGES_Invk, uDataModuleServer, Dialogs, IB, Variants, uSesionesUtils; diff --git a/Source/Servidor/Configuracion/uConexionOSC.dfm b/Source/Servidor/Configuracion/uConexionOSC.dfm deleted file mode 100644 index 2bf4f318..00000000 --- a/Source/Servidor/Configuracion/uConexionOSC.dfm +++ /dev/null @@ -1,55 +0,0 @@ -inherited frConexionOSC: TfrConexionOSC - object GroupBox1: TGroupBox - Left = 8 - Top = 8 - Width = 333 - Height = 169 - Caption = 'Configuraci'#243'n de la tienda' - TabOrder = 0 - object Label1: TLabel - Left = 31 - Top = 36 - Width = 67 - Height = 13 - Alignment = taRightJustify - Caption = 'Origen ODBC:' - end - object edtBDSERVER: TcxTextEdit - Left = 104 - Top = 32 - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 0 - Text = 'edtBDSERVER' - Width = 209 - end - end - object bComprobar: TButton - Left = 180 - Top = 191 - Width = 161 - Height = 25 - Action = actComprobar - TabOrder = 1 - end - object ActionList1: TActionList - Left = 24 - Top = 24 - object actAceptar: TAction - Caption = '&Aceptar' - end - object actCancelar: TAction - Caption = '&Cancelar' - end - object actComprobar: TAction - Caption = 'Comprobar la conexi'#243'n' - OnExecute = actComprobarExecute - end - end -end diff --git a/Source/Servidor/Configuracion/uConexionOSC.pas b/Source/Servidor/Configuracion/uConexionOSC.pas deleted file mode 100644 index c1d38fe4..00000000 --- a/Source/Servidor/Configuracion/uConexionOSC.pas +++ /dev/null @@ -1,61 +0,0 @@ -unit uConexionOSC; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, uFrameConfiguracion, ActnList, StdCtrls, cxControls, cxContainer, - cxEdit, cxTextEdit, cxDBEdit, DB; - -type - TfrConexionOSC = class(TFrameConfiguracion) - GroupBox1: TGroupBox; - Label1: TLabel; - bComprobar: TButton; - ActionList1: TActionList; - actAceptar: TAction; - actCancelar: TAction; - actComprobar: TAction; - edtBDSERVER: TcxTextEdit; - procedure actComprobarExecute(Sender: TObject); - protected - procedure Finalize; override; - public - procedure Init; override; - end; - -var - frConexionOSC: TfrConexionOSC; - -implementation - -uses -// uTiendaWebUtils, - uDataModuleServer; - -{$R *.dfm} - -procedure TfrConexionOSC.actComprobarExecute(Sender: TObject); -var - AErrorMsg : String; -begin -{ - if HayConexionConTienda(edtBDSERVER.Text, AErrorMsg) then - ShowMessage('Conexión válida con la tienda') - else - ShowMessage('No se ha podido establecer la conexión con la tienda web.' + - #10#13 + #10#13 + AErrorMsg); -} -end; - -procedure TfrConexionOSC.Finalize; -begin - dmServer.FOSCServer := edtBDSERVER.Text; -end; - -procedure TfrConexionOSC.Init; -begin - edtBDSERVER.Text := dmServer.FOSCServer; -end; - -end. diff --git a/Source/Servidor/Configuracion/uConfiguracion.dfm b/Source/Servidor/Configuracion/uConfiguracion.dfm index 3a36bc11..9120b1bd 100644 --- a/Source/Servidor/Configuracion/uConfiguracion.dfm +++ b/Source/Servidor/Configuracion/uConfiguracion.dfm @@ -40,7 +40,7 @@ object fConfiguracion: TfConfiguracion Top = 8 Width = 399 Height = 289 - ActivePage = TabSheet1 + ActivePage = pagGeneral Images = PngImageList1 TabOrder = 2 OnChange = PageControl1Change @@ -76,39 +76,6 @@ object fConfiguracion: TfConfiguracion ExplicitHeight = 260 end end - object TabSheet1: TTabSheet - Caption = 'Tienda web' - ImageIndex = 2 - inline frConexionOSC1: TfrConexionOSC - Left = 0 - Top = 0 - Width = 391 - Height = 260 - Align = alClient - TabOrder = 0 - ExplicitWidth = 349 - ExplicitHeight = 233 - inherited GroupBox1: TGroupBox - Width = 373 - ExplicitWidth = 373 - end - inherited bComprobar: TButton - Left = 220 - ExplicitLeft = 220 - end - inherited ActionList1: TActionList - inherited actAceptar: TAction - OnExecute = nil - end - inherited actCancelar: TAction - OnExecute = nil - end - inherited actComprobar: TAction - OnUpdate = nil - end - end - end - end end object ActionList1: TActionList Left = 8 diff --git a/Source/Servidor/Configuracion/uConfiguracion.pas b/Source/Servidor/Configuracion/uConfiguracion.pas index 79b929d7..9bbbf59e 100644 --- a/Source/Servidor/Configuracion/uConfiguracion.pas +++ b/Source/Servidor/Configuracion/uConfiguracion.pas @@ -8,7 +8,7 @@ uses JvAppStorage, JvAppRegistryStorage, Contnrs, ExtCtrls, ImgList, PngImageList, JvExControls, JvGradientHeaderPanel, uFrameConfiguracion, JvComponentBase, JvPageList, JvExComCtrls, JvPageListTreeView, - uConexionBD, uConfGeneral, uConexionOSC; + uConexionBD, uConfGeneral; type TfConfiguracion = class(TForm) @@ -24,8 +24,6 @@ type pagGeneral: TTabSheet; pagBD: TTabSheet; frConexionBD1: TfrConexionBD; - TabSheet1: TTabSheet; - frConexionOSC1: TfrConexionOSC; procedure actAceptarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject); procedure FormShow(Sender: TObject); @@ -95,7 +93,6 @@ begin case PageControl1.ActivePageIndex of 0 : FPaginaActual := frConfGeneral1; 1 : FPaginaActual := frConexionBD1; - 2 : FPaginaActual := frConexionOSC1; end; if Assigned(FPaginaActual) then diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 841b3098..0115a095 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 3d616113..b08d6ac2 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -40,10 +40,10 @@ uses schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schFormasPagoClient_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas', - uConexionOSC in 'Configuracion\uConexionOSC.pas' {frConexionOSC: TFrame}, uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', - schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; + schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', + RegExpr in 'Utiles\RegExpr.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index cf6d525c..aaded3e9 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,144 +1,129 @@ - - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Relase\Servidor - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - RELEASE - .\ - .\ - .\ - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - ..\Lib;..\Base - DEBUG - .\ - .\ - .\ - - - Delphi.Personality - - -FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.0martes, 28 de agosto de 2007 17:06 - - - - - - - - - - - - - - - CodeGear WebSnap Components - CodeGear SOAP Components - Microsoft Office XP Sample Automation Server Wrapper Components - Microsoft Office 2000 Sample Automation Server Wrapper Components - CodeGear C++Builder Office 2000 Servers Package - CodeGear C++Builder Office XP Servers Package - FactuGES_Server.dpr - - - - - MainSource - - - - - - - - -
srvContactos
- - - - - - - -
srvFamilias
- - - - -
srvFormasPago
- - - - -
srvTiposIVA
- - - - -
srvConfiguracion
- - - -
frConexionBD
- - -
frConexionOSC
- - -
frConfGeneral
- - -
fConfiguracion
- - -
FrameConfiguracion
- - -
fAcercaDe
- - -
dmServer
- - -
fServerForm
- - - - - - - - - - + + + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Relase\Servidor + ..\Lib;..\Base + ..\Lib;..\Base + ..\Lib;..\Base + ..\Lib;..\Base + RELEASE + .\ + .\ + .\ + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + ..\Lib;..\Base + ..\Lib;..\Base + ..\Lib;..\Base + ..\Lib;..\Base + DEBUG; + .\ + .\ + .\ + + + Delphi.Personality + + + FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0lunes, 17 de septiembre de 2007 12:28 + CodeGear WebSnap Components + CodeGear SOAP Components + Microsoft Office XP Sample Automation Server Wrapper Components + Microsoft Office 2000 Sample Automation Server Wrapper Components + CodeGear C++Builder Office 2000 Servers Package + CodeGear C++Builder Office XP Servers Package + FactuGES_Server.dpr + + + + + MainSource + + + + + + + + +
srvContactos
+ + + + + + + +
srvFamilias
+ + + + +
srvFormasPago
+ + + + +
srvTiposIVA
+ + + + +
srvConfiguracion
+ + + +
frConexionBD
+ + +
frConfGeneral
+ + +
fConfiguracion
+ + +
FrameConfiguracion
+ + +
fAcercaDe
+ + +
dmServer
+ + +
fServerForm
+ + + + + + + + + + + diff --git a/Source/Servidor/FactuGES_Server.drc b/Source/Servidor/FactuGES_Server.drc index 53803e4a..accb1d55 100644 --- a/Source/Servidor/FactuGES_Server.drc +++ b/Source/Servidor/FactuGES_Server.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -8,846 +8,791 @@ resources were bound to the produced executable. */ -#define cxEditConsts_scxRegExprNotCompiled 64432 -#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64433 -#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64434 -#define cxEditConsts_scxMaskEditRegExprError 64435 -#define cxEditConsts_scxMaskEditInvalidEditValue 64436 -#define cxEditConsts_cxSSpinEditInvalidNumericValue 64437 -#define cxEditConsts_scxRegExprEmptySourceStream 64448 -#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64449 -#define cxEditConsts_scxRegExprCantUseStarQuantifier 64450 -#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64451 -#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64452 -#define cxEditConsts_scxRegExprIllegalSymbol 64453 -#define cxEditConsts_scxRegExprIllegalQuantifier 64454 -#define cxEditConsts_scxRegExprIllegalIntegerValue 64455 -#define cxEditConsts_scxRegExprTooBigReferenceNumber 64456 -#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64457 -#define cxEditConsts_scxRegExprSubrangeOrder 64458 -#define cxEditConsts_scxRegExprHexNumberExpected0 64459 -#define cxEditConsts_scxRegExprHexNumberExpected 64460 -#define cxEditConsts_scxRegExprMissing 64461 -#define cxEditConsts_scxRegExprUnnecessary 64462 -#define cxEditConsts_scxRegExprIncorrectSpace 64463 -#define cxEditConsts_scxSEditRepositoryCurrencyItem 64464 -#define cxEditConsts_scxSEditRepositoryDateItem 64465 -#define cxEditConsts_scxSEditRepositoryHyperLinkItem 64466 -#define cxEditConsts_scxSEditRepositoryImageComboBoxItem 64467 -#define cxEditConsts_scxSEditRepositoryImageItem 64468 -#define cxEditConsts_scxSEditRepositoryMaskItem 64469 -#define cxEditConsts_scxSEditRepositoryMemoItem 64470 -#define cxEditConsts_scxSEditRepositoryMRUItem 64471 -#define cxEditConsts_scxSEditRepositoryPopupItem 64472 -#define cxEditConsts_scxSEditRepositorySpinItem 64473 -#define cxEditConsts_scxSEditRepositoryRadioGroupItem 64474 -#define cxEditConsts_scxSEditRepositoryTextItem 64475 -#define cxEditConsts_scxSEditRepositoryTimeItem 64476 -#define cxEditConsts_scxRegExprLine 64477 -#define cxEditConsts_scxRegExprChar 64478 -#define cxEditConsts_scxRegExprNotAssignedSourceStream 64479 -#define cxEditConsts_cxSDateSecond 64480 -#define cxEditConsts_cxSDateThird 64481 -#define cxEditConsts_cxSDateFourth 64482 -#define cxEditConsts_cxSDateFifth 64483 -#define cxEditConsts_cxSDateSixth 64484 -#define cxEditConsts_cxSDateSeventh 64485 -#define cxEditConsts_cxSDateBOM 64486 -#define cxEditConsts_cxSDateEOM 64487 -#define cxEditConsts_cxSDateNow 64488 -#define cxEditConsts_scxSCalcError 64489 -#define cxEditConsts_scxSHyperLinkPrefix 64490 -#define cxEditConsts_scxSEditRepositoryBlobItem 64491 -#define cxEditConsts_scxSEditRepositoryButtonItem 64492 -#define cxEditConsts_scxSEditRepositoryCalcItem 64493 -#define cxEditConsts_scxSEditRepositoryCheckBoxItem 64494 -#define cxEditConsts_scxSEditRepositoryComboBoxItem 64495 -#define cxEditConsts_cxSDatePopupClear 64496 -#define cxEditConsts_cxSDatePopupNow 64497 -#define cxEditConsts_cxSDatePopupOK 64498 -#define cxEditConsts_cxSDatePopupToday 64499 -#define cxEditConsts_cxSDateError 64500 -#define cxEditConsts_cxSDateToday 64501 -#define cxEditConsts_cxSDateYesterday 64502 -#define cxEditConsts_cxSDateTomorrow 64503 -#define cxEditConsts_cxSDateSunday 64504 -#define cxEditConsts_cxSDateMonday 64505 -#define cxEditConsts_cxSDateTuesday 64506 -#define cxEditConsts_cxSDateWednesday 64507 -#define cxEditConsts_cxSDateThursday 64508 -#define cxEditConsts_cxSDateFriday 64509 -#define cxEditConsts_cxSDateSaturday 64510 -#define cxEditConsts_cxSDateFirst 64511 -#define cxEditConsts_cxSEditCheckBoxGrayed 64512 -#define cxEditConsts_cxSEditCheckBoxUnchecked 64513 -#define cxEditConsts_cxSRadioGroupDefaultCaption 64514 -#define cxEditConsts_cxSBlobButtonOK 64515 -#define cxEditConsts_cxSBlobButtonCancel 64516 -#define cxEditConsts_cxSBlobButtonClose 64517 -#define cxEditConsts_cxSBlobMemo 64518 -#define cxEditConsts_cxSBlobMemoEmpty 64519 -#define cxEditConsts_cxSBlobPicture 64520 -#define cxEditConsts_cxSBlobPictureEmpty 64521 -#define cxEditConsts_cxSMenuItemCaptionCut 64522 -#define cxEditConsts_cxSMenuItemCaptionCopy 64523 -#define cxEditConsts_cxSMenuItemCaptionPaste 64524 -#define cxEditConsts_cxSMenuItemCaptionDelete 64525 -#define cxEditConsts_cxSMenuItemCaptionLoad 64526 -#define cxEditConsts_cxSMenuItemCaptionSave 64527 -#define pnglang_EPNGNoImageDataText 64528 -#define pnglang_EPNGCannotChangeSizeText 64529 -#define pnglang_EPNGCannotAddChunkText 64530 -#define pnglang_EPNGCannotAddInvalidImageText 64531 -#define pnglang_EPNGOutMemoryText 64532 -#define pnglang_EPNGHeaderNotPresentText 64533 -#define cxDataConsts_cxSDataReadError 64534 -#define cxDataConsts_cxSDataWriteError 64535 -#define cxEditConsts_cxSEditDateConvertError 64536 -#define cxEditConsts_cxSEditInvalidRepositoryItem 64537 -#define cxEditConsts_cxSEditNumericValueConvertError 64538 -#define cxEditConsts_cxSEditPopupCircularReferencingError 64539 -#define cxEditConsts_cxSEditTimeConvertError 64540 -#define cxEditConsts_cxSEditValidateErrorText 64541 -#define cxEditConsts_cxSEditValueOutOfBounds 64542 -#define cxEditConsts_cxSEditCheckBoxChecked 64543 -#define ADOConst_sNameAttr 64544 -#define ADOConst_sValueAttr 64545 -#define pnglang_EPngInvalidCRCText 64546 -#define pnglang_EPNGInvalidIHDRText 64547 -#define pnglang_EPNGMissingMultipleIDATText 64548 -#define pnglang_EPNGZLIBErrorText 64549 -#define pnglang_EPNGInvalidPaletteText 64550 -#define pnglang_EPNGInvalidFileHeaderText 64551 -#define pnglang_EPNGIHDRNotFirstText 64552 -#define pnglang_EPNGSizeExceedsText 64553 -#define pnglang_EPNGUnknownPalEntryText 64554 -#define pnglang_EPNGUnknownCriticalChunkText 64555 -#define pnglang_EPNGUnknownCompressionText 64556 -#define pnglang_EPNGUnknownInterlaceText 64557 -#define pnglang_EPNGCannotAssignChunkText 64558 -#define pnglang_EPNGUnexpectedEndText 64559 -#define IBSQLMonitor_StrRollback 64560 -#define IBSQLMonitor_StrRollbackRetainin 64561 -#define IBSQLMonitor_StrStartTransaction 64562 -#define IBSQLMonitor_StrApplication 64563 -#define ADOConst_SMissingConnection 64564 -#define ADOConst_SNoDetailFilter 64565 -#define ADOConst_SBookmarksRequired 64566 -#define ADOConst_SMissingCommandText 64567 -#define ADOConst_SNoResultSet 64568 -#define ADOConst_SADOCreateError 64569 -#define ADOConst_SEventsNotSupported 64570 -#define ADOConst_SUsupportedFieldType 64571 -#define ADOConst_SConnectionRequired 64572 -#define ADOConst_SCantRequery 64573 -#define ADOConst_SNoFilterOptions 64574 -#define ADOConst_SRecordsetNotOpen 64575 -#define IBSQLMonitor_StrDisconnect 64576 -#define IBSQLMonitor_StrMisc 64577 -#define IBSQLMonitor_StrError 64578 -#define IBSQLMonitor_StrAttach 64579 -#define IBSQLMonitor_StrDetach 64580 -#define IBSQLMonitor_StrQuery 64581 -#define IBSQLMonitor_StrStart 64582 -#define IBSQLMonitor_StrExecute 64583 -#define IBSQLMonitor_StrNULL 64584 -#define IBSQLMonitor_StrBLOB 64585 -#define IBSQLMonitor_StrFetch 64586 -#define IBSQLMonitor_StrPrepare 64587 -#define IBSQLMonitor_StrPlan 64588 -#define IBSQLMonitor_StrPlanCantRetrive 64589 -#define IBSQLMonitor_StrCommitHardComm 64590 -#define IBSQLMonitor_StrCommitRetaining 64591 -#define IBXConst_SOptionNeedsServer 64592 -#define IBXConst_SInvalidOption 64593 -#define IBXConst_SInvalidOnErrorResult 64594 -#define IBXConst_SInvalidOnStatusResult 64595 -#define IBXConst_SDPBConstantUnknownEx 64596 -#define IBXConst_STPBConstantUnknownEx 64597 -#define IBXConst_SUnknownPlan 64598 -#define IBXConst_SFieldSizeMismatch 64599 -#define IBXConst_SEventAlreadyRegistered 64600 -#define IBXConst_SStringTooLarge 64601 -#define IBXConst_SNoTimers 64602 -#define IBXConst_SIB65feature 64603 -#define IBXConst_SLoginPromptFailure 64604 -#define IBXConst_SIB70feature 64605 -#define IBXConst_SIB71feature 64606 -#define IBSQLMonitor_StrConnect 64607 -#define IBXConst_SStartParamsError 64608 -#define IBXConst_SOutputParsingError 64609 -#define IBXConst_SUseSpecificProcedures 64610 -#define IBXConst_SSQLMonitorAlreadyPresent 64611 -#define IBXConst_SCantPrintValue 64612 -#define IBXConst_SEOFReached 64613 -#define IBXConst_SEOFInComment 64614 -#define IBXConst_SEOFInString 64615 -#define IBXConst_SParamNameExpected 64616 -#define IBXConst_SSuccess 64617 -#define IBXConst_SDelphiException 64618 -#define IBXConst_SNoOptionsSet 64619 -#define IBXConst_SNoDestinationDirectory 64620 -#define IBXConst_SNosourceDirectory 64621 -#define IBXConst_SNoUninstallFile 64622 -#define IBXConst_SOptionNeedsClient 64623 -#define IBXConst_STableNameMismatch 64624 -#define IBXConst_SIndexFieldMissing 64625 -#define IBXConst_SInvalidCancellation 64626 -#define IBXConst_SInvalidEvent 64627 -#define IBXConst_SMaximumEvents 64628 -#define IBXConst_SNoEventsRegistered 64629 -#define IBXConst_SInvalidQueueing 64630 -#define IBXConst_SInvalidRegistration 64631 -#define IBXConst_SInvalidBatchMove 64632 -#define IBXConst_SSQLDialectInvalid 64633 -#define IBXConst_SSPBConstantNotSupported 64634 -#define IBXConst_SSPBConstantUnknown 64635 -#define IBXConst_SServiceActive 64636 -#define IBXConst_SServiceInActive 64637 -#define IBXConst_SServerNameMissing 64638 -#define IBXConst_SQueryParamsError 64639 -#define IBXConst_SCantEndSharedTransaction 64640 -#define IBXConst_SFieldUnsupportedType 64641 -#define IBXConst_SCircularDataLink 64642 -#define IBXConst_SEmptySQLStatement 64643 -#define IBXConst_SIsASelectStatement 64644 -#define IBXConst_SRequiredParamNotSet 64645 -#define IBXConst_SNoStoredProcName 64646 -#define IBXConst_SIsAExecuteProcedure 64647 -#define IBXConst_SUpdateFailed 64648 -#define IBXConst_SNotCachedUpdates 64649 -#define IBXConst_SNotLiveRequest 64650 -#define IBXConst_SNoProvider 64651 -#define IBXConst_SNoRecordsAffected 64652 -#define IBXConst_SNoTableName 64653 -#define IBXConst_SCannotCreatePrimaryIndex 64654 -#define IBXConst_SCannotDropSystemIndex 64655 -#define IBXConst_SFieldNotFound 64656 -#define IBXConst_SNotEditing 64657 -#define IBXConst_SCannotInsert 64658 -#define IBXConst_SCannotPost 64659 -#define IBXConst_SCannotUpdate 64660 -#define IBXConst_SCannotDelete 64661 -#define IBXConst_SCannotRefresh 64662 -#define IBXConst_SBufferNotSet 64663 -#define IBXConst_SCircularReference 64664 -#define IBXConst_SSQLParseError 64665 -#define IBXConst_SUserAbort 64666 -#define IBXConst_SDataSetUniDirectional 64667 -#define IBXConst_SCannotCreateSharedResource 64668 -#define IBXConst_SWindowsAPIError 64669 -#define IBXConst_SColumnListsDontMatch 64670 -#define IBXConst_SColumnTypesDontMatch 64671 -#define IBXConst_SInvalidStatementHandle 64672 -#define IBXConst_SSQLOpen 64673 -#define IBXConst_SSQLClosed 64674 -#define IBXConst_SDatasetOpen 64675 -#define IBXConst_SDatasetClosed 64676 -#define IBXConst_SUnknownSQLDataType 64677 -#define IBXConst_SInvalidColumnIndex 64678 -#define IBXConst_SInvalidParamColumnIndex 64679 -#define IBXConst_SInvalidDataConversion 64680 -#define IBXConst_SColumnIsNotNullable 64681 -#define IBXConst_SBlobCannotBeRead 64682 -#define IBXConst_SBlobCannotBeWritten 64683 -#define IBXConst_SEmptyQuery 64684 -#define IBXConst_SCannotOpenNonSQLSelect 64685 -#define IBXConst_SNoFieldAccess 64686 -#define IBXConst_SFieldReadOnly 64687 -#define IBXConst_STPBConstantUnknown 64688 -#define IBXConst_SDatabaseClosed 64689 -#define IBXConst_SDatabaseOpen 64690 -#define IBXConst_SDatabaseNameMissing 64691 -#define IBXConst_SNotInTransaction 64692 -#define IBXConst_SInTransaction 64693 -#define IBXConst_STimeoutNegative 64694 -#define IBXConst_SNoDatabasesInTransaction 64695 -#define IBXConst_SUpdateWrongDB 64696 -#define IBXConst_SUpdateWrongTR 64697 -#define IBXConst_SDatabaseNotAssigned 64698 -#define IBXConst_STransactionNotAssigned 64699 -#define IBXConst_SXSQLDAIndexOutOfRange 64700 -#define IBXConst_SXSQLDANameDoesNotExist 64701 -#define IBXConst_SEOF 64702 -#define IBXConst_SBOF 64703 -#define VDBConsts_SRefreshRecord 64704 -#define VDBConsts_SRemoteLogin 64705 -#define IBXConst_SUnknownError 64706 -#define IBXConst_SInterBaseMissing 64707 -#define IBXConst_SInterBaseInstallMissing 64708 -#define IBXConst_SIB60feature 64709 -#define IBXConst_SNotSupported 64710 -#define IBXConst_SNotPermitted 64711 -#define IBXConst_SFileAccessError 64712 -#define IBXConst_SConnectionTimeout 64713 -#define IBXConst_SCannotSetDatabase 64714 -#define IBXConst_SCannotSetTransaction 64715 -#define IBXConst_SOperationCancelled 64716 -#define IBXConst_SDPBConstantNotSupported 64717 -#define IBXConst_SDPBConstantUnknown 64718 -#define IBXConst_STPBConstantNotSupported 64719 -#define uDARes_err_DARDMConnectionIsNotAssigned 64720 -#define uDARes_err_DARDMCannotFindProxessorForDelta 64721 -#define uDARes_err_NeedShareMem 64722 -#define uDARes_err_ExecuteSQLCommandNotAllowed 64723 -#define uDARes_err_DatasetNotAccessible 64724 -#define uDARes_err_CommandNotAccessible 64725 -#define uDARes_err_SQLNotPermitted 64726 -#define VDBConsts_SFirstRecord 64727 -#define VDBConsts_SPriorRecord 64728 -#define VDBConsts_SNextRecord 64729 -#define VDBConsts_SLastRecord 64730 -#define VDBConsts_SInsertRecord 64731 -#define VDBConsts_SDeleteRecord 64732 -#define VDBConsts_SEditRecord 64733 -#define VDBConsts_SPostEdit 64734 -#define VDBConsts_SCancelEdit 64735 -#define uDARes_err_CannotFindItem 64736 -#define uDARes_err_DriverAlreadyLoaded 64737 -#define uDARes_err_InvalidDLL 64738 -#define uDARes_err_UnknownDriver 64739 -#define uDARes_err_FieldIsNotBound 64740 -#define uDARes_err_CannotFindField 64741 -#define uDARes_err_LoadPackageFailed 64742 -#define uDARes_err_InvalidDriverReference 64743 -#define uDARes_err_CannotFindStatement 64744 -#define uDARes_err_CannotFindDefaultItem 64745 -#define uDARes_err_PoolIsNotEmpty 64746 -#define uDARes_err_MaxPoolSizeReached 64747 -#define uDARes_err_LAMEDataset 64748 -#define uDARes_err_HETConnectionNotSupportedInV3 64749 -#define uDARes_err_DARDMInvalidSchema 64750 -#define uDARes_err_DARDMUnassignedAdapter 64751 -#define JvResources_RsCl3DDkShadow 64752 -#define JvResources_RsCl3DLight 64753 -#define JvResources_RsClInfoText 64754 -#define JvResources_RsClInfoBk 64755 -#define JvResources_RsGradientActiveCaption 64756 -#define JvResources_RsGradientInactiveCaption 64757 -#define JvResources_RsHotLight 64758 -#define JvResources_RsMenuBar 64759 -#define JvResources_RsMenuHighlight 64760 -#define uDARes_err_ChangeLogAlreadyStarted 64761 -#define uDARes_err_NotAttachedToDataTable 64762 -#define uDARes_err_DriverProcAlreadyRegistered 64763 -#define uDARes_err_DriverManagerAlreadyCreated 64764 -#define uDARes_err_DriverManagerNotAssigned 64765 -#define uDARes_err_FieldTypeNotSupported 64766 -#define uDARes_err_InvalidDataset 64767 -#define JvResources_RsClWindow 64768 -#define JvResources_RsClWindowFrame 64769 -#define JvResources_RsClMenuText 64770 -#define JvResources_RsClWindowText 64771 -#define JvResources_RsClCaptionText 64772 -#define JvResources_RsClActiveBorder 64773 -#define JvResources_RsClInactiveBorder 64774 -#define JvResources_RsClAppWorkSpace 64775 -#define JvResources_RsClHighlight 64776 -#define JvResources_RsClHighlightText 64777 -#define JvResources_RsClBtnFace 64778 -#define JvResources_RsClBtnShadow 64779 -#define JvResources_RsClGrayText 64780 -#define JvResources_RsClBtnText 64781 -#define JvResources_RsClInactiveCaptionText 64782 -#define JvResources_RsClBtnHighlight 64783 -#define JvResources_RsClBrightGreen 64784 -#define JvResources_RsClTurquoise 64785 -#define JvResources_RsClPlum 64786 -#define JvResources_RsClGray25 64787 -#define JvResources_RsClRose 64788 -#define JvResources_RsClTan 64789 -#define JvResources_RsClLightYellow 64790 -#define JvResources_RsClLightGreen 64791 -#define JvResources_RsClLightTurquoise 64792 -#define JvResources_RsClPaleBlue 64793 -#define JvResources_RsClLavender 64794 -#define JvResources_RsClScrollBar 64795 -#define JvResources_RsClBackground 64796 -#define JvResources_RsClActiveCaption 64797 -#define JvResources_RsClInactiveCaption 64798 -#define JvResources_RsClMenu 64799 -#define JvResources_RsClDarkTeal 64800 -#define JvResources_RsClDarkBlue 64801 -#define JvResources_RsClIndigo 64802 -#define JvResources_RsClGray80 64803 -#define JvResources_RsClDarkRed 64804 -#define JvResources_RsClOrange 64805 -#define JvResources_RsClDarkYellow 64806 -#define JvResources_RsClBlueGray 64807 -#define JvResources_RsClGray50 64808 -#define JvResources_RsClLightOrange 64809 -#define JvResources_RsClSeaGreen 64810 -#define JvResources_RsClLightBlue 64811 -#define JvResources_RsClViolet 64812 -#define JvResources_RsClGray40 64813 -#define JvResources_RsClPink 64814 -#define JvResources_RsClGold 64815 -#define JvResources_RsClGray 64816 -#define JvResources_RsClSilver 64817 -#define JvResources_RsClRed 64818 -#define JvResources_RsClLime 64819 -#define JvResources_RsClYellow 64820 -#define JvResources_RsClBlue 64821 -#define JvResources_RsClFuchsia 64822 -#define JvResources_RsClAqua 64823 -#define JvResources_RsClWhite 64824 -#define JvResources_RsClMoneyGreen 64825 -#define JvResources_RsClSkyBlue 64826 -#define JvResources_RsClCream 64827 -#define JvResources_RsClMedGray 64828 -#define JvResources_RsClBrown 64829 -#define JvResources_RsClOliveGreen 64830 -#define JvResources_RsClDarkGreen 64831 -#define JvResources_RsENoGIFData 64832 -#define JvResources_RsEUnrecognizedGIFExt 64833 -#define JvResources_RsEWrongGIFColors 64834 -#define JvResources_RsEBadGIFCodeSize 64835 -#define JvResources_RsEGIFDecodeError 64836 -#define JvResources_RsEGIFEncodeError 64837 -#define JvResources_RsEGIFVersion 64838 -#define JvResources_RsEPixelFormatNotImplemented 64839 -#define JvResources_RsEBitCountNotImplemented 64840 -#define JvResources_RsClBlack 64841 -#define JvResources_RsClMaroon 64842 -#define JvResources_RsClGreen 64843 -#define JvResources_RsClOlive 64844 -#define JvResources_RsClNavy 64845 -#define JvResources_RsClPurple 64846 -#define JvResources_RsClTeal 64847 -#define JclResources_RsIntelCacheDescrB3 64848 -#define JclResources_RsIntelCacheDescrB4 64849 -#define JclResources_RsIntelCacheDescrF0 64850 -#define JclResources_RsIntelCacheDescrF1 64851 -#define JvResources_RsAniExtension 64852 -#define JvResources_RsAniFilterName 64853 -#define JvResources_RsRootValueReplaceFmt 64854 -#define JvResources_RsEUnableToCreateKey 64855 -#define JvResources_RsEEnumeratingRegistry 64856 -#define JvResources_RsEInvalidType 64857 -#define JvResources_RsEUnknownBaseType 64858 -#define JvResources_RsEInvalidPath 64859 -#define JvResources_RsENotAUniqueRootPath 64860 -#define JvResources_RsECircularReferenceOfStorages 64861 -#define JvResources_RsGIFImage 64862 -#define JvResources_RsEChangeGIFSize 64863 -#define JclResources_RsIntelCacheDescr71 64864 -#define JclResources_RsIntelCacheDescr72 64865 -#define JclResources_RsIntelCacheDescr78 64866 -#define JclResources_RsIntelCacheDescr79 64867 -#define JclResources_RsIntelCacheDescr7A 64868 -#define JclResources_RsIntelCacheDescr7B 64869 -#define JclResources_RsIntelCacheDescr7C 64870 -#define JclResources_RsIntelCacheDescr7D 64871 -#define JclResources_RsIntelCacheDescr7F 64872 -#define JclResources_RsIntelCacheDescr82 64873 -#define JclResources_RsIntelCacheDescr83 64874 -#define JclResources_RsIntelCacheDescr84 64875 -#define JclResources_RsIntelCacheDescr85 64876 -#define JclResources_RsIntelCacheDescr86 64877 -#define JclResources_RsIntelCacheDescr87 64878 -#define JclResources_RsIntelCacheDescrB0 64879 -#define JclResources_RsIntelCacheDescr46 64880 -#define JclResources_RsIntelCacheDescr47 64881 -#define JclResources_RsIntelCacheDescr49 64882 -#define JclResources_RsIntelCacheDescr50 64883 -#define JclResources_RsIntelCacheDescr51 64884 -#define JclResources_RsIntelCacheDescr52 64885 -#define JclResources_RsIntelCacheDescr56 64886 -#define JclResources_RsIntelCacheDescr57 64887 -#define JclResources_RsIntelCacheDescr5B 64888 -#define JclResources_RsIntelCacheDescr5C 64889 -#define JclResources_RsIntelCacheDescr5D 64890 -#define JclResources_RsIntelCacheDescr60 64891 -#define JclResources_RsIntelCacheDescr66 64892 -#define JclResources_RsIntelCacheDescr67 64893 -#define JclResources_RsIntelCacheDescr68 64894 -#define JclResources_RsIntelCacheDescr70 64895 -#define JclResources_RsIntelCacheDescr08 64896 -#define JclResources_RsIntelCacheDescr0A 64897 -#define JclResources_RsIntelCacheDescr0B 64898 -#define JclResources_RsIntelCacheDescr0C 64899 -#define JclResources_RsIntelCacheDescr22 64900 -#define JclResources_RsIntelCacheDescr23 64901 -#define JclResources_RsIntelCacheDescr25 64902 -#define JclResources_RsIntelCacheDescr29 64903 -#define JclResources_RsIntelCacheDescr2C 64904 -#define JclResources_RsIntelCacheDescr30 64905 -#define JclResources_RsIntelCacheDescr40 64906 -#define JclResources_RsIntelCacheDescr41 64907 -#define JclResources_RsIntelCacheDescr42 64908 -#define JclResources_RsIntelCacheDescr43 64909 -#define JclResources_RsIntelCacheDescr44 64910 -#define JclResources_RsIntelCacheDescr45 64911 -#define JclResources_RsRTTIParamCount 64912 -#define JclResources_RsRTTIReturnType 64913 -#define JclResources_RsRTTIMaxLen 64914 -#define JclResources_RsRTTIElSize 64915 -#define JclResources_RsRTTIElType 64916 -#define JclResources_RsRTTIElNeedCleanup 64917 -#define JclResources_RsRTTIVarType 64918 -#define JclResources_RsDeclarationFormat 64919 -#define JclResources_RsSynchCreateEvent 64920 -#define JclResources_RsIntelCacheDescr00 64921 -#define JclResources_RsIntelCacheDescr01 64922 -#define JclResources_RsIntelCacheDescr02 64923 -#define JclResources_RsIntelCacheDescr03 64924 -#define JclResources_RsIntelCacheDescr04 64925 -#define JclResources_RsIntelCacheDescr05 64926 -#define JclResources_RsIntelCacheDescr06 64927 -#define JclResources_RsRTTIName 64928 -#define JclResources_RsRTTIType 64929 -#define JclResources_RsRTTIFlags 64930 -#define JclResources_RsRTTIGUID 64931 -#define JclResources_RsRTTITypeKind 64932 -#define JclResources_RsRTTIOrdinalType 64933 -#define JclResources_RsRTTIMinValue 64934 -#define JclResources_RsRTTIMaxValue 64935 -#define JclResources_RsRTTINameList 64936 -#define JclResources_RsRTTIClassName 64937 -#define JclResources_RsRTTIParent 64938 -#define JclResources_RsRTTIPropCount 64939 -#define JclResources_RsRTTIUnitName 64940 -#define JclResources_RsRTTIBasedOn 64941 -#define JclResources_RsRTTIFloatType 64942 -#define JclResources_RsRTTIMethodKind 64943 -#define JclResources_RsRTTIConst 64944 -#define JclResources_RsRTTIArrayOf 64945 -#define JclResources_RsRTTIOut 64946 -#define JclResources_RsRTTIOrdinal 64947 -#define JclResources_RsRTTITrue 64948 -#define JclResources_RsRTTIFalse 64949 -#define JclResources_RsRTTITypeError 64950 -#define JclResources_RsRTTITypeInfoAt 64951 -#define JclResources_RsRTTIPropRead 64952 -#define JclResources_RsRTTIPropWrite 64953 -#define JclResources_RsRTTIPropStored 64954 -#define JclResources_RsRTTIField 64955 -#define JclResources_RsRTTIStaticMethod 64956 -#define JclResources_RsRTTIVirtualMethod 64957 -#define JclResources_RsRTTIIndex 64958 -#define JclResources_RsRTTIDefault 64959 -#define JclResources_RsHKCULong 64960 -#define JclResources_RsHKLMLong 64961 -#define JclResources_RsHKUSLong 64962 -#define JclResources_RsHKPDLong 64963 -#define JclResources_RsHKCCLong 64964 -#define JclResources_RsHKDDLong 64965 -#define JclResources_RsHKCRShort 64966 -#define JclResources_RsHKCUShort 64967 -#define JclResources_RsHKLMShort 64968 -#define JclResources_RsHKUSShort 64969 -#define JclResources_RsHKPDShort 64970 -#define JclResources_RsHKCCShort 64971 -#define JclResources_RsHKDDShort 64972 -#define JclResources_RsRTTIValueOutOfRange 64973 -#define JclResources_RsRTTIUnknownIdentifier 64974 -#define JclResources_RsRTTIVar 64975 -#define ComStrs_sPageIndexError 64976 -#define JConsts_sChangeJPGSize 64977 -#define JConsts_sJPEGError 64978 -#define JConsts_sJPEGImageFile 64979 -#define JclResources_RsWin32Prefix 64980 -#define JclResources_RsFileUtilsNoVersionInfo 64981 -#define JclResources_RsCreateFileMapping 64982 -#define JclResources_RsCreateFileMappingView 64983 -#define JclResources_RsViewNeedsMapping 64984 -#define JclResources_RsFailedToObtainSize 64985 -#define JclResources_RsUnableToOpenKeyRead 64986 -#define JclResources_RsUnableToOpenKeyWrite 64987 -#define JclResources_RsUnableToAccessValue 64988 -#define JclResources_RsWrongDataType 64989 -#define JclResources_RsInconsistentPath 64990 -#define JclResources_RsHKCRLong 64991 -#define IdResourceStringsCore_RSBufferMissingTerminator 64992 -#define IdResourceStringsCore_RSBufferInvalidStartPos 64993 -#define IdResourceStringsCore_RSReplyInvalidCode 64994 -#define IdResourceStringsCore_RSThreadSchedulerThreadRequired 64995 -#define IdResourceStringsCore_RSNoOnExecute 64996 -#define IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive 64997 -#define ComStrs_sTabFailClear 64998 -#define ComStrs_sTabFailDelete 64999 -#define ComStrs_sTabFailRetrieve 65000 -#define ComStrs_sTabFailGetObject 65001 -#define ComStrs_sTabFailSet 65002 -#define ComStrs_sTabFailSetObject 65003 -#define ComStrs_sTabMustBeMultiLine 65004 -#define ComStrs_sInvalidIndex 65005 -#define ComStrs_sInsertError 65006 -#define ComStrs_sUDAssociated 65007 -#define IdResourceStringsCore_RSInterceptCircularLink 65008 -#define IdResourceStringsCore_RSNotEnoughDataInBuffer 65009 -#define IdResourceStringsCore_RSTooMuchDataInBuffer 65010 -#define IdResourceStringsCore_RSFileNotFound 65011 -#define IdResourceStringsCore_RSNotConnected 65012 -#define IdResourceStringsCore_RSObjectTypeNotSupported 65013 -#define IdResourceStringsCore_RSIdNoDataToRead 65014 -#define IdResourceStringsCore_RSReadTimeout 65015 -#define IdResourceStringsCore_RSReadLnMaxLineLengthExceeded 65016 -#define IdResourceStringsCore_RSConnectTimeout 65017 -#define IdResourceStringsCore_RSThreadTerminateAndWaitFor 65018 -#define IdResourceStringsCore_RSAlreadyConnected 65019 -#define IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded 65020 -#define IdResourceStringsCore_RSchedMaxThreadEx 65021 -#define IdResourceStringsCore_RSTransparentProxyCannotBind 65022 -#define IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP 65023 -#define IdResourceStringsCore_RSSocksUDPNotSupported 65024 -#define IdResourceStringsCore_RSSocksRequestFailed 65025 -#define IdResourceStringsCore_RSSocksRequestServerFailed 65026 -#define IdResourceStringsCore_RSSocksRequestIdentFailed 65027 -#define IdResourceStringsCore_RSSocksUnknownError 65028 -#define IdResourceStringsCore_RSSocksServerRespondError 65029 -#define IdResourceStringsCore_RSSocksAuthMethodError 65030 -#define IdResourceStringsCore_RSSocksAuthError 65031 -#define IdResourceStringsCore_RSSocksServerGeneralError 65032 -#define IdResourceStringsCore_RSSocksServerPermissionError 65033 -#define IdResourceStringsCore_RSSocksServerNetUnreachableError 65034 -#define IdResourceStringsCore_RSSocksServerHostUnreachableError 65035 -#define IdResourceStringsCore_RSSocksServerConnectionRefusedError 65036 -#define IdResourceStringsCore_RSSocksServerTTLExpiredError 65037 -#define IdResourceStringsCore_RSSocksServerCommandError 65038 -#define IdResourceStringsCore_RSSocksServerAddressError 65039 -#define IdResourceStringsProtocols_RSHTTPPreconditionFailed 65040 -#define IdResourceStringsProtocols_RSHTTPRequestEntityToLong 65041 -#define IdResourceStringsProtocols_RSHTTPRequestURITooLong 65042 -#define IdResourceStringsProtocols_RSHTTPUnsupportedMediaType 65043 -#define IdResourceStringsProtocols_RSHTTPInternalServerError 65044 -#define IdResourceStringsProtocols_RSHTTPNotImplemented 65045 -#define IdResourceStringsProtocols_RSHTTPBadGateway 65046 -#define IdResourceStringsProtocols_RSHTTPServiceUnavailable 65047 -#define IdResourceStringsProtocols_RSHTTPGatewayTimeout 65048 -#define IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported 65049 -#define IdResourceStringsProtocols_RSHTTPUnknownResponseCode 65050 -#define IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten 65051 -#define IdResourceStringsProtocols_RSHTTPErrorParsingCommand 65052 -#define IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme 65053 -#define IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive 65054 -#define IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered 65055 -#define IdResourceStringsProtocols_RSHTTPMovedPermanently 65056 -#define IdResourceStringsProtocols_RSHTTPMovedTemporarily 65057 -#define IdResourceStringsProtocols_RSHTTPSeeOther 65058 -#define IdResourceStringsProtocols_RSHTTPNotModified 65059 -#define IdResourceStringsProtocols_RSHTTPUseProxy 65060 -#define IdResourceStringsProtocols_RSHTTPBadRequest 65061 -#define IdResourceStringsProtocols_RSHTTPUnauthorized 65062 -#define IdResourceStringsProtocols_RSHTTPForbidden 65063 -#define IdResourceStringsProtocols_RSHTTPNotFound 65064 -#define IdResourceStringsProtocols_RSHTTPMethodNotAllowed 65065 -#define IdResourceStringsProtocols_RSHTTPNotAcceptable 65066 -#define IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired 65067 -#define IdResourceStringsProtocols_RSHTTPRequestTimeout 65068 -#define IdResourceStringsProtocols_RSHTTPConflict 65069 -#define IdResourceStringsProtocols_RSHTTPGone 65070 -#define IdResourceStringsProtocols_RSHTTPLengthRequired 65071 -#define IdResourceStrings_RSInvalidIPv6Address 65072 -#define IdResourceStrings_RSIPVersionUnsupported 65073 -#define IdResourceStrings_RSNotAllBytesSent 65074 -#define IdResourceStrings_RSPackageSizeTooBig 65075 -#define IdResourceStrings_RSSetSizeExceeded 65076 -#define IdResourceStringsProtocols_RSMIMEExtensionEmpty 65077 -#define IdResourceStringsProtocols_RSMIMEMIMETypeEmpty 65078 -#define IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists 65079 -#define IdResourceStringsProtocols_RSHTTPContinue 65080 -#define IdResourceStringsProtocols_RSHTTPOK 65081 -#define IdResourceStringsProtocols_RSHTTPCreated 65082 -#define IdResourceStringsProtocols_RSHTTPAccepted 65083 -#define IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation 65084 -#define IdResourceStringsProtocols_RSHTTPNoContent 65085 -#define IdResourceStringsProtocols_RSHTTPResetContent 65086 -#define IdResourceStringsProtocols_RSHTTPPartialContent 65087 -#define IdResourceStrings_RSStackELOOP 65088 -#define IdResourceStrings_RSStackENAMETOOLONG 65089 -#define IdResourceStrings_RSStackEHOSTDOWN 65090 -#define IdResourceStrings_RSStackEHOSTUNREACH 65091 -#define IdResourceStrings_RSStackENOTEMPTY 65092 -#define IdResourceStrings_RSStackHOST_NOT_FOUND 65093 -#define IdResourceStrings_RSStackClassUndefined 65094 -#define IdResourceStrings_RSStackAlreadyCreated 65095 -#define IdResourceStrings_RSAntiFreezeOnlyOne 65096 -#define IdResourceStrings_RSCannotSetIPVersionWhenConnected 65097 -#define IdResourceStrings_RSCannotBindRange 65098 -#define IdResourceStrings_RSConnectionClosedGracefully 65099 -#define IdResourceStrings_RSCouldNotBindSocket 65100 -#define IdResourceStrings_RSInvalidPortRange 65101 -#define IdResourceStrings_RSInvalidServiceName 65102 -#define IdResourceStrings_RSIPv6Unavailable 65103 -#define IdResourceStrings_RSStackEPFNOSUPPORT 65104 -#define IdResourceStrings_RSStackEAFNOSUPPORT 65105 -#define IdResourceStrings_RSStackEADDRINUSE 65106 -#define IdResourceStrings_RSStackEADDRNOTAVAIL 65107 -#define IdResourceStrings_RSStackENETDOWN 65108 -#define IdResourceStrings_RSStackENETUNREACH 65109 -#define IdResourceStrings_RSStackENETRESET 65110 -#define IdResourceStrings_RSStackECONNABORTED 65111 -#define IdResourceStrings_RSStackECONNRESET 65112 -#define IdResourceStrings_RSStackENOBUFS 65113 -#define IdResourceStrings_RSStackEISCONN 65114 -#define IdResourceStrings_RSStackENOTCONN 65115 -#define IdResourceStrings_RSStackESHUTDOWN 65116 -#define IdResourceStrings_RSStackETOOMANYREFS 65117 -#define IdResourceStrings_RSStackETIMEDOUT 65118 -#define IdResourceStrings_RSStackECONNREFUSED 65119 -#define IdResourceStrings_RSStackEBADF 65120 -#define IdResourceStrings_RSStackEACCES 65121 -#define IdResourceStrings_RSStackEFAULT 65122 -#define IdResourceStrings_RSStackEINVAL 65123 -#define IdResourceStrings_RSStackEMFILE 65124 -#define IdResourceStrings_RSStackEWOULDBLOCK 65125 -#define IdResourceStrings_RSStackEINPROGRESS 65126 -#define IdResourceStrings_RSStackEALREADY 65127 -#define IdResourceStrings_RSStackENOTSOCK 65128 -#define IdResourceStrings_RSStackEDESTADDRREQ 65129 -#define IdResourceStrings_RSStackEMSGSIZE 65130 -#define IdResourceStrings_RSStackEPROTOTYPE 65131 -#define IdResourceStrings_RSStackENOPROTOOPT 65132 -#define IdResourceStrings_RSStackEPROTONOSUPPORT 65133 -#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65134 -#define IdResourceStrings_RSStackEOPNOTSUPP 65135 -#define DBConsts_SInvalidBcdValue 65136 -#define DBConsts_SInvalidFormatType 65137 -#define DBConsts_SCouldNotParseTimeStamp 65138 -#define DBConsts_SInvalidSqlTimeStamp 65139 -#define IdResourceStrings_RSFailedTimeZoneInfo 65140 -#define IdResourceStrings_RSWinsockCallError 65141 -#define IdResourceStrings_RSWinsockLoadError 65142 -#define IdResourceStrings_RSWinsockInitializationError 65143 -#define IdResourceStrings_RSStatusResolving 65144 -#define IdResourceStrings_RSStatusConnecting 65145 -#define IdResourceStrings_RSStatusConnected 65146 -#define IdResourceStrings_RSStatusDisconnecting 65147 -#define IdResourceStrings_RSStatusDisconnected 65148 -#define IdResourceStrings_RSStatusText 65149 -#define IdResourceStrings_RSStackError 65150 -#define IdResourceStrings_RSStackEINTR 65151 -#define DBConsts_SNotEditing 65152 -#define DBConsts_SDataSetClosed 65153 -#define DBConsts_SDataSetEmpty 65154 -#define DBConsts_SDataSetReadOnly 65155 -#define DBConsts_SNestedDataSetClass 65156 -#define DBConsts_STextFalse 65157 -#define DBConsts_STextTrue 65158 -#define DBConsts_SParameterNotFound 65159 -#define DBConsts_SInvalidVersion 65160 -#define DBConsts_SBadFieldType 65161 -#define DBConsts_SProviderSQLNotSupported 65162 -#define DBConsts_SProviderExecuteNotSupported 65163 -#define DBConsts_SDataSetUnidirectional 65164 -#define DBConsts_SUnassignedVar 65165 -#define DBConsts_SRecordNotFound 65166 -#define DBConsts_SBcdOverflow 65167 -#define DBConsts_SInvalidBoolValue 65168 -#define DBConsts_SInvalidFloatValue 65169 -#define DBConsts_SFieldTypeMismatch 65170 -#define DBConsts_SFieldSizeMismatch 65171 -#define DBConsts_SInvalidVarByteArray 65172 -#define DBConsts_SFieldOutOfRange 65173 -#define DBConsts_SFieldRequired 65174 -#define DBConsts_SDataSetMissing 65175 -#define DBConsts_SInvalidCalcType 65176 -#define DBConsts_SFieldReadOnly 65177 -#define DBConsts_SNoIndexForFields 65178 -#define DBConsts_SIndexNotFound 65179 -#define DBConsts_SCircularDataLink 65180 -#define DBConsts_SLookupInfoError 65181 -#define DBConsts_SDataSourceChange 65182 -#define DBConsts_SDataSetOpen 65183 -#define uRORes_err_MessageNotAssigned 65184 -#define ComConst_SOleError 65185 -#define ComConst_SNoMethod 65186 -#define ComConst_SVarNotObject 65187 -#define ComConst_STooManyParams 65188 -#define DBConsts_SInvalidFieldSize 65189 -#define DBConsts_SInvalidFieldKind 65190 -#define DBConsts_SUnknownFieldType 65191 -#define DBConsts_SFieldNameMissing 65192 -#define DBConsts_SDuplicateFieldName 65193 -#define DBConsts_SFieldNotFound 65194 -#define DBConsts_SFieldAccessError 65195 -#define DBConsts_SFieldValueError 65196 -#define DBConsts_SFieldRangeError 65197 -#define DBConsts_SBcdFieldRangeError 65198 -#define DBConsts_SInvalidIntegerValue 65199 -#define uRORes_err_InvalidHeader 65200 -#define uRORes_err_InvalidHeaderEncrypted 65201 -#define uRORes_err_UnknownClassInStream 65202 -#define uRORes_err_UnexpectedClassInStream 65203 -#define uRORes_err_SessionNotFound 65204 -#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65205 -#define uRORes_err_TooManySessions 65206 -#define uRORes_err_DOMElementIsNIL 65207 -#define uRORes_err_CannotLoadXMLDocument 65208 -#define uRORes_err_ErrorCreatingMsXmlDoc 65209 -#define uRORes_err_NoXMLParsersAvailable 65210 -#define uRORes_err_IDispatchMarshalingNotSupported 65211 -#define uRORes_err_UnsupportedVariantType 65212 -#define uRORes_err_VariantIsNotArray 65213 -#define uRORes_err_InvalidVarArrayDimCount 65214 -#define uRORes_err_CannotFindParameter 65215 -#define uRORes_err_UnspecifiedInterface 65216 -#define uRORes_err_UnspecifiedMessage 65217 -#define uRORes_err_UnknownMethod 65218 -#define uRORes_err_ClassFactoryDidNotReturnInstance 65219 -#define uRORes_err_TypeNotSupported 65220 -#define uRORes_err_ClassFactoryNotFound 65221 -#define uRORes_err_IROMessageNotSupported 65222 -#define uRORes_err_ClassAlreadyRegistered 65223 -#define uRORes_err_UnknownClass 65224 -#define uRORes_err_UnknownProxyInterface 65225 -#define uRORes_err_DispatcherAlreadyAssigned 65226 -#define uRORes_err_CannotFindMessageDispatcher 65227 -#define uRORes_err_ServerOnlySupportsOneDispatcher 65228 -#define uRORes_err_UnhandledException 65229 -#define uRORes_err_ChannelBusy 65230 -#define uRORes_err_ArrayIndexOutOfBounds 65231 -#define uRORes_str_InvalidClassTypeInStream 65232 -#define uRORes_err_UnexpectedEndOfStream 65233 -#define uRORes_err_RodlDuplicateName 65234 -#define uRORes_err_RodlNoDataTypeSpecified 65235 -#define uRORes_err_RodlNoEnumValues 65236 -#define uRORes_err_RodlNoStructElementsDefined 65237 -#define uRORes_err_RodlNoOperationsDefined 65238 -#define uRORes_err_RodlUsedFileDoesNotExist 65239 -#define uRORes_err_RodlInvalidDataType 65240 -#define uRORes_err_RodlStructCannotBeNested 65241 -#define uRORes_err_RodlInvalidAncestorType 65242 -#define uRORes_str_ExceptionOnServer 65243 -#define uRORes_str_ExceptionReraisedFromServer 65244 -#define uRORes_err_AssignError 65245 -#define uRORes_err_InvalidRequestStream 65246 -#define uRORes_err_NILMessage 65247 -#define uRODECConst_sInvalidFormatString 65248 -#define uRODECConst_sFMT_COPY 65249 -#define uRODECConst_sFMT_HEX 65250 -#define uRODECConst_sFMT_HEXL 65251 -#define uRODECConst_sFMT_MIME64 65252 -#define uRODECConst_sFMT_UU 65253 -#define uRODECConst_sFMT_XX 65254 -#define uRODECConst_sInvalidKeySize 65255 -#define uRODECConst_sNotInitialized 65256 -#define uRORes_err_InvalidIndex 65257 -#define uRORes_err_InvalidType 65258 -#define uRORes_err_InvalidLibrary 65259 -#define uRORes_err_InvalidStream 65260 -#define uRORes_err_InvalidTargetEntity 65261 -#define uRORes_err_InvalidParamFlag 65262 -#define uRORes_err_InvalidStringLength 65263 -#define Consts_SDockZoneHasNoCtl 65264 -#define Consts_SDockZoneVersionConflict 65265 -#define Consts_SMultiSelectRequired 65266 -#define Consts_SSeparator 65267 -#define Consts_SErrorSettingCount 65268 -#define Consts_SListBoxMustBeVirtual 65269 -#define Consts_SANSIEncoding 65270 -#define Consts_SASCIIEncoding 65271 -#define Consts_SUnicodeEncoding 65272 -#define Consts_SBigEndianEncoding 65273 -#define Consts_SUTF8Encoding 65274 -#define Consts_SUTF7Encoding 65275 -#define Consts_SPageControlNotSet 65276 -#define uRODECConst_sProtectionCircular 65277 -#define uRODECConst_sStringFormatExists 65278 -#define uRODECConst_sInvalidStringFormat 65279 -#define Consts_SOutOfRange 65280 -#define Consts_sAllFilter 65281 +#define cxEditConsts_scxRegExprIllegalQuantifier 64496 +#define cxEditConsts_scxRegExprIllegalIntegerValue 64497 +#define cxEditConsts_scxRegExprTooBigReferenceNumber 64498 +#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64499 +#define cxEditConsts_scxRegExprSubrangeOrder 64500 +#define cxEditConsts_scxRegExprHexNumberExpected0 64501 +#define cxEditConsts_scxRegExprHexNumberExpected 64502 +#define cxEditConsts_scxRegExprMissing 64503 +#define cxEditConsts_scxRegExprUnnecessary 64504 +#define cxEditConsts_scxRegExprIncorrectSpace 64505 +#define cxEditConsts_scxRegExprNotCompiled 64506 +#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64507 +#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64508 +#define cxEditConsts_scxMaskEditRegExprError 64509 +#define cxEditConsts_scxMaskEditInvalidEditValue 64510 +#define cxEditConsts_cxSDateSeventh 64512 +#define cxEditConsts_cxSDateBOM 64513 +#define cxEditConsts_cxSDateEOM 64514 +#define cxEditConsts_cxSDateNow 64515 +#define cxEditConsts_scxSEditRepositoryButtonItem 64516 +#define cxEditConsts_scxSEditRepositoryMaskItem 64517 +#define cxEditConsts_scxSEditRepositoryTextItem 64518 +#define cxEditConsts_scxRegExprLine 64519 +#define cxEditConsts_scxRegExprChar 64520 +#define cxEditConsts_scxRegExprNotAssignedSourceStream 64521 +#define cxEditConsts_scxRegExprEmptySourceStream 64522 +#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64523 +#define cxEditConsts_scxRegExprCantUseStarQuantifier 64524 +#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64525 +#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64526 +#define cxEditConsts_scxRegExprIllegalSymbol 64527 +#define cxEditConsts_cxSDateToday 64528 +#define cxEditConsts_cxSDateYesterday 64529 +#define cxEditConsts_cxSDateTomorrow 64530 +#define cxEditConsts_cxSDateSunday 64531 +#define cxEditConsts_cxSDateMonday 64532 +#define cxEditConsts_cxSDateTuesday 64533 +#define cxEditConsts_cxSDateWednesday 64534 +#define cxEditConsts_cxSDateThursday 64535 +#define cxEditConsts_cxSDateFriday 64536 +#define cxEditConsts_cxSDateSaturday 64537 +#define cxEditConsts_cxSDateFirst 64538 +#define cxEditConsts_cxSDateSecond 64539 +#define cxEditConsts_cxSDateThird 64540 +#define cxEditConsts_cxSDateFourth 64541 +#define cxEditConsts_cxSDateFifth 64542 +#define cxEditConsts_cxSDateSixth 64543 +#define pnglang_EPNGUnknownCompressionText 64544 +#define pnglang_EPNGUnknownInterlaceText 64545 +#define pnglang_EPNGCannotAssignChunkText 64546 +#define pnglang_EPNGUnexpectedEndText 64547 +#define pnglang_EPNGNoImageDataText 64548 +#define pnglang_EPNGCannotChangeSizeText 64549 +#define pnglang_EPNGCannotAddChunkText 64550 +#define pnglang_EPNGCannotAddInvalidImageText 64551 +#define pnglang_EPNGOutMemoryText 64552 +#define pnglang_EPNGHeaderNotPresentText 64553 +#define cxDataConsts_cxSDataReadError 64554 +#define cxDataConsts_cxSDataWriteError 64555 +#define cxEditConsts_cxSEditInvalidRepositoryItem 64556 +#define cxEditConsts_cxSEditNumericValueConvertError 64557 +#define cxEditConsts_cxSEditValidateErrorText 64558 +#define cxEditConsts_cxSEditValueOutOfBounds 64559 +#define ADOConst_SConnectionRequired 64560 +#define ADOConst_SCantRequery 64561 +#define ADOConst_SNoFilterOptions 64562 +#define ADOConst_SRecordsetNotOpen 64563 +#define ADOConst_sNameAttr 64564 +#define ADOConst_sValueAttr 64565 +#define pnglang_EPngInvalidCRCText 64566 +#define pnglang_EPNGInvalidIHDRText 64567 +#define pnglang_EPNGMissingMultipleIDATText 64568 +#define pnglang_EPNGZLIBErrorText 64569 +#define pnglang_EPNGInvalidPaletteText 64570 +#define pnglang_EPNGInvalidFileHeaderText 64571 +#define pnglang_EPNGIHDRNotFirstText 64572 +#define pnglang_EPNGSizeExceedsText 64573 +#define pnglang_EPNGUnknownPalEntryText 64574 +#define pnglang_EPNGUnknownCriticalChunkText 64575 +#define IBSQLMonitor_StrPlan 64576 +#define IBSQLMonitor_StrPlanCantRetrive 64577 +#define IBSQLMonitor_StrCommitHardComm 64578 +#define IBSQLMonitor_StrCommitRetaining 64579 +#define IBSQLMonitor_StrRollback 64580 +#define IBSQLMonitor_StrRollbackRetainin 64581 +#define IBSQLMonitor_StrStartTransaction 64582 +#define IBSQLMonitor_StrApplication 64583 +#define ADOConst_SMissingConnection 64584 +#define ADOConst_SNoDetailFilter 64585 +#define ADOConst_SBookmarksRequired 64586 +#define ADOConst_SMissingCommandText 64587 +#define ADOConst_SNoResultSet 64588 +#define ADOConst_SADOCreateError 64589 +#define ADOConst_SEventsNotSupported 64590 +#define ADOConst_SUsupportedFieldType 64591 +#define IBXConst_SIB70feature 64592 +#define IBXConst_SIB71feature 64593 +#define IBXConst_SIB80feature 64594 +#define IBSQLMonitor_StrConnect 64595 +#define IBSQLMonitor_StrDisconnect 64596 +#define IBSQLMonitor_StrMisc 64597 +#define IBSQLMonitor_StrError 64598 +#define IBSQLMonitor_StrAttach 64599 +#define IBSQLMonitor_StrDetach 64600 +#define IBSQLMonitor_StrQuery 64601 +#define IBSQLMonitor_StrStart 64602 +#define IBSQLMonitor_StrExecute 64603 +#define IBSQLMonitor_StrNULL 64604 +#define IBSQLMonitor_StrBLOB 64605 +#define IBSQLMonitor_StrFetch 64606 +#define IBSQLMonitor_StrPrepare 64607 +#define IBXConst_SNosourceDirectory 64608 +#define IBXConst_SNoUninstallFile 64609 +#define IBXConst_SOptionNeedsClient 64610 +#define IBXConst_SOptionNeedsServer 64611 +#define IBXConst_SInvalidOption 64612 +#define IBXConst_SInvalidOnErrorResult 64613 +#define IBXConst_SInvalidOnStatusResult 64614 +#define IBXConst_SDPBConstantUnknownEx 64615 +#define IBXConst_STPBConstantUnknownEx 64616 +#define IBXConst_SUnknownPlan 64617 +#define IBXConst_SFieldSizeMismatch 64618 +#define IBXConst_SEventAlreadyRegistered 64619 +#define IBXConst_SStringTooLarge 64620 +#define IBXConst_SNoTimers 64621 +#define IBXConst_SIB65feature 64622 +#define IBXConst_SLoginPromptFailure 64623 +#define IBXConst_SServiceInActive 64624 +#define IBXConst_SServerNameMissing 64625 +#define IBXConst_SQueryParamsError 64626 +#define IBXConst_SStartParamsError 64627 +#define IBXConst_SOutputParsingError 64628 +#define IBXConst_SUseSpecificProcedures 64629 +#define IBXConst_SSQLMonitorAlreadyPresent 64630 +#define IBXConst_SCantPrintValue 64631 +#define IBXConst_SEOFReached 64632 +#define IBXConst_SEOFInComment 64633 +#define IBXConst_SEOFInString 64634 +#define IBXConst_SParamNameExpected 64635 +#define IBXConst_SSuccess 64636 +#define IBXConst_SDelphiException 64637 +#define IBXConst_SNoOptionsSet 64638 +#define IBXConst_SNoDestinationDirectory 64639 +#define IBXConst_SNoTableName 64640 +#define IBXConst_SCannotCreatePrimaryIndex 64641 +#define IBXConst_SCannotDropSystemIndex 64642 +#define IBXConst_STableNameMismatch 64643 +#define IBXConst_SIndexFieldMissing 64644 +#define IBXConst_SInvalidCancellation 64645 +#define IBXConst_SInvalidEvent 64646 +#define IBXConst_SMaximumEvents 64647 +#define IBXConst_SNoEventsRegistered 64648 +#define IBXConst_SInvalidQueueing 64649 +#define IBXConst_SInvalidRegistration 64650 +#define IBXConst_SInvalidBatchMove 64651 +#define IBXConst_SSQLDialectInvalid 64652 +#define IBXConst_SSPBConstantNotSupported 64653 +#define IBXConst_SSPBConstantUnknown 64654 +#define IBXConst_SServiceActive 64655 +#define IBXConst_SWindowsAPIError 64656 +#define IBXConst_SColumnListsDontMatch 64657 +#define IBXConst_SColumnTypesDontMatch 64658 +#define IBXConst_SCantEndSharedTransaction 64659 +#define IBXConst_SFieldUnsupportedType 64660 +#define IBXConst_SCircularDataLink 64661 +#define IBXConst_SEmptySQLStatement 64662 +#define IBXConst_SIsASelectStatement 64663 +#define IBXConst_SRequiredParamNotSet 64664 +#define IBXConst_SNoStoredProcName 64665 +#define IBXConst_SIsAExecuteProcedure 64666 +#define IBXConst_SUpdateFailed 64667 +#define IBXConst_SNotCachedUpdates 64668 +#define IBXConst_SNotLiveRequest 64669 +#define IBXConst_SNoProvider 64670 +#define IBXConst_SNoRecordsAffected 64671 +#define IBXConst_SCannotOpenNonSQLSelect 64672 +#define IBXConst_SNoFieldAccess 64673 +#define IBXConst_SFieldReadOnly 64674 +#define IBXConst_SFieldNotFound 64675 +#define IBXConst_SNotEditing 64676 +#define IBXConst_SCannotInsert 64677 +#define IBXConst_SCannotPost 64678 +#define IBXConst_SCannotUpdate 64679 +#define IBXConst_SCannotDelete 64680 +#define IBXConst_SCannotRefresh 64681 +#define IBXConst_SBufferNotSet 64682 +#define IBXConst_SCircularReference 64683 +#define IBXConst_SSQLParseError 64684 +#define IBXConst_SUserAbort 64685 +#define IBXConst_SDataSetUniDirectional 64686 +#define IBXConst_SCannotCreateSharedResource 64687 +#define IBXConst_SXSQLDANameDoesNotExist 64688 +#define IBXConst_SEOF 64689 +#define IBXConst_SBOF 64690 +#define IBXConst_SInvalidStatementHandle 64691 +#define IBXConst_SSQLOpen 64692 +#define IBXConst_SSQLClosed 64693 +#define IBXConst_SDatasetOpen 64694 +#define IBXConst_SDatasetClosed 64695 +#define IBXConst_SUnknownSQLDataType 64696 +#define IBXConst_SInvalidColumnIndex 64697 +#define IBXConst_SInvalidParamColumnIndex 64698 +#define IBXConst_SInvalidDataConversion 64699 +#define IBXConst_SColumnIsNotNullable 64700 +#define IBXConst_SBlobCannotBeRead 64701 +#define IBXConst_SBlobCannotBeWritten 64702 +#define IBXConst_SEmptyQuery 64703 +#define IBXConst_SDPBConstantNotSupported 64704 +#define IBXConst_SDPBConstantUnknown 64705 +#define IBXConst_STPBConstantNotSupported 64706 +#define IBXConst_STPBConstantUnknown 64707 +#define IBXConst_SDatabaseClosed 64708 +#define IBXConst_SDatabaseOpen 64709 +#define IBXConst_SDatabaseNameMissing 64710 +#define IBXConst_SNotInTransaction 64711 +#define IBXConst_SInTransaction 64712 +#define IBXConst_STimeoutNegative 64713 +#define IBXConst_SNoDatabasesInTransaction 64714 +#define IBXConst_SUpdateWrongDB 64715 +#define IBXConst_SUpdateWrongTR 64716 +#define IBXConst_SDatabaseNotAssigned 64717 +#define IBXConst_STransactionNotAssigned 64718 +#define IBXConst_SXSQLDAIndexOutOfRange 64719 +#define uDARes_err_NeedShareMem 64720 +#define uDARes_err_ExecuteSQLCommandNotAllowed 64721 +#define uDARes_err_DatasetNotAccessible 64722 +#define uDARes_err_CommandNotAccessible 64723 +#define uDARes_err_SQLNotPermitted 64724 +#define IBXConst_SUnknownError 64725 +#define IBXConst_SInterBaseMissing 64726 +#define IBXConst_SInterBaseInstallMissing 64727 +#define IBXConst_SIB60feature 64728 +#define IBXConst_SNotSupported 64729 +#define IBXConst_SNotPermitted 64730 +#define IBXConst_SFileAccessError 64731 +#define IBXConst_SConnectionTimeout 64732 +#define IBXConst_SCannotSetDatabase 64733 +#define IBXConst_SCannotSetTransaction 64734 +#define IBXConst_SOperationCancelled 64735 +#define uDARes_err_InvalidDLL 64736 +#define uDARes_err_UnknownDriver 64737 +#define uDARes_err_FieldIsNotBound 64738 +#define uDARes_err_CannotFindField 64739 +#define uDARes_err_LoadPackageFailed 64740 +#define uDARes_err_InvalidDriverReference 64741 +#define uDARes_err_CannotFindStatement 64742 +#define uDARes_err_CannotFindDefaultItem 64743 +#define uDARes_err_PoolIsNotEmpty 64744 +#define uDARes_err_MaxPoolSizeReached 64745 +#define uDARes_err_LAMEDataset 64746 +#define uDARes_err_HETConnectionNotSupportedInV3 64747 +#define uDARes_err_DARDMInvalidSchema 64748 +#define uDARes_err_DARDMUnassignedAdapter 64749 +#define uDARes_err_DARDMConnectionIsNotAssigned 64750 +#define uDARes_err_DARDMCannotFindProxessorForDelta 64751 +#define JvResources_RsClInfoText 64752 +#define JvResources_RsClInfoBk 64753 +#define JvResources_RsGradientActiveCaption 64754 +#define JvResources_RsGradientInactiveCaption 64755 +#define JvResources_RsHotLight 64756 +#define JvResources_RsMenuBar 64757 +#define JvResources_RsMenuHighlight 64758 +#define uDARes_err_ChangeLogAlreadyStarted 64759 +#define uDARes_err_NotAttachedToDataTable 64760 +#define uDARes_err_DriverProcAlreadyRegistered 64761 +#define uDARes_err_DriverManagerAlreadyCreated 64762 +#define uDARes_err_DriverManagerNotAssigned 64763 +#define uDARes_err_FieldTypeNotSupported 64764 +#define uDARes_err_InvalidDataset 64765 +#define uDARes_err_CannotFindItem 64766 +#define uDARes_err_DriverAlreadyLoaded 64767 +#define JvResources_RsClMenuText 64768 +#define JvResources_RsClWindowText 64769 +#define JvResources_RsClCaptionText 64770 +#define JvResources_RsClActiveBorder 64771 +#define JvResources_RsClInactiveBorder 64772 +#define JvResources_RsClAppWorkSpace 64773 +#define JvResources_RsClHighlight 64774 +#define JvResources_RsClHighlightText 64775 +#define JvResources_RsClBtnFace 64776 +#define JvResources_RsClBtnShadow 64777 +#define JvResources_RsClGrayText 64778 +#define JvResources_RsClBtnText 64779 +#define JvResources_RsClInactiveCaptionText 64780 +#define JvResources_RsClBtnHighlight 64781 +#define JvResources_RsCl3DDkShadow 64782 +#define JvResources_RsCl3DLight 64783 +#define JvResources_RsClPlum 64784 +#define JvResources_RsClGray25 64785 +#define JvResources_RsClRose 64786 +#define JvResources_RsClTan 64787 +#define JvResources_RsClLightYellow 64788 +#define JvResources_RsClLightGreen 64789 +#define JvResources_RsClLightTurquoise 64790 +#define JvResources_RsClPaleBlue 64791 +#define JvResources_RsClLavender 64792 +#define JvResources_RsClScrollBar 64793 +#define JvResources_RsClBackground 64794 +#define JvResources_RsClActiveCaption 64795 +#define JvResources_RsClInactiveCaption 64796 +#define JvResources_RsClMenu 64797 +#define JvResources_RsClWindow 64798 +#define JvResources_RsClWindowFrame 64799 +#define JvResources_RsClIndigo 64800 +#define JvResources_RsClGray80 64801 +#define JvResources_RsClDarkRed 64802 +#define JvResources_RsClOrange 64803 +#define JvResources_RsClDarkYellow 64804 +#define JvResources_RsClBlueGray 64805 +#define JvResources_RsClGray50 64806 +#define JvResources_RsClLightOrange 64807 +#define JvResources_RsClSeaGreen 64808 +#define JvResources_RsClLightBlue 64809 +#define JvResources_RsClViolet 64810 +#define JvResources_RsClGray40 64811 +#define JvResources_RsClPink 64812 +#define JvResources_RsClGold 64813 +#define JvResources_RsClBrightGreen 64814 +#define JvResources_RsClTurquoise 64815 +#define JvResources_RsClRed 64816 +#define JvResources_RsClLime 64817 +#define JvResources_RsClYellow 64818 +#define JvResources_RsClBlue 64819 +#define JvResources_RsClFuchsia 64820 +#define JvResources_RsClAqua 64821 +#define JvResources_RsClWhite 64822 +#define JvResources_RsClMoneyGreen 64823 +#define JvResources_RsClSkyBlue 64824 +#define JvResources_RsClCream 64825 +#define JvResources_RsClMedGray 64826 +#define JvResources_RsClBrown 64827 +#define JvResources_RsClOliveGreen 64828 +#define JvResources_RsClDarkGreen 64829 +#define JvResources_RsClDarkTeal 64830 +#define JvResources_RsClDarkBlue 64831 +#define JvResources_RsEWrongGIFColors 64832 +#define JvResources_RsEBadGIFCodeSize 64833 +#define JvResources_RsEGIFDecodeError 64834 +#define JvResources_RsEGIFEncodeError 64835 +#define JvResources_RsEGIFVersion 64836 +#define JvResources_RsEPixelFormatNotImplemented 64837 +#define JvResources_RsEBitCountNotImplemented 64838 +#define JvResources_RsClBlack 64839 +#define JvResources_RsClMaroon 64840 +#define JvResources_RsClGreen 64841 +#define JvResources_RsClOlive 64842 +#define JvResources_RsClNavy 64843 +#define JvResources_RsClPurple 64844 +#define JvResources_RsClTeal 64845 +#define JvResources_RsClGray 64846 +#define JvResources_RsClSilver 64847 +#define JclResources_RsIntelCacheDescrF0 64848 +#define JclResources_RsIntelCacheDescrF1 64849 +#define JvResources_RsAniExtension 64850 +#define JvResources_RsAniFilterName 64851 +#define JvResources_RsRootValueReplaceFmt 64852 +#define JvResources_RsEUnableToCreateKey 64853 +#define JvResources_RsEEnumeratingRegistry 64854 +#define JvResources_RsEInvalidType 64855 +#define JvResources_RsEUnknownBaseType 64856 +#define JvResources_RsEInvalidPath 64857 +#define JvResources_RsENotAUniqueRootPath 64858 +#define JvResources_RsECircularReferenceOfStorages 64859 +#define JvResources_RsGIFImage 64860 +#define JvResources_RsEChangeGIFSize 64861 +#define JvResources_RsENoGIFData 64862 +#define JvResources_RsEUnrecognizedGIFExt 64863 +#define JclResources_RsIntelCacheDescr78 64864 +#define JclResources_RsIntelCacheDescr79 64865 +#define JclResources_RsIntelCacheDescr7A 64866 +#define JclResources_RsIntelCacheDescr7B 64867 +#define JclResources_RsIntelCacheDescr7C 64868 +#define JclResources_RsIntelCacheDescr7D 64869 +#define JclResources_RsIntelCacheDescr7F 64870 +#define JclResources_RsIntelCacheDescr82 64871 +#define JclResources_RsIntelCacheDescr83 64872 +#define JclResources_RsIntelCacheDescr84 64873 +#define JclResources_RsIntelCacheDescr85 64874 +#define JclResources_RsIntelCacheDescr86 64875 +#define JclResources_RsIntelCacheDescr87 64876 +#define JclResources_RsIntelCacheDescrB0 64877 +#define JclResources_RsIntelCacheDescrB3 64878 +#define JclResources_RsIntelCacheDescrB4 64879 +#define JclResources_RsIntelCacheDescr49 64880 +#define JclResources_RsIntelCacheDescr50 64881 +#define JclResources_RsIntelCacheDescr51 64882 +#define JclResources_RsIntelCacheDescr52 64883 +#define JclResources_RsIntelCacheDescr56 64884 +#define JclResources_RsIntelCacheDescr57 64885 +#define JclResources_RsIntelCacheDescr5B 64886 +#define JclResources_RsIntelCacheDescr5C 64887 +#define JclResources_RsIntelCacheDescr5D 64888 +#define JclResources_RsIntelCacheDescr60 64889 +#define JclResources_RsIntelCacheDescr66 64890 +#define JclResources_RsIntelCacheDescr67 64891 +#define JclResources_RsIntelCacheDescr68 64892 +#define JclResources_RsIntelCacheDescr70 64893 +#define JclResources_RsIntelCacheDescr71 64894 +#define JclResources_RsIntelCacheDescr72 64895 +#define JclResources_RsIntelCacheDescr0B 64896 +#define JclResources_RsIntelCacheDescr0C 64897 +#define JclResources_RsIntelCacheDescr22 64898 +#define JclResources_RsIntelCacheDescr23 64899 +#define JclResources_RsIntelCacheDescr25 64900 +#define JclResources_RsIntelCacheDescr29 64901 +#define JclResources_RsIntelCacheDescr2C 64902 +#define JclResources_RsIntelCacheDescr30 64903 +#define JclResources_RsIntelCacheDescr40 64904 +#define JclResources_RsIntelCacheDescr41 64905 +#define JclResources_RsIntelCacheDescr42 64906 +#define JclResources_RsIntelCacheDescr43 64907 +#define JclResources_RsIntelCacheDescr44 64908 +#define JclResources_RsIntelCacheDescr45 64909 +#define JclResources_RsIntelCacheDescr46 64910 +#define JclResources_RsIntelCacheDescr47 64911 +#define JclResources_RsRTTIMaxLen 64912 +#define JclResources_RsRTTIElSize 64913 +#define JclResources_RsRTTIElType 64914 +#define JclResources_RsRTTIElNeedCleanup 64915 +#define JclResources_RsRTTIVarType 64916 +#define JclResources_RsDeclarationFormat 64917 +#define JclResources_RsSynchCreateEvent 64918 +#define JclResources_RsIntelCacheDescr00 64919 +#define JclResources_RsIntelCacheDescr01 64920 +#define JclResources_RsIntelCacheDescr02 64921 +#define JclResources_RsIntelCacheDescr03 64922 +#define JclResources_RsIntelCacheDescr04 64923 +#define JclResources_RsIntelCacheDescr05 64924 +#define JclResources_RsIntelCacheDescr06 64925 +#define JclResources_RsIntelCacheDescr08 64926 +#define JclResources_RsIntelCacheDescr0A 64927 +#define JclResources_RsRTTIFlags 64928 +#define JclResources_RsRTTIGUID 64929 +#define JclResources_RsRTTITypeKind 64930 +#define JclResources_RsRTTIOrdinalType 64931 +#define JclResources_RsRTTIMinValue 64932 +#define JclResources_RsRTTIMaxValue 64933 +#define JclResources_RsRTTINameList 64934 +#define JclResources_RsRTTIClassName 64935 +#define JclResources_RsRTTIParent 64936 +#define JclResources_RsRTTIPropCount 64937 +#define JclResources_RsRTTIUnitName 64938 +#define JclResources_RsRTTIBasedOn 64939 +#define JclResources_RsRTTIFloatType 64940 +#define JclResources_RsRTTIMethodKind 64941 +#define JclResources_RsRTTIParamCount 64942 +#define JclResources_RsRTTIReturnType 64943 +#define JclResources_RsRTTIOut 64944 +#define JclResources_RsRTTIOrdinal 64945 +#define JclResources_RsRTTITrue 64946 +#define JclResources_RsRTTIFalse 64947 +#define JclResources_RsRTTITypeError 64948 +#define JclResources_RsRTTITypeInfoAt 64949 +#define JclResources_RsRTTIPropRead 64950 +#define JclResources_RsRTTIPropWrite 64951 +#define JclResources_RsRTTIPropStored 64952 +#define JclResources_RsRTTIField 64953 +#define JclResources_RsRTTIStaticMethod 64954 +#define JclResources_RsRTTIVirtualMethod 64955 +#define JclResources_RsRTTIIndex 64956 +#define JclResources_RsRTTIDefault 64957 +#define JclResources_RsRTTIName 64958 +#define JclResources_RsRTTIType 64959 +#define JclResources_RsHKUSLong 64960 +#define JclResources_RsHKPDLong 64961 +#define JclResources_RsHKCCLong 64962 +#define JclResources_RsHKDDLong 64963 +#define JclResources_RsHKCRShort 64964 +#define JclResources_RsHKCUShort 64965 +#define JclResources_RsHKLMShort 64966 +#define JclResources_RsHKUSShort 64967 +#define JclResources_RsHKPDShort 64968 +#define JclResources_RsHKCCShort 64969 +#define JclResources_RsHKDDShort 64970 +#define JclResources_RsRTTIValueOutOfRange 64971 +#define JclResources_RsRTTIUnknownIdentifier 64972 +#define JclResources_RsRTTIVar 64973 +#define JclResources_RsRTTIConst 64974 +#define JclResources_RsRTTIArrayOf 64975 +#define JConsts_sJPEGError 64976 +#define JConsts_sJPEGImageFile 64977 +#define JclResources_RsWin32Prefix 64978 +#define JclResources_RsFileUtilsNoVersionInfo 64979 +#define JclResources_RsCreateFileMapping 64980 +#define JclResources_RsCreateFileMappingView 64981 +#define JclResources_RsViewNeedsMapping 64982 +#define JclResources_RsFailedToObtainSize 64983 +#define JclResources_RsUnableToOpenKeyRead 64984 +#define JclResources_RsUnableToOpenKeyWrite 64985 +#define JclResources_RsUnableToAccessValue 64986 +#define JclResources_RsWrongDataType 64987 +#define JclResources_RsInconsistentPath 64988 +#define JclResources_RsHKCRLong 64989 +#define JclResources_RsHKCULong 64990 +#define JclResources_RsHKLMLong 64991 +#define IdResourceStringsProtocols_RSHTTPErrorParsingCommand 64992 +#define IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme 64993 +#define IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive 64994 +#define IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered 64995 +#define ComStrs_sTabFailClear 64996 +#define ComStrs_sTabFailDelete 64997 +#define ComStrs_sTabFailRetrieve 64998 +#define ComStrs_sTabFailGetObject 64999 +#define ComStrs_sTabFailSet 65000 +#define ComStrs_sTabFailSetObject 65001 +#define ComStrs_sTabMustBeMultiLine 65002 +#define ComStrs_sInvalidIndex 65003 +#define ComStrs_sInsertError 65004 +#define ComStrs_sUDAssociated 65005 +#define ComStrs_sPageIndexError 65006 +#define JConsts_sChangeJPGSize 65007 +#define IdResourceStringsProtocols_RSHTTPRequestTimeout 65008 +#define IdResourceStringsProtocols_RSHTTPConflict 65009 +#define IdResourceStringsProtocols_RSHTTPGone 65010 +#define IdResourceStringsProtocols_RSHTTPLengthRequired 65011 +#define IdResourceStringsProtocols_RSHTTPPreconditionFailed 65012 +#define IdResourceStringsProtocols_RSHTTPRequestEntityToLong 65013 +#define IdResourceStringsProtocols_RSHTTPRequestURITooLong 65014 +#define IdResourceStringsProtocols_RSHTTPUnsupportedMediaType 65015 +#define IdResourceStringsProtocols_RSHTTPInternalServerError 65016 +#define IdResourceStringsProtocols_RSHTTPNotImplemented 65017 +#define IdResourceStringsProtocols_RSHTTPBadGateway 65018 +#define IdResourceStringsProtocols_RSHTTPServiceUnavailable 65019 +#define IdResourceStringsProtocols_RSHTTPGatewayTimeout 65020 +#define IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported 65021 +#define IdResourceStringsProtocols_RSHTTPUnknownResponseCode 65022 +#define IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten 65023 +#define IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation 65024 +#define IdResourceStringsProtocols_RSHTTPNoContent 65025 +#define IdResourceStringsProtocols_RSHTTPResetContent 65026 +#define IdResourceStringsProtocols_RSHTTPPartialContent 65027 +#define IdResourceStringsProtocols_RSHTTPMovedPermanently 65028 +#define IdResourceStringsProtocols_RSHTTPMovedTemporarily 65029 +#define IdResourceStringsProtocols_RSHTTPSeeOther 65030 +#define IdResourceStringsProtocols_RSHTTPNotModified 65031 +#define IdResourceStringsProtocols_RSHTTPUseProxy 65032 +#define IdResourceStringsProtocols_RSHTTPBadRequest 65033 +#define IdResourceStringsProtocols_RSHTTPUnauthorized 65034 +#define IdResourceStringsProtocols_RSHTTPForbidden 65035 +#define IdResourceStringsProtocols_RSHTTPNotFound 65036 +#define IdResourceStringsProtocols_RSHTTPMethodNotAllowed 65037 +#define IdResourceStringsProtocols_RSHTTPNotAcceptable 65038 +#define IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired 65039 +#define IdResourceStringsCore_RSchedMaxThreadEx 65040 +#define IdResourceStringsCore_RSTransparentProxyCannotBind 65041 +#define IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP 65042 +#define IdResourceStringsCore_RSBufferMissingTerminator 65043 +#define IdResourceStringsCore_RSBufferInvalidStartPos 65044 +#define IdResourceStringsCore_RSReplyInvalidCode 65045 +#define IdResourceStringsCore_RSThreadSchedulerThreadRequired 65046 +#define IdResourceStringsCore_RSNoOnExecute 65047 +#define IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive 65048 +#define IdResourceStringsProtocols_RSMIMEExtensionEmpty 65049 +#define IdResourceStringsProtocols_RSMIMEMIMETypeEmpty 65050 +#define IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists 65051 +#define IdResourceStringsProtocols_RSHTTPContinue 65052 +#define IdResourceStringsProtocols_RSHTTPOK 65053 +#define IdResourceStringsProtocols_RSHTTPCreated 65054 +#define IdResourceStringsProtocols_RSHTTPAccepted 65055 +#define IdResourceStringsCore_RSSocksServerTTLExpiredError 65056 +#define IdResourceStringsCore_RSSocksServerCommandError 65057 +#define IdResourceStringsCore_RSSocksServerAddressError 65058 +#define IdResourceStringsCore_RSInterceptCircularLink 65059 +#define IdResourceStringsCore_RSNotEnoughDataInBuffer 65060 +#define IdResourceStringsCore_RSTooMuchDataInBuffer 65061 +#define IdResourceStringsCore_RSFileNotFound 65062 +#define IdResourceStringsCore_RSNotConnected 65063 +#define IdResourceStringsCore_RSObjectTypeNotSupported 65064 +#define IdResourceStringsCore_RSIdNoDataToRead 65065 +#define IdResourceStringsCore_RSReadTimeout 65066 +#define IdResourceStringsCore_RSReadLnMaxLineLengthExceeded 65067 +#define IdResourceStringsCore_RSConnectTimeout 65068 +#define IdResourceStringsCore_RSThreadTerminateAndWaitFor 65069 +#define IdResourceStringsCore_RSAlreadyConnected 65070 +#define IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded 65071 +#define IdResourceStrings_RSNotAllBytesSent 65072 +#define IdResourceStrings_RSPackageSizeTooBig 65073 +#define IdResourceStrings_RSSetSizeExceeded 65074 +#define IdResourceStringsCore_RSSocksUDPNotSupported 65075 +#define IdResourceStringsCore_RSSocksRequestFailed 65076 +#define IdResourceStringsCore_RSSocksRequestServerFailed 65077 +#define IdResourceStringsCore_RSSocksRequestIdentFailed 65078 +#define IdResourceStringsCore_RSSocksUnknownError 65079 +#define IdResourceStringsCore_RSSocksServerRespondError 65080 +#define IdResourceStringsCore_RSSocksAuthMethodError 65081 +#define IdResourceStringsCore_RSSocksAuthError 65082 +#define IdResourceStringsCore_RSSocksServerGeneralError 65083 +#define IdResourceStringsCore_RSSocksServerPermissionError 65084 +#define IdResourceStringsCore_RSSocksServerNetUnreachableError 65085 +#define IdResourceStringsCore_RSSocksServerHostUnreachableError 65086 +#define IdResourceStringsCore_RSSocksServerConnectionRefusedError 65087 +#define IdResourceStrings_RSStackEHOSTDOWN 65088 +#define IdResourceStrings_RSStackEHOSTUNREACH 65089 +#define IdResourceStrings_RSStackENOTEMPTY 65090 +#define IdResourceStrings_RSStackHOST_NOT_FOUND 65091 +#define IdResourceStrings_RSStackClassUndefined 65092 +#define IdResourceStrings_RSStackAlreadyCreated 65093 +#define IdResourceStrings_RSAntiFreezeOnlyOne 65094 +#define IdResourceStrings_RSCannotSetIPVersionWhenConnected 65095 +#define IdResourceStrings_RSCannotBindRange 65096 +#define IdResourceStrings_RSConnectionClosedGracefully 65097 +#define IdResourceStrings_RSCouldNotBindSocket 65098 +#define IdResourceStrings_RSInvalidPortRange 65099 +#define IdResourceStrings_RSInvalidServiceName 65100 +#define IdResourceStrings_RSIPv6Unavailable 65101 +#define IdResourceStrings_RSInvalidIPv6Address 65102 +#define IdResourceStrings_RSIPVersionUnsupported 65103 +#define IdResourceStrings_RSStackEADDRINUSE 65104 +#define IdResourceStrings_RSStackEADDRNOTAVAIL 65105 +#define IdResourceStrings_RSStackENETDOWN 65106 +#define IdResourceStrings_RSStackENETUNREACH 65107 +#define IdResourceStrings_RSStackENETRESET 65108 +#define IdResourceStrings_RSStackECONNABORTED 65109 +#define IdResourceStrings_RSStackECONNRESET 65110 +#define IdResourceStrings_RSStackENOBUFS 65111 +#define IdResourceStrings_RSStackEISCONN 65112 +#define IdResourceStrings_RSStackENOTCONN 65113 +#define IdResourceStrings_RSStackESHUTDOWN 65114 +#define IdResourceStrings_RSStackETOOMANYREFS 65115 +#define IdResourceStrings_RSStackETIMEDOUT 65116 +#define IdResourceStrings_RSStackECONNREFUSED 65117 +#define IdResourceStrings_RSStackELOOP 65118 +#define IdResourceStrings_RSStackENAMETOOLONG 65119 +#define IdResourceStrings_RSStackEFAULT 65120 +#define IdResourceStrings_RSStackEINVAL 65121 +#define IdResourceStrings_RSStackEMFILE 65122 +#define IdResourceStrings_RSStackEWOULDBLOCK 65123 +#define IdResourceStrings_RSStackEINPROGRESS 65124 +#define IdResourceStrings_RSStackEALREADY 65125 +#define IdResourceStrings_RSStackENOTSOCK 65126 +#define IdResourceStrings_RSStackEDESTADDRREQ 65127 +#define IdResourceStrings_RSStackEMSGSIZE 65128 +#define IdResourceStrings_RSStackEPROTOTYPE 65129 +#define IdResourceStrings_RSStackENOPROTOOPT 65130 +#define IdResourceStrings_RSStackEPROTONOSUPPORT 65131 +#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65132 +#define IdResourceStrings_RSStackEOPNOTSUPP 65133 +#define IdResourceStrings_RSStackEPFNOSUPPORT 65134 +#define IdResourceStrings_RSStackEAFNOSUPPORT 65135 +#define DBConsts_SCouldNotParseTimeStamp 65136 +#define DBConsts_SInvalidSqlTimeStamp 65137 +#define IdResourceStrings_RSFailedTimeZoneInfo 65138 +#define IdResourceStrings_RSWinsockCallError 65139 +#define IdResourceStrings_RSWinsockLoadError 65140 +#define IdResourceStrings_RSWinsockInitializationError 65141 +#define IdResourceStrings_RSStatusResolving 65142 +#define IdResourceStrings_RSStatusConnecting 65143 +#define IdResourceStrings_RSStatusConnected 65144 +#define IdResourceStrings_RSStatusDisconnecting 65145 +#define IdResourceStrings_RSStatusDisconnected 65146 +#define IdResourceStrings_RSStatusText 65147 +#define IdResourceStrings_RSStackError 65148 +#define IdResourceStrings_RSStackEINTR 65149 +#define IdResourceStrings_RSStackEBADF 65150 +#define IdResourceStrings_RSStackEACCES 65151 +#define DBConsts_SDataSetEmpty 65152 +#define DBConsts_SDataSetReadOnly 65153 +#define DBConsts_SNestedDataSetClass 65154 +#define DBConsts_STextFalse 65155 +#define DBConsts_STextTrue 65156 +#define DBConsts_SParameterNotFound 65157 +#define DBConsts_SInvalidVersion 65158 +#define DBConsts_SBadFieldType 65159 +#define DBConsts_SProviderSQLNotSupported 65160 +#define DBConsts_SProviderExecuteNotSupported 65161 +#define DBConsts_SDataSetUnidirectional 65162 +#define DBConsts_SUnassignedVar 65163 +#define DBConsts_SRecordNotFound 65164 +#define DBConsts_SBcdOverflow 65165 +#define DBConsts_SInvalidBcdValue 65166 +#define DBConsts_SInvalidFormatType 65167 +#define DBConsts_SFieldTypeMismatch 65168 +#define DBConsts_SFieldSizeMismatch 65169 +#define DBConsts_SInvalidVarByteArray 65170 +#define DBConsts_SFieldOutOfRange 65171 +#define DBConsts_SFieldRequired 65172 +#define DBConsts_SDataSetMissing 65173 +#define DBConsts_SInvalidCalcType 65174 +#define DBConsts_SFieldReadOnly 65175 +#define DBConsts_SNoIndexForFields 65176 +#define DBConsts_SIndexNotFound 65177 +#define DBConsts_SCircularDataLink 65178 +#define DBConsts_SLookupInfoError 65179 +#define DBConsts_SDataSourceChange 65180 +#define DBConsts_SDataSetOpen 65181 +#define DBConsts_SNotEditing 65182 +#define DBConsts_SDataSetClosed 65183 +#define uRODECConst_sFMT_XX 65184 +#define uRODECConst_sInvalidKeySize 65185 +#define uRODECConst_sNotInitialized 65186 +#define DBConsts_SInvalidFieldSize 65187 +#define DBConsts_SInvalidFieldKind 65188 +#define DBConsts_SUnknownFieldType 65189 +#define DBConsts_SFieldNameMissing 65190 +#define DBConsts_SDuplicateFieldName 65191 +#define DBConsts_SFieldNotFound 65192 +#define DBConsts_SFieldAccessError 65193 +#define DBConsts_SFieldValueError 65194 +#define DBConsts_SFieldRangeError 65195 +#define DBConsts_SBcdFieldRangeError 65196 +#define DBConsts_SInvalidIntegerValue 65197 +#define DBConsts_SInvalidBoolValue 65198 +#define DBConsts_SInvalidFloatValue 65199 +#define uRORes_err_NoXMLParsersAvailable 65200 +#define uRORes_err_IDispatchMarshalingNotSupported 65201 +#define uRORes_err_UnsupportedVariantType 65202 +#define uRORes_err_VariantIsNotArray 65203 +#define uRORes_err_InvalidVarArrayDimCount 65204 +#define uRORes_err_CannotFindParameter 65205 +#define uRORes_err_MessageNotAssigned 65206 +#define uRODECConst_sProtectionCircular 65207 +#define uRODECConst_sStringFormatExists 65208 +#define uRODECConst_sInvalidStringFormat 65209 +#define uRODECConst_sInvalidFormatString 65210 +#define uRODECConst_sFMT_COPY 65211 +#define uRODECConst_sFMT_HEX 65212 +#define uRODECConst_sFMT_HEXL 65213 +#define uRODECConst_sFMT_MIME64 65214 +#define uRODECConst_sFMT_UU 65215 +#define uRORes_err_DispatcherAlreadyAssigned 65216 +#define uRORes_err_CannotFindMessageDispatcher 65217 +#define uRORes_err_ServerOnlySupportsOneDispatcher 65218 +#define uRORes_err_UnhandledException 65219 +#define uRORes_err_ChannelBusy 65220 +#define uRORes_err_ArrayIndexOutOfBounds 65221 +#define uRORes_err_InvalidHeader 65222 +#define uRORes_err_InvalidHeaderEncrypted 65223 +#define uRORes_err_UnknownClassInStream 65224 +#define uRORes_err_UnexpectedClassInStream 65225 +#define uRORes_err_SessionNotFound 65226 +#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65227 +#define uRORes_err_TooManySessions 65228 +#define uRORes_err_DOMElementIsNIL 65229 +#define uRORes_err_CannotLoadXMLDocument 65230 +#define uRORes_err_ErrorCreatingMsXmlDoc 65231 +#define uRORes_err_RodlInvalidAncestorType 65232 +#define uRORes_str_ExceptionOnServer 65233 +#define uRORes_str_ExceptionReraisedFromServer 65234 +#define uRORes_err_AssignError 65235 +#define uRORes_err_InvalidRequestStream 65236 +#define uRORes_err_NILMessage 65237 +#define uRORes_err_UnspecifiedInterface 65238 +#define uRORes_err_UnspecifiedMessage 65239 +#define uRORes_err_UnknownMethod 65240 +#define uRORes_err_ClassFactoryDidNotReturnInstance 65241 +#define uRORes_err_TypeNotSupported 65242 +#define uRORes_err_ClassFactoryNotFound 65243 +#define uRORes_err_IROMessageNotSupported 65244 +#define uRORes_err_ClassAlreadyRegistered 65245 +#define uRORes_err_UnknownClass 65246 +#define uRORes_err_UnknownProxyInterface 65247 +#define uRORes_err_InvalidType 65248 +#define uRORes_err_InvalidLibrary 65249 +#define uRORes_err_InvalidStream 65250 +#define uRORes_err_InvalidTargetEntity 65251 +#define uRORes_err_InvalidParamFlag 65252 +#define uRORes_err_InvalidStringLength 65253 +#define uRORes_str_InvalidClassTypeInStream 65254 +#define uRORes_err_UnexpectedEndOfStream 65255 +#define uRORes_err_RodlDuplicateName 65256 +#define uRORes_err_RodlNoDataTypeSpecified 65257 +#define uRORes_err_RodlNoEnumValues 65258 +#define uRORes_err_RodlNoStructElementsDefined 65259 +#define uRORes_err_RodlNoOperationsDefined 65260 +#define uRORes_err_RodlUsedFileDoesNotExist 65261 +#define uRORes_err_RodlInvalidDataType 65262 +#define uRORes_err_RodlStructCannotBeNested 65263 +#define Consts_SSeparator 65264 +#define Consts_SErrorSettingCount 65265 +#define Consts_SListBoxMustBeVirtual 65266 +#define Consts_SANSIEncoding 65267 +#define Consts_SASCIIEncoding 65268 +#define Consts_SUnicodeEncoding 65269 +#define Consts_SBigEndianEncoding 65270 +#define Consts_SUTF8Encoding 65271 +#define Consts_SUTF7Encoding 65272 +#define Consts_SPageControlNotSet 65273 +#define Consts_SWindowsVistaRequired 65274 +#define ComConst_SOleError 65275 +#define ComConst_SNoMethod 65276 +#define ComConst_SVarNotObject 65277 +#define ComConst_STooManyParams 65278 +#define uRORes_err_InvalidIndex 65279 +#define Consts_srNone 65280 +#define Consts_SOutOfRange 65281 #define Consts_SInsertLineError 65282 #define Consts_SInvalidClipFmt 65283 #define Consts_SIconToClipboard 65284 @@ -856,236 +801,236 @@ #define Consts_SInvalidPrinterOp 65287 #define Consts_SNoDefaultPrinter 65288 #define Consts_SDuplicateMenus 65289 -#define Consts_SPictureLabel 65290 -#define Consts_SPictureDesc 65291 -#define Consts_SPreviewLabel 65292 -#define Consts_SDockedCtlNeedsName 65293 -#define Consts_SDockTreeRemoveError 65294 -#define Consts_SDockZoneNotFound 65295 -#define Consts_SmkcEnter 65296 -#define Consts_SmkcSpace 65297 -#define Consts_SmkcPgUp 65298 -#define Consts_SmkcPgDn 65299 -#define Consts_SmkcEnd 65300 -#define Consts_SmkcHome 65301 -#define Consts_SmkcLeft 65302 -#define Consts_SmkcUp 65303 -#define Consts_SmkcRight 65304 -#define Consts_SmkcDown 65305 -#define Consts_SmkcIns 65306 -#define Consts_SmkcDel 65307 -#define Consts_SmkcShift 65308 -#define Consts_SmkcCtrl 65309 -#define Consts_SmkcAlt 65310 -#define Consts_srNone 65311 -#define Consts_SMsgDlgInformation 65312 -#define Consts_SMsgDlgConfirm 65313 -#define Consts_SMsgDlgYes 65314 -#define Consts_SMsgDlgNo 65315 -#define Consts_SMsgDlgOK 65316 -#define Consts_SMsgDlgCancel 65317 -#define Consts_SMsgDlgHelp 65318 -#define Consts_SMsgDlgAbort 65319 -#define Consts_SMsgDlgRetry 65320 -#define Consts_SMsgDlgIgnore 65321 -#define Consts_SMsgDlgAll 65322 -#define Consts_SMsgDlgNoToAll 65323 -#define Consts_SMsgDlgYesToAll 65324 -#define Consts_SmkcBkSp 65325 -#define Consts_SmkcTab 65326 -#define Consts_SmkcEsc 65327 -#define Consts_SCancelButton 65328 -#define Consts_SYesButton 65329 -#define Consts_SNoButton 65330 -#define Consts_SHelpButton 65331 -#define Consts_SCloseButton 65332 -#define Consts_SIgnoreButton 65333 -#define Consts_SRetryButton 65334 -#define Consts_SAbortButton 65335 -#define Consts_SAllButton 65336 -#define Consts_SCannotDragForm 65337 -#define Consts_SVMetafiles 65338 -#define Consts_SVEnhMetafiles 65339 -#define Consts_SVIcons 65340 -#define Consts_SVBitmaps 65341 -#define Consts_SMsgDlgWarning 65342 -#define Consts_SMsgDlgError 65343 -#define Consts_SVisibleChanged 65344 -#define Consts_SCannotShowModal 65345 -#define Consts_SScrollBarRange 65346 -#define Consts_SPropertyOutOfRange 65347 -#define Consts_SMenuIndexError 65348 -#define Consts_SMenuReinserted 65349 -#define Consts_SMenuNotFound 65350 -#define Consts_SNoTimers 65351 -#define Consts_SNotPrinting 65352 -#define Consts_SPrinting 65353 -#define Consts_SInvalidPrinter 65354 -#define Consts_SDeviceOnPort 65355 -#define Consts_SGroupIndexTooLow 65356 -#define Consts_SNoMDIForm 65357 -#define Consts_SControlParentSetToSelf 65358 -#define Consts_SOKButton 65359 -#define Consts_SUnknownExtension 65360 -#define Consts_SUnknownClipboardFormat 65361 -#define Consts_SOutOfResources 65362 -#define Consts_SNoCanvasHandle 65363 -#define Consts_SInvalidImageSize 65364 -#define Consts_SInvalidImageList 65365 -#define Consts_SReplaceImage 65366 -#define Consts_SImageIndexError 65367 -#define Consts_SImageReadFail 65368 -#define Consts_SImageWriteFail 65369 -#define Consts_SWindowDCError 65370 -#define Consts_SWindowClass 65371 -#define Consts_SCannotFocus 65372 -#define Consts_SParentRequired 65373 -#define Consts_SParentGivenNotAParent 65374 -#define Consts_SMDIChildNotVisible 65375 -#define RTLConsts_SThreadCreateError 65376 -#define RTLConsts_SThreadError 65377 -#define HelpIntfs_hNoTableOfContents 65378 -#define HelpIntfs_hNothingFound 65379 -#define HelpIntfs_hNoContext 65380 -#define HelpIntfs_hNoContextFound 65381 -#define HelpIntfs_hNoTopics 65382 -#define Consts_SInvalidTabPosition 65383 -#define Consts_SInvalidTabStyle 65384 -#define Consts_SInvalidBitmap 65385 -#define Consts_SInvalidIcon 65386 -#define Consts_SInvalidMetafile 65387 -#define Consts_SInvalidPixelFormat 65388 -#define Consts_SInvalidImage 65389 -#define Consts_SScanLine 65390 -#define Consts_SChangeIconSize 65391 -#define RTLConsts_SListCapacityError 65392 -#define RTLConsts_SListCountError 65393 -#define RTLConsts_SListIndexError 65394 -#define RTLConsts_SMemoryStreamError 65395 -#define RTLConsts_SPropertyException 65396 -#define RTLConsts_SReadError 65397 -#define RTLConsts_SReadOnlyProperty 65398 -#define RTLConsts_SRegCreateFailed 65399 -#define RTLConsts_SRegGetDataFailed 65400 -#define RTLConsts_SRegSetDataFailed 65401 -#define RTLConsts_SResNotFound 65402 -#define RTLConsts_SSeekNotImplemented 65403 -#define RTLConsts_SSortedListError 65404 -#define RTLConsts_SUnknownGroup 65405 -#define RTLConsts_SUnknownProperty 65406 -#define RTLConsts_SWriteError 65407 -#define RTLConsts_SClassNotFound 65408 -#define RTLConsts_SDuplicateClass 65409 -#define RTLConsts_SDuplicateItem 65410 -#define RTLConsts_SDuplicateName 65411 -#define RTLConsts_SDuplicateString 65412 -#define RTLConsts_SFCreateErrorEx 65413 -#define RTLConsts_SFOpenErrorEx 65414 -#define RTLConsts_SIniFileWriteError 65415 -#define RTLConsts_SInvalidImage 65416 -#define RTLConsts_SInvalidName 65417 -#define RTLConsts_SInvalidProperty 65418 -#define RTLConsts_SInvalidPropertyElement 65419 -#define RTLConsts_SInvalidPropertyPath 65420 -#define RTLConsts_SInvalidPropertyType 65421 -#define RTLConsts_SInvalidPropertyValue 65422 -#define RTLConsts_SInvalidRegType 65423 -#define SysConst_SShortDayNameWed 65424 -#define SysConst_SShortDayNameThu 65425 -#define SysConst_SShortDayNameFri 65426 -#define SysConst_SShortDayNameSat 65427 -#define SysConst_SLongDayNameSun 65428 -#define SysConst_SLongDayNameMon 65429 -#define SysConst_SLongDayNameTue 65430 -#define SysConst_SLongDayNameWed 65431 -#define SysConst_SLongDayNameThu 65432 -#define SysConst_SLongDayNameFri 65433 -#define SysConst_SLongDayNameSat 65434 -#define RTLConsts_SAncestorNotFound 65435 -#define RTLConsts_SAssignError 65436 -#define RTLConsts_SBitsIndexError 65437 -#define RTLConsts_SCantWriteResourceStreamError 65438 -#define RTLConsts_SCheckSynchronizeError 65439 -#define SysConst_SShortMonthNameDec 65440 -#define SysConst_SLongMonthNameJan 65441 -#define SysConst_SLongMonthNameFeb 65442 -#define SysConst_SLongMonthNameMar 65443 -#define SysConst_SLongMonthNameApr 65444 -#define SysConst_SLongMonthNameMay 65445 -#define SysConst_SLongMonthNameJun 65446 -#define SysConst_SLongMonthNameJul 65447 -#define SysConst_SLongMonthNameAug 65448 -#define SysConst_SLongMonthNameSep 65449 -#define SysConst_SLongMonthNameOct 65450 -#define SysConst_SLongMonthNameNov 65451 -#define SysConst_SLongMonthNameDec 65452 -#define SysConst_SShortDayNameSun 65453 -#define SysConst_SShortDayNameMon 65454 -#define SysConst_SShortDayNameTue 65455 -#define SysConst_SAbstractError 65456 -#define SysConst_SModuleAccessViolation 65457 -#define SysConst_SOSError 65458 -#define SysConst_SUnkOSError 65459 -#define SysConst_SNL 65460 -#define SysConst_SShortMonthNameJan 65461 -#define SysConst_SShortMonthNameFeb 65462 -#define SysConst_SShortMonthNameMar 65463 -#define SysConst_SShortMonthNameApr 65464 -#define SysConst_SShortMonthNameMay 65465 -#define SysConst_SShortMonthNameJun 65466 -#define SysConst_SShortMonthNameJul 65467 -#define SysConst_SShortMonthNameAug 65468 -#define SysConst_SShortMonthNameSep 65469 -#define SysConst_SShortMonthNameOct 65470 -#define SysConst_SShortMonthNameNov 65471 -#define SysConst_SVarTypeOutOfRangeWithPrefix 65472 -#define SysConst_SVarTypeAlreadyUsedWithPrefix 65473 -#define SysConst_SVarTypeNotUsableWithPrefix 65474 -#define SysConst_SVarTypeTooManyCustom 65475 -#define SysConst_SVarTypeCouldNotConvert 65476 -#define SysConst_SVarTypeConvertOverflow 65477 -#define SysConst_SVarOverflow 65478 -#define SysConst_SVarInvalid 65479 -#define SysConst_SVarBadType 65480 -#define SysConst_SVarNotImplemented 65481 -#define SysConst_SVarUnexpected 65482 -#define SysConst_SExternalException 65483 -#define SysConst_SAssertionFailed 65484 -#define SysConst_SIntfCastError 65485 -#define SysConst_SSafecallException 65486 -#define SysConst_SAssertError 65487 -#define SysConst_SOperationAborted 65488 -#define SysConst_SException 65489 -#define SysConst_SExceptTitle 65490 -#define SysConst_SInvalidFormat 65491 -#define SysConst_SArgumentMissing 65492 -#define SysConst_SDispatchError 65493 -#define SysConst_SReadAccess 65494 -#define SysConst_SWriteAccess 65495 -#define SysConst_SFormatTooLong 65496 -#define SysConst_SVarArrayCreate 65497 -#define SysConst_SVarArrayBounds 65498 -#define SysConst_SVarArrayLocked 65499 -#define SysConst_SInvalidVarCast 65500 -#define SysConst_SInvalidVarOp 65501 -#define SysConst_SInvalidVarNullOp 65502 -#define SysConst_SInvalidVarOpWithHResultWithPrefix 65503 -#define SysConst_SDiskFull 65504 -#define SysConst_SInvalidInput 65505 -#define SysConst_SDivByZero 65506 -#define SysConst_SRangeError 65507 -#define SysConst_SIntOverflow 65508 -#define SysConst_SInvalidOp 65509 -#define SysConst_SZeroDivide 65510 -#define SysConst_SOverflow 65511 -#define SysConst_SUnderflow 65512 -#define SysConst_SInvalidPointer 65513 -#define SysConst_SInvalidCast 65514 -#define SysConst_SAccessViolationArg3 65515 -#define SysConst_SAccessViolationNoArg 65516 -#define SysConst_SStackOverflow 65517 -#define SysConst_SControlC 65518 -#define SysConst_SPrivilege 65519 +#define Consts_SDockedCtlNeedsName 65290 +#define Consts_SDockTreeRemoveError 65291 +#define Consts_SDockZoneNotFound 65292 +#define Consts_SDockZoneHasNoCtl 65293 +#define Consts_SDockZoneVersionConflict 65294 +#define Consts_SMultiSelectRequired 65295 +#define Consts_SmkcEsc 65296 +#define Consts_SmkcEnter 65297 +#define Consts_SmkcSpace 65298 +#define Consts_SmkcPgUp 65299 +#define Consts_SmkcPgDn 65300 +#define Consts_SmkcEnd 65301 +#define Consts_SmkcHome 65302 +#define Consts_SmkcLeft 65303 +#define Consts_SmkcUp 65304 +#define Consts_SmkcRight 65305 +#define Consts_SmkcDown 65306 +#define Consts_SmkcIns 65307 +#define Consts_SmkcDel 65308 +#define Consts_SmkcShift 65309 +#define Consts_SmkcCtrl 65310 +#define Consts_SmkcAlt 65311 +#define Consts_SMsgDlgError 65312 +#define Consts_SMsgDlgInformation 65313 +#define Consts_SMsgDlgConfirm 65314 +#define Consts_SMsgDlgYes 65315 +#define Consts_SMsgDlgNo 65316 +#define Consts_SMsgDlgOK 65317 +#define Consts_SMsgDlgCancel 65318 +#define Consts_SMsgDlgHelp 65319 +#define Consts_SMsgDlgAbort 65320 +#define Consts_SMsgDlgRetry 65321 +#define Consts_SMsgDlgIgnore 65322 +#define Consts_SMsgDlgAll 65323 +#define Consts_SMsgDlgNoToAll 65324 +#define Consts_SMsgDlgYesToAll 65325 +#define Consts_SmkcBkSp 65326 +#define Consts_SmkcTab 65327 +#define Consts_SOKButton 65328 +#define Consts_SCancelButton 65329 +#define Consts_SYesButton 65330 +#define Consts_SNoButton 65331 +#define Consts_SHelpButton 65332 +#define Consts_SCloseButton 65333 +#define Consts_SIgnoreButton 65334 +#define Consts_SRetryButton 65335 +#define Consts_SAbortButton 65336 +#define Consts_SAllButton 65337 +#define Consts_SCannotDragForm 65338 +#define Consts_SVMetafiles 65339 +#define Consts_SVEnhMetafiles 65340 +#define Consts_SVIcons 65341 +#define Consts_SVBitmaps 65342 +#define Consts_SMsgDlgWarning 65343 +#define Consts_SMDIChildNotVisible 65344 +#define Consts_SVisibleChanged 65345 +#define Consts_SCannotShowModal 65346 +#define Consts_SScrollBarRange 65347 +#define Consts_SPropertyOutOfRange 65348 +#define Consts_SMenuIndexError 65349 +#define Consts_SMenuReinserted 65350 +#define Consts_SMenuNotFound 65351 +#define Consts_SNoTimers 65352 +#define Consts_SNotPrinting 65353 +#define Consts_SPrinting 65354 +#define Consts_SInvalidPrinter 65355 +#define Consts_SDeviceOnPort 65356 +#define Consts_SGroupIndexTooLow 65357 +#define Consts_SNoMDIForm 65358 +#define Consts_SControlParentSetToSelf 65359 +#define Consts_SChangeIconSize 65360 +#define Consts_SUnknownExtension 65361 +#define Consts_SUnknownClipboardFormat 65362 +#define Consts_SOutOfResources 65363 +#define Consts_SNoCanvasHandle 65364 +#define Consts_SInvalidImageSize 65365 +#define Consts_SInvalidImageList 65366 +#define Consts_SReplaceImage 65367 +#define Consts_SImageIndexError 65368 +#define Consts_SImageReadFail 65369 +#define Consts_SImageWriteFail 65370 +#define Consts_SWindowDCError 65371 +#define Consts_SWindowClass 65372 +#define Consts_SCannotFocus 65373 +#define Consts_SParentRequired 65374 +#define Consts_SParentGivenNotAParent 65375 +#define RTLConsts_SWriteError 65376 +#define RTLConsts_SThreadCreateError 65377 +#define RTLConsts_SThreadError 65378 +#define HelpIntfs_hNoTableOfContents 65379 +#define HelpIntfs_hNothingFound 65380 +#define HelpIntfs_hNoContext 65381 +#define HelpIntfs_hNoContextFound 65382 +#define HelpIntfs_hNoTopics 65383 +#define Consts_SInvalidTabPosition 65384 +#define Consts_SInvalidTabStyle 65385 +#define Consts_SInvalidBitmap 65386 +#define Consts_SInvalidIcon 65387 +#define Consts_SInvalidMetafile 65388 +#define Consts_SInvalidPixelFormat 65389 +#define Consts_SInvalidImage 65390 +#define Consts_SScanLine 65391 +#define RTLConsts_SInvalidRegType 65392 +#define RTLConsts_SListCapacityError 65393 +#define RTLConsts_SListCountError 65394 +#define RTLConsts_SListIndexError 65395 +#define RTLConsts_SMemoryStreamError 65396 +#define RTLConsts_SPropertyException 65397 +#define RTLConsts_SReadError 65398 +#define RTLConsts_SReadOnlyProperty 65399 +#define RTLConsts_SRegCreateFailed 65400 +#define RTLConsts_SRegGetDataFailed 65401 +#define RTLConsts_SRegSetDataFailed 65402 +#define RTLConsts_SResNotFound 65403 +#define RTLConsts_SSeekNotImplemented 65404 +#define RTLConsts_SSortedListError 65405 +#define RTLConsts_SUnknownGroup 65406 +#define RTLConsts_SUnknownProperty 65407 +#define RTLConsts_SCheckSynchronizeError 65408 +#define RTLConsts_SClassNotFound 65409 +#define RTLConsts_SDuplicateClass 65410 +#define RTLConsts_SDuplicateItem 65411 +#define RTLConsts_SDuplicateName 65412 +#define RTLConsts_SDuplicateString 65413 +#define RTLConsts_SFCreateErrorEx 65414 +#define RTLConsts_SFOpenErrorEx 65415 +#define RTLConsts_SIniFileWriteError 65416 +#define RTLConsts_SInvalidImage 65417 +#define RTLConsts_SInvalidName 65418 +#define RTLConsts_SInvalidProperty 65419 +#define RTLConsts_SInvalidPropertyElement 65420 +#define RTLConsts_SInvalidPropertyPath 65421 +#define RTLConsts_SInvalidPropertyType 65422 +#define RTLConsts_SInvalidPropertyValue 65423 +#define SysConst_SShortDayNameTue 65424 +#define SysConst_SShortDayNameWed 65425 +#define SysConst_SShortDayNameThu 65426 +#define SysConst_SShortDayNameFri 65427 +#define SysConst_SShortDayNameSat 65428 +#define SysConst_SLongDayNameSun 65429 +#define SysConst_SLongDayNameMon 65430 +#define SysConst_SLongDayNameTue 65431 +#define SysConst_SLongDayNameWed 65432 +#define SysConst_SLongDayNameThu 65433 +#define SysConst_SLongDayNameFri 65434 +#define SysConst_SLongDayNameSat 65435 +#define RTLConsts_SAncestorNotFound 65436 +#define RTLConsts_SAssignError 65437 +#define RTLConsts_SBitsIndexError 65438 +#define RTLConsts_SCantWriteResourceStreamError 65439 +#define SysConst_SShortMonthNameNov 65440 +#define SysConst_SShortMonthNameDec 65441 +#define SysConst_SLongMonthNameJan 65442 +#define SysConst_SLongMonthNameFeb 65443 +#define SysConst_SLongMonthNameMar 65444 +#define SysConst_SLongMonthNameApr 65445 +#define SysConst_SLongMonthNameMay 65446 +#define SysConst_SLongMonthNameJun 65447 +#define SysConst_SLongMonthNameJul 65448 +#define SysConst_SLongMonthNameAug 65449 +#define SysConst_SLongMonthNameSep 65450 +#define SysConst_SLongMonthNameOct 65451 +#define SysConst_SLongMonthNameNov 65452 +#define SysConst_SLongMonthNameDec 65453 +#define SysConst_SShortDayNameSun 65454 +#define SysConst_SShortDayNameMon 65455 +#define SysConst_SAssertError 65456 +#define SysConst_SAbstractError 65457 +#define SysConst_SModuleAccessViolation 65458 +#define SysConst_SOSError 65459 +#define SysConst_SUnkOSError 65460 +#define SysConst_SNL 65461 +#define SysConst_SShortMonthNameJan 65462 +#define SysConst_SShortMonthNameFeb 65463 +#define SysConst_SShortMonthNameMar 65464 +#define SysConst_SShortMonthNameApr 65465 +#define SysConst_SShortMonthNameMay 65466 +#define SysConst_SShortMonthNameJun 65467 +#define SysConst_SShortMonthNameJul 65468 +#define SysConst_SShortMonthNameAug 65469 +#define SysConst_SShortMonthNameSep 65470 +#define SysConst_SShortMonthNameOct 65471 +#define SysConst_SInvalidVarOpWithHResultWithPrefix 65472 +#define SysConst_SVarTypeOutOfRangeWithPrefix 65473 +#define SysConst_SVarTypeAlreadyUsedWithPrefix 65474 +#define SysConst_SVarTypeNotUsableWithPrefix 65475 +#define SysConst_SVarTypeTooManyCustom 65476 +#define SysConst_SVarTypeCouldNotConvert 65477 +#define SysConst_SVarTypeConvertOverflow 65478 +#define SysConst_SVarOverflow 65479 +#define SysConst_SVarInvalid 65480 +#define SysConst_SVarBadType 65481 +#define SysConst_SVarNotImplemented 65482 +#define SysConst_SVarUnexpected 65483 +#define SysConst_SExternalException 65484 +#define SysConst_SAssertionFailed 65485 +#define SysConst_SIntfCastError 65486 +#define SysConst_SSafecallException 65487 +#define SysConst_SPrivilege 65488 +#define SysConst_SOperationAborted 65489 +#define SysConst_SException 65490 +#define SysConst_SExceptTitle 65491 +#define SysConst_SInvalidFormat 65492 +#define SysConst_SArgumentMissing 65493 +#define SysConst_SDispatchError 65494 +#define SysConst_SReadAccess 65495 +#define SysConst_SWriteAccess 65496 +#define SysConst_SFormatTooLong 65497 +#define SysConst_SVarArrayCreate 65498 +#define SysConst_SVarArrayBounds 65499 +#define SysConst_SVarArrayLocked 65500 +#define SysConst_SInvalidVarCast 65501 +#define SysConst_SInvalidVarOp 65502 +#define SysConst_SInvalidVarNullOp 65503 +#define SysConst_SEndOfFile 65504 +#define SysConst_SDiskFull 65505 +#define SysConst_SInvalidInput 65506 +#define SysConst_SDivByZero 65507 +#define SysConst_SRangeError 65508 +#define SysConst_SIntOverflow 65509 +#define SysConst_SInvalidOp 65510 +#define SysConst_SZeroDivide 65511 +#define SysConst_SOverflow 65512 +#define SysConst_SUnderflow 65513 +#define SysConst_SInvalidPointer 65514 +#define SysConst_SInvalidCast 65515 +#define SysConst_SAccessViolationArg3 65516 +#define SysConst_SAccessViolationNoArg 65517 +#define SysConst_SStackOverflow 65518 +#define SysConst_SControlC 65519 #define SysConst_SInvalidInteger 65520 #define SysConst_SInvalidFloat 65521 #define SysConst_SInvalidDate 65522 @@ -1093,29 +1038,17 @@ #define SysConst_SInvalidDateTime 65524 #define SysConst_SInvalidTimeStamp 65525 #define SysConst_SInvalidGUID 65526 -#define SysConst_STimeEncodeError 65527 -#define SysConst_SDateEncodeError 65528 -#define SysConst_SOutOfMemory 65529 -#define SysConst_SInOutError 65530 -#define SysConst_SFileNotFound 65531 -#define SysConst_SInvalidFilename 65532 -#define SysConst_STooManyOpenFiles 65533 -#define SysConst_SAccessDenied 65534 -#define SysConst_SEndOfFile 65535 +#define SysConst_SInvalidBoolean 65527 +#define SysConst_STimeEncodeError 65528 +#define SysConst_SDateEncodeError 65529 +#define SysConst_SOutOfMemory 65530 +#define SysConst_SInOutError 65531 +#define SysConst_SFileNotFound 65532 +#define SysConst_SInvalidFilename 65533 +#define SysConst_STooManyOpenFiles 65534 +#define SysConst_SAccessDenied 65535 STRINGTABLE BEGIN - cxEditConsts_scxRegExprNotCompiled, "Regular expression is not compiled" - cxEditConsts_scxRegExprIncorrectParameterQuantifier, "Incorrect parameter quantifier" - cxEditConsts_scxRegExprCantUseParameterQuantifier, "The parameter quantifier cannot be applied here" - cxEditConsts_scxMaskEditRegExprError, "Regular expression errors:" - cxEditConsts_scxMaskEditInvalidEditValue, "The edit value is invalid" - cxEditConsts_cxSSpinEditInvalidNumericValue, "Invalid numeric value" - cxEditConsts_scxRegExprEmptySourceStream, "The source stream is empty" - cxEditConsts_scxRegExprCantUsePlusQuantifier, "The '+' quantifier cannot be applied here" - cxEditConsts_scxRegExprCantUseStarQuantifier, "The '*' quantifier cannot be applied here" - cxEditConsts_scxRegExprCantCreateEmptyAlt, "The alternative should not be empty" - cxEditConsts_scxRegExprCantCreateEmptyBlock, "The block should not be empty" - cxEditConsts_scxRegExprIllegalSymbol, "Illegal '%s'" cxEditConsts_scxRegExprIllegalQuantifier, "Illegal quantifier '%s'" cxEditConsts_scxRegExprIllegalIntegerValue, "Illegal integer value" cxEditConsts_scxRegExprTooBigReferenceNumber, "Too big reference number" @@ -1126,43 +1059,27 @@ BEGIN cxEditConsts_scxRegExprMissing, "Missing '%s'" cxEditConsts_scxRegExprUnnecessary, "Unnecessary '%s'" cxEditConsts_scxRegExprIncorrectSpace, "The space character is not allowed after '\\'" - cxEditConsts_scxSEditRepositoryCurrencyItem, "CurrencyEdit|Represents an editor enabling editing currency data" - cxEditConsts_scxSEditRepositoryDateItem, "DateEdit|Represents an edit control with a dropdown calendar" - cxEditConsts_scxSEditRepositoryHyperLinkItem, "HyperLink|Represents a text editor with hyperlink functionality" - cxEditConsts_scxSEditRepositoryImageComboBoxItem, "ImageComboBox|Represents an editor displaying the list of images and text strings within the dropdown window" - cxEditConsts_scxSEditRepositoryImageItem, "Image|Represents an image editor" - cxEditConsts_scxSEditRepositoryMaskItem, "MaskEdit|Represents a generic masked edit control." - cxEditConsts_scxSEditRepositoryMemoItem, "Memo|Represents an edit control that allows editing memo data" - cxEditConsts_scxSEditRepositoryMRUItem, "MRUEdit|Represents a text editor displaying the list of most recently used items (MRU) within a dropdown window" - cxEditConsts_scxSEditRepositoryPopupItem, "PopupEdit|Represents an edit control with a dropdown list" - cxEditConsts_scxSEditRepositorySpinItem, "SpinEdit|Represents a spin editor" - cxEditConsts_scxSEditRepositoryRadioGroupItem, "RadioGroup|Represents a group of radio buttons" - cxEditConsts_scxSEditRepositoryTextItem, "TextEdit|Represents a single line text editor" - cxEditConsts_scxSEditRepositoryTimeItem, "TimeEdit|Represents an editor displaying time values" - cxEditConsts_scxRegExprLine, "Line" - cxEditConsts_scxRegExprChar, "Char" - cxEditConsts_scxRegExprNotAssignedSourceStream, "The source stream is not assigned" - cxEditConsts_cxSDateSecond, "second" - cxEditConsts_cxSDateThird, "third" - cxEditConsts_cxSDateFourth, "fourth" - cxEditConsts_cxSDateFifth, "fifth" - cxEditConsts_cxSDateSixth, "sixth" + cxEditConsts_scxRegExprNotCompiled, "Regular expression is not compiled" + cxEditConsts_scxRegExprIncorrectParameterQuantifier, "Incorrect parameter quantifier" + cxEditConsts_scxRegExprCantUseParameterQuantifier, "The parameter quantifier cannot be applied here" + cxEditConsts_scxMaskEditRegExprError, "Regular expression errors:" + cxEditConsts_scxMaskEditInvalidEditValue, "The edit value is invalid" cxEditConsts_cxSDateSeventh, "seventh" cxEditConsts_cxSDateBOM, "bom" cxEditConsts_cxSDateEOM, "eom" cxEditConsts_cxSDateNow, "now" - cxEditConsts_scxSCalcError, "Error" - cxEditConsts_scxSHyperLinkPrefix, "http://" - cxEditConsts_scxSEditRepositoryBlobItem, "BlobEdit|Represents the BLOB editor" cxEditConsts_scxSEditRepositoryButtonItem, "ButtonEdit|Represents an edit control with embedded buttons" - cxEditConsts_scxSEditRepositoryCalcItem, "CalcEdit|Represents an edit control with a dropdown calculator window" - cxEditConsts_scxSEditRepositoryCheckBoxItem, "CheckBox|Represents a check box control that allows selecting an option" - cxEditConsts_scxSEditRepositoryComboBoxItem, "ComboBox|Represents the combo box editor" - cxEditConsts_cxSDatePopupClear, "Clear" - cxEditConsts_cxSDatePopupNow, "Now" - cxEditConsts_cxSDatePopupOK, "OK" - cxEditConsts_cxSDatePopupToday, "Today" - cxEditConsts_cxSDateError, "Invalid Date" + cxEditConsts_scxSEditRepositoryMaskItem, "MaskEdit|Represents a generic masked edit control." + cxEditConsts_scxSEditRepositoryTextItem, "TextEdit|Represents a single line text editor" + cxEditConsts_scxRegExprLine, "Line" + cxEditConsts_scxRegExprChar, "Char" + cxEditConsts_scxRegExprNotAssignedSourceStream, "The source stream is not assigned" + cxEditConsts_scxRegExprEmptySourceStream, "The source stream is empty" + cxEditConsts_scxRegExprCantUsePlusQuantifier, "The '+' quantifier cannot be applied here" + cxEditConsts_scxRegExprCantUseStarQuantifier, "The '*' quantifier cannot be applied here" + cxEditConsts_scxRegExprCantCreateEmptyAlt, "The alternative should not be empty" + cxEditConsts_scxRegExprCantCreateEmptyBlock, "The block should not be empty" + cxEditConsts_scxRegExprIllegalSymbol, "Illegal '%s'" cxEditConsts_cxSDateToday, "today" cxEditConsts_cxSDateYesterday, "yesterday" cxEditConsts_cxSDateTomorrow, "tomorrow" @@ -1174,22 +1091,15 @@ BEGIN cxEditConsts_cxSDateFriday, "Friday" cxEditConsts_cxSDateSaturday, "Saturday" cxEditConsts_cxSDateFirst, "first" - cxEditConsts_cxSEditCheckBoxGrayed, "" - cxEditConsts_cxSEditCheckBoxUnchecked, "False" - cxEditConsts_cxSRadioGroupDefaultCaption, "" - cxEditConsts_cxSBlobButtonOK, "&OK" - cxEditConsts_cxSBlobButtonCancel, "&Cancel" - cxEditConsts_cxSBlobButtonClose, "&Close" - cxEditConsts_cxSBlobMemo, "(MEMO)" - cxEditConsts_cxSBlobMemoEmpty, "(memo)" - cxEditConsts_cxSBlobPicture, "(PICTURE)" - cxEditConsts_cxSBlobPictureEmpty, "(picture)" - cxEditConsts_cxSMenuItemCaptionCut, "Cu&t" - cxEditConsts_cxSMenuItemCaptionCopy, "&Copy" - cxEditConsts_cxSMenuItemCaptionPaste, "&Paste" - cxEditConsts_cxSMenuItemCaptionDelete, "&Delete" - cxEditConsts_cxSMenuItemCaptionLoad, "&Load..." - cxEditConsts_cxSMenuItemCaptionSave, "Save &As..." + cxEditConsts_cxSDateSecond, "second" + cxEditConsts_cxSDateThird, "third" + cxEditConsts_cxSDateFourth, "fourth" + cxEditConsts_cxSDateFifth, "fifth" + cxEditConsts_cxSDateSixth, "sixth" + pnglang_EPNGUnknownCompressionText, "This \"Portable Network Graphics\" image is encoded with an unknown compression scheme which could not be decoded." + pnglang_EPNGUnknownInterlaceText, "This \"Portable Network Graphics\" image uses an unknown interlace scheme which could not be decoded." + pnglang_EPNGCannotAssignChunkText, "The chunks must be compatible to be assigned." + pnglang_EPNGUnexpectedEndText, "This \"Portable Network Graphics\" image is invalid because the decoder found an unexpected end of the file." pnglang_EPNGNoImageDataText, "This \"Portable Network Graphics\" image contains no data." pnglang_EPNGCannotChangeSizeText, "The \"Portable Network Graphics\" image can not be resize by changing width and height properties. Try assigning the image from a bitmap." pnglang_EPNGCannotAddChunkText, "The program tried to add a existent critical chunk to the current image which is not allowed." @@ -1198,14 +1108,14 @@ BEGIN pnglang_EPNGHeaderNotPresentText, "This operation is not valid because the current image contains no valid header." cxDataConsts_cxSDataReadError, "Stream read error" cxDataConsts_cxSDataWriteError, "Stream write error" - cxEditConsts_cxSEditDateConvertError, "Could not convert to date" cxEditConsts_cxSEditInvalidRepositoryItem, "The repository item is not acceptable" cxEditConsts_cxSEditNumericValueConvertError, "Could not convert to numeric value" - cxEditConsts_cxSEditPopupCircularReferencingError, "Circular referencing is not allowed" - cxEditConsts_cxSEditTimeConvertError, "Could not convert to time" cxEditConsts_cxSEditValidateErrorText, "Invalid input value. Use escape key to abandon changes" cxEditConsts_cxSEditValueOutOfBounds, "Value out of bounds" - cxEditConsts_cxSEditCheckBoxChecked, "True" + ADOConst_SConnectionRequired, "A connection component is required for async ExecuteOptions" + ADOConst_SCantRequery, "Cannot perform a requery after connection has changed" + ADOConst_SNoFilterOptions, "FilterOptions are not supported" + ADOConst_SRecordsetNotOpen, "Recordset is not open" ADOConst_sNameAttr, "Name" ADOConst_sValueAttr, "Value" pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)" @@ -1218,10 +1128,10 @@ BEGIN pnglang_EPNGSizeExceedsText, "This \"Portable Network Graphics\" image is not supported because either it's width or height exceeds the maximum size, which is 65535 pixels length." pnglang_EPNGUnknownPalEntryText, "There is no such palette entry." pnglang_EPNGUnknownCriticalChunkText, "This \"Portable Network Graphics\" image contains an unknown critical part which could not be decoded." - pnglang_EPNGUnknownCompressionText, "This \"Portable Network Graphics\" image is encoded with an unknown compression scheme which could not be decoded." - pnglang_EPNGUnknownInterlaceText, "This \"Portable Network Graphics\" image uses an unknown interlace scheme which could not be decoded." - pnglang_EPNGCannotAssignChunkText, "The chunks must be compatible to be assigned." - pnglang_EPNGUnexpectedEndText, "This \"Portable Network Graphics\" image is invalid because the decoder found an unexpected end of the file." + IBSQLMonitor_StrPlan, " Plan: " + IBSQLMonitor_StrPlanCantRetrive, " Plan: Can't retrieve plan - too large" + IBSQLMonitor_StrCommitHardComm, ": [Commit (Hard commit)]" + IBSQLMonitor_StrCommitRetaining, ": [Commit retaining (Soft commit)]" IBSQLMonitor_StrRollback, ": [Rollback]" IBSQLMonitor_StrRollbackRetainin, ": [Rollback retaining (Soft rollback)]" IBSQLMonitor_StrStartTransaction, ": [Start transaction]" @@ -1234,10 +1144,10 @@ BEGIN ADOConst_SADOCreateError, "Error creating object. Please verify that the Microsoft Data Access Components 2.1 (or later) have been properly installed" ADOConst_SEventsNotSupported, "Events are not supported with server side TableDirect cursors" ADOConst_SUsupportedFieldType, "Unsupported field type (%s) in field %s" - ADOConst_SConnectionRequired, "A connection component is required for async ExecuteOptions" - ADOConst_SCantRequery, "Cannot perform a requery after connection has changed" - ADOConst_SNoFilterOptions, "FilterOptions are not supported" - ADOConst_SRecordsetNotOpen, "Recordset is not open" + IBXConst_SIB70feature, "%s is an InterBase 7.0 function. Please upgrade to InterBase 7.0 to use this functonality" + IBXConst_SIB71feature, "%s is an InterBase 7.1 function. Please upgrade to InterBase 7.1 to use this functonality" + IBXConst_SIB80feature, "%s is an InterBase 2007 function. Please upgrade to InterBase 2007 to use this functonality" + IBSQLMonitor_StrConnect, ": [Connect]" IBSQLMonitor_StrDisconnect, ": [Disconnect]" IBSQLMonitor_StrMisc, "[Misc] " IBSQLMonitor_StrError, "[Error] " @@ -1250,10 +1160,9 @@ BEGIN IBSQLMonitor_StrBLOB, "" IBSQLMonitor_StrFetch, ": [Fetch] " IBSQLMonitor_StrPrepare, ": [Prepare] " - IBSQLMonitor_StrPlan, " Plan: " - IBSQLMonitor_StrPlanCantRetrive, " Plan: Can't retrieve plan - too large" - IBSQLMonitor_StrCommitHardComm, ": [Commit (Hard commit)]" - IBSQLMonitor_StrCommitRetaining, ": [Commit retaining (Soft commit)]" + IBXConst_SNosourceDirectory, "SourceDirectory is not set" + IBXConst_SNoUninstallFile, "Uninstall File Name is not set" + IBXConst_SOptionNeedsClient, "%s component requires Client to function properly" IBXConst_SOptionNeedsServer, "%s component requires Server to function properly" IBXConst_SInvalidOption, "Invalid option specified" IBXConst_SInvalidOnErrorResult, "Unexpected onError return value" @@ -1267,9 +1176,9 @@ BEGIN IBXConst_SNoTimers, "Not enough timers available" IBXConst_SIB65feature, "%s is an InterBase 6.5 function. Please upgrade to InterBase 6.5 to use this functonality" IBXConst_SLoginPromptFailure, "Can not find default login prompt dialog. Please add DBLogDlg to the uses section of your main file." - IBXConst_SIB70feature, "%s is an InterBase 7.0 function. Please upgrade to InterBase 7.0 to use this functonality" - IBXConst_SIB71feature, "%s is an InterBase 7.1 function. Please upgrade to InterBase 7.1 to use this functonality" - IBSQLMonitor_StrConnect, ": [Connect]" + IBXConst_SServiceInActive, "Cannot perform operation -- service is attached" + IBXConst_SServerNameMissing, "Server Name Missing" + IBXConst_SQueryParamsError, "Query Parameters missing or incorrect" IBXConst_SStartParamsError, "start Parameters missing or incorrect" IBXConst_SOutputParsingError, "Unexpected Output buffer value" IBXConst_SUseSpecificProcedures, "Generic ServiceStart not applicable: Use Specific Procedures to set configuration params" @@ -1283,9 +1192,9 @@ BEGIN IBXConst_SDelphiException, "DelphiException %s" IBXConst_SNoOptionsSet, "No Install Options selected" IBXConst_SNoDestinationDirectory, "DestinationDirectory is not set" - IBXConst_SNosourceDirectory, "SourceDirectory is not set" - IBXConst_SNoUninstallFile, "Uninstall File Name is not set" - IBXConst_SOptionNeedsClient, "%s component requires Client to function properly" + IBXConst_SNoTableName, "No Table Name assigned" + IBXConst_SCannotCreatePrimaryIndex, "Cannot Create Primary Index; are created automatically" + IBXConst_SCannotDropSystemIndex, "Cannot Drop System Index" IBXConst_STableNameMismatch, "Table Name Mismatch" IBXConst_SIndexFieldMissing, "Index Field Missing" IBXConst_SInvalidCancellation, "Cannot Cancel events while processing" @@ -1299,9 +1208,9 @@ BEGIN IBXConst_SSPBConstantNotSupported, "SPB Constant Not supported" IBXConst_SSPBConstantUnknown, "SPB Constant Unknown" IBXConst_SServiceActive, "Cannot perform operation -- service is not attached" - IBXConst_SServiceInActive, "Cannot perform operation -- service is attached" - IBXConst_SServerNameMissing, "Server Name Missing" - IBXConst_SQueryParamsError, "Query Parameters missing or incorrect" + IBXConst_SWindowsAPIError, "Windows API error. (Windows error %d [$%.8x])" + IBXConst_SColumnListsDontMatch, "Column lists do not match" + IBXConst_SColumnTypesDontMatch, "Column types don't match. (From index: %d; To index: %d)" IBXConst_SCantEndSharedTransaction, "Can't end a shared transaction unless it is forced and equal to the transaction's TimeoutAction" IBXConst_SFieldUnsupportedType, "Unsupported Field Type" IBXConst_SCircularDataLink, "Circular DataLink Reference" @@ -1315,9 +1224,9 @@ BEGIN IBXConst_SNotLiveRequest, "Request is not live - cannot modify" IBXConst_SNoProvider, "No Provider" IBXConst_SNoRecordsAffected, "No Records Affected" - IBXConst_SNoTableName, "No Table Name assigned" - IBXConst_SCannotCreatePrimaryIndex, "Cannot Create Primary Index; are created automatically" - IBXConst_SCannotDropSystemIndex, "Cannot Drop System Index" + IBXConst_SCannotOpenNonSQLSelect, "Cannot \"open\" a non-select statement. Use ExecQuery" + IBXConst_SNoFieldAccess, "No access to field \"%s\"" + IBXConst_SFieldReadOnly, "Field \"%s\" is read-only" IBXConst_SFieldNotFound, "Field \"%s\" not found" IBXConst_SNotEditing, "Not in edit mode" IBXConst_SCannotInsert, "Cannot insert into dataset. (No insert query)" @@ -1331,9 +1240,9 @@ BEGIN IBXConst_SUserAbort, "User abort" IBXConst_SDataSetUniDirectional, "Data set is uni-directional" IBXConst_SCannotCreateSharedResource, "Cannot create shared resource. (Windows error %d)" - IBXConst_SWindowsAPIError, "Windows API error. (Windows error %d [$%.8x])" - IBXConst_SColumnListsDontMatch, "Column lists do not match" - IBXConst_SColumnTypesDontMatch, "Column types don't match. (From index: %d; To index: %d)" + IBXConst_SXSQLDANameDoesNotExist, "XSQLDA name does not exist (%s)" + IBXConst_SEOF, "End of file" + IBXConst_SBOF, "Beginning of file" IBXConst_SInvalidStatementHandle, "Invalid statement handle" IBXConst_SSQLOpen, "IBSQL Open" IBXConst_SSQLClosed, "IBSQL Closed" @@ -1347,9 +1256,9 @@ BEGIN IBXConst_SBlobCannotBeRead, "Blob stream cannot be read" IBXConst_SBlobCannotBeWritten, "Blob stream cannot be written" IBXConst_SEmptyQuery, "Empty query" - IBXConst_SCannotOpenNonSQLSelect, "Cannot \"open\" a non-select statement. Use ExecQuery" - IBXConst_SNoFieldAccess, "No access to field \"%s\"" - IBXConst_SFieldReadOnly, "Field \"%s\" is read-only" + IBXConst_SDPBConstantNotSupported, "DPB Constant (isc_dpb_%s) is unsupported" + IBXConst_SDPBConstantUnknown, "DPB Constant (%d) is unknown" + IBXConst_STPBConstantNotSupported, "TPB Constant (isc_tpb_%s) is unsupported" IBXConst_STPBConstantUnknown, "TPB Constant (%d) is unknown" IBXConst_SDatabaseClosed, "Cannot perform operation -- DB is not open" IBXConst_SDatabaseOpen, "Cannot perform operation -- DB is currently open" @@ -1363,11 +1272,11 @@ BEGIN IBXConst_SDatabaseNotAssigned, "Database not assigned" IBXConst_STransactionNotAssigned, "Transaction not assigned" IBXConst_SXSQLDAIndexOutOfRange, "XSQLDA index out of range" - IBXConst_SXSQLDANameDoesNotExist, "XSQLDA name does not exist (%s)" - IBXConst_SEOF, "End of file" - IBXConst_SBOF, "Beginning of file" - VDBConsts_SRefreshRecord, "Refresh data" - VDBConsts_SRemoteLogin, "Remote Login" + uDARes_err_NeedShareMem, "To use dynamically loaded drivers, you must build your application with ShareMem." + uDARes_err_ExecuteSQLCommandNotAllowed, "ExecuteSQLCommand is not enabled for this server." + uDARes_err_DatasetNotAccessible, "Access to dataset %s has not been permitted." + uDARes_err_CommandNotAccessible, "executon of command %s has not been permitted." + uDARes_err_SQLNotPermitted, "Execution of the specified SQL statement has not been permitted." IBXConst_SUnknownError, "Unknown error" IBXConst_SInterBaseMissing, "InterBase library gds32.dll not found in the path. Please install InterBase to use this functionality" IBXConst_SInterBaseInstallMissing, "InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality" @@ -1379,27 +1288,6 @@ BEGIN IBXConst_SCannotSetDatabase, "Cannot set database" IBXConst_SCannotSetTransaction, "Cannot set transaction" IBXConst_SOperationCancelled, "Operation cancelled at user's request" - IBXConst_SDPBConstantNotSupported, "DPB Constant (isc_dpb_%s) is unsupported" - IBXConst_SDPBConstantUnknown, "DPB Constant (%d) is unknown" - IBXConst_STPBConstantNotSupported, "TPB Constant (isc_tpb_%s) is unsupported" - uDARes_err_DARDMConnectionIsNotAssigned, "Connection is not assigned" - uDARes_err_DARDMCannotFindProxessorForDelta, "Cannot find a business processor for delta \"%s\"" - uDARes_err_NeedShareMem, "To use dynamically loaded drivers, you must build your application with ShareMem." - uDARes_err_ExecuteSQLCommandNotAllowed, "ExecuteSQLCommand is not enabled for this server." - uDARes_err_DatasetNotAccessible, "Access to dataset %s has not been permitted." - uDARes_err_CommandNotAccessible, "executon of command %s has not been permitted." - uDARes_err_SQLNotPermitted, "Execution of the specified SQL statement has not been permitted." - VDBConsts_SFirstRecord, "First record" - VDBConsts_SPriorRecord, "Prior record" - VDBConsts_SNextRecord, "Next record" - VDBConsts_SLastRecord, "Last record" - VDBConsts_SInsertRecord, "Insert record" - VDBConsts_SDeleteRecord, "Delete record" - VDBConsts_SEditRecord, "Edit record" - VDBConsts_SPostEdit, "Post edit" - VDBConsts_SCancelEdit, "Cancel edit" - uDARes_err_CannotFindItem, "Cannot find %s \"%s\" in collection of type %s" - uDARes_err_DriverAlreadyLoaded, "Driver %s is already loaded" uDARes_err_InvalidDLL, "%s is not a valid Data Abstract driver" uDARes_err_UnknownDriver, "Unknown driver %s" uDARes_err_FieldIsNotBound, "Field is not bound" @@ -1414,8 +1302,8 @@ BEGIN uDARes_err_HETConnectionNotSupportedInV3, "HET Connections are not supported by te legacy v3 DARemoteService" uDARes_err_DARDMInvalidSchema, "Schema must be assigned and must point to a ConnectionManager" uDARes_err_DARDMUnassignedAdapter, "DataAdapter is not assigned" - JvResources_RsCl3DDkShadow, "Dark shadow 3D elements" - JvResources_RsCl3DLight, "Highlight 3D elements" + uDARes_err_DARDMConnectionIsNotAssigned, "Connection is not assigned" + uDARes_err_DARDMCannotFindProxessorForDelta, "Cannot find a business processor for delta \"%s\"" JvResources_RsClInfoText, "Tooltip text" JvResources_RsClInfoBk, "Tooltip background" JvResources_RsGradientActiveCaption, "Gradient Active Caption" @@ -1430,8 +1318,8 @@ BEGIN uDARes_err_DriverManagerNotAssigned, "Driver Manager is not assigned" uDARes_err_FieldTypeNotSupported, "FieldType %s (%d) is not supported" uDARes_err_InvalidDataset, "Invalid or NIL dataset" - JvResources_RsClWindow, "Window background" - JvResources_RsClWindowFrame, "Window frame" + uDARes_err_CannotFindItem, "Cannot find %s \"%s\" in collection of type %s" + uDARes_err_DriverAlreadyLoaded, "Driver %s is already loaded" JvResources_RsClMenuText, "Menu text" JvResources_RsClWindowText, "Window text" JvResources_RsClCaptionText, "Active window title bar text" @@ -1446,8 +1334,8 @@ BEGIN JvResources_RsClBtnText, "Button text" JvResources_RsClInactiveCaptionText, "Inactive window title bar text" JvResources_RsClBtnHighlight, "Button highlight" - JvResources_RsClBrightGreen, "Bright Green" - JvResources_RsClTurquoise, "Turquoise" + JvResources_RsCl3DDkShadow, "Dark shadow 3D elements" + JvResources_RsCl3DLight, "Highlight 3D elements" JvResources_RsClPlum, "Plum" JvResources_RsClGray25, "Gray 25%" JvResources_RsClRose, "Rose" @@ -1462,8 +1350,8 @@ BEGIN JvResources_RsClActiveCaption, "Active window title bar" JvResources_RsClInactiveCaption, "Inactive window title bar" JvResources_RsClMenu, "Menu background" - JvResources_RsClDarkTeal, "Dark Teal" - JvResources_RsClDarkBlue, "Dark Blue" + JvResources_RsClWindow, "Window background" + JvResources_RsClWindowFrame, "Window frame" JvResources_RsClIndigo, "Indigo" JvResources_RsClGray80, "Gray 80%" JvResources_RsClDarkRed, "Dark Red" @@ -1478,8 +1366,8 @@ BEGIN JvResources_RsClGray40, "Gray 40%" JvResources_RsClPink, "Pink" JvResources_RsClGold, "Gold" - JvResources_RsClGray, "Gray" - JvResources_RsClSilver, "Silver" + JvResources_RsClBrightGreen, "Bright Green" + JvResources_RsClTurquoise, "Turquoise" JvResources_RsClRed, "Red" JvResources_RsClLime, "Lime" JvResources_RsClYellow, "Yellow" @@ -1494,8 +1382,8 @@ BEGIN JvResources_RsClBrown, "Brown" JvResources_RsClOliveGreen, "Olive Green" JvResources_RsClDarkGreen, "Dark Green" - JvResources_RsENoGIFData, "No GIF Data to write" - JvResources_RsEUnrecognizedGIFExt, "Unrecognized extension block: %.2x" + JvResources_RsClDarkTeal, "Dark Teal" + JvResources_RsClDarkBlue, "Dark Blue" JvResources_RsEWrongGIFColors, "Wrong number of colors; must be a power of 2" JvResources_RsEBadGIFCodeSize, "GIF code size not in range 2 to 9" JvResources_RsEGIFDecodeError, "GIF encoded data is corrupt" @@ -1510,8 +1398,8 @@ BEGIN JvResources_RsClNavy, "Navy blue" JvResources_RsClPurple, "Purple" JvResources_RsClTeal, "Teal" - JclResources_RsIntelCacheDescrB3, "Data TLB: 4 KByte pages, 4-way set associative, 128 entries" - JclResources_RsIntelCacheDescrB4, "Data TLB1: 4 KByte pages, 4-way set associative, 256 entries" + JvResources_RsClGray, "Gray" + JvResources_RsClSilver, "Silver" JclResources_RsIntelCacheDescrF0, "64-Byte Prefetching" JclResources_RsIntelCacheDescrF1, "128-Byte Prefetching" JvResources_RsAniExtension, "ani" @@ -1526,8 +1414,8 @@ BEGIN JvResources_RsECircularReferenceOfStorages, "Circular reference of storages" JvResources_RsGIFImage, "CompuServe GIF Image" JvResources_RsEChangeGIFSize, "Cannot change the Size of a GIF image" - JclResources_RsIntelCacheDescr71, "Trace cache: 16 K-Ops, 8-way set associative" - JclResources_RsIntelCacheDescr72, "Trace cache: 32 K-Ops, 8-way set associative" + JvResources_RsENoGIFData, "No GIF Data to write" + JvResources_RsEUnrecognizedGIFExt, "Unrecognized extension block: %.2x" JclResources_RsIntelCacheDescr78, "2nd-level cache: 1 MBytes, 4-way set associative, 64 bytes line size" JclResources_RsIntelCacheDescr79, "2nd-level cache: 128 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" JclResources_RsIntelCacheDescr7A, "2nd-level cache: 256 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" @@ -1542,8 +1430,8 @@ BEGIN JclResources_RsIntelCacheDescr86, "2nd-level cache: 512 KByte, 4-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr87, "2nd-level cache: 1 MByte, 8-way set associative, 64 byte line size" JclResources_RsIntelCacheDescrB0, "Instruction TLB: 4 KByte pages, 4-way set associative, 128 entries" - JclResources_RsIntelCacheDescr46, "3rd-level cache: 4 MBytes, 4-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr47, "3rd-level cache: 8 MBytes, 4-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescrB3, "Data TLB: 4 KByte pages, 4-way set associative, 128 entries" + JclResources_RsIntelCacheDescrB4, "Data TLB1: 4 KByte pages, 4-way set associative, 256 entries" JclResources_RsIntelCacheDescr49, "2nd-level cache: 4 MBytes, 16-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr50, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 64 Entries" JclResources_RsIntelCacheDescr51, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 128 Entries" @@ -1558,8 +1446,8 @@ BEGIN JclResources_RsIntelCacheDescr67, "1st-level data cache: 16 KBytes, 4-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr68, "1st-level data cache: 32 KBytes, 4-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr70, "Trace cache: 12 K-Ops, 8-way set associative" - JclResources_RsIntelCacheDescr08, "1st level instruction cache: 16 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsIntelCacheDescr0A, "1st level data cache: 8 KBytes, 2-way set associative, 32 byte line size" + JclResources_RsIntelCacheDescr71, "Trace cache: 16 K-Ops, 8-way set associative" + JclResources_RsIntelCacheDescr72, "Trace cache: 32 K-Ops, 8-way set associative" JclResources_RsIntelCacheDescr0B, "Instruction TLB: 4 MByte pages, 4-way set associative, 4 entries" JclResources_RsIntelCacheDescr0C, "1st level data cache: 16 KBytes, 4-way set associative, 32 byte line size" JclResources_RsIntelCacheDescr22, "3rd level cache: 512 KBytes, 4-way set associative, 64 byte line size, 2 lines per sector" @@ -1574,8 +1462,8 @@ BEGIN JclResources_RsIntelCacheDescr43, "2nd-level cache: 512 KBytes, 4-way set associative, 32 byte line size" JclResources_RsIntelCacheDescr44, "2nd-level cache: 1 MBytes, 4-way set associative, 32 byte line size" JclResources_RsIntelCacheDescr45, "2nd-level cache: 2 MBytes, 4-way set associative, 32 byte line size" - JclResources_RsRTTIParamCount, "Parameter count: " - JclResources_RsRTTIReturnType, "Return type: " + JclResources_RsIntelCacheDescr46, "3rd-level cache: 4 MBytes, 4-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr47, "3rd-level cache: 8 MBytes, 4-way set associative, 64 byte line size" JclResources_RsRTTIMaxLen, "Max length: " JclResources_RsRTTIElSize, "Element size: " JclResources_RsRTTIElType, "Element type: " @@ -1590,8 +1478,8 @@ BEGIN JclResources_RsIntelCacheDescr04, "Data TLB: 4 MByte pages, 4-way set associative, 8 entries" JclResources_RsIntelCacheDescr05, "Data TLB1: 4 MByte pages, 4-way set associative, 32 entries" JclResources_RsIntelCacheDescr06, "1st level instruction cache: 8 KBytes, 4-way set associative, 32 byte line size" - JclResources_RsRTTIName, "Name: " - JclResources_RsRTTIType, "Type: " + JclResources_RsIntelCacheDescr08, "1st level instruction cache: 16 KBytes, 4-way set associative, 32 byte line size" + JclResources_RsIntelCacheDescr0A, "1st level data cache: 8 KBytes, 2-way set associative, 32 byte line size" JclResources_RsRTTIFlags, "Flags: " JclResources_RsRTTIGUID, "GUID: " JclResources_RsRTTITypeKind, "Type kind: " @@ -1606,8 +1494,8 @@ BEGIN JclResources_RsRTTIBasedOn, "Based on: " JclResources_RsRTTIFloatType, "Float type: " JclResources_RsRTTIMethodKind, "Method kind: " - JclResources_RsRTTIConst, "const " - JclResources_RsRTTIArrayOf, "array of " + JclResources_RsRTTIParamCount, "Parameter count: " + JclResources_RsRTTIReturnType, "Return type: " JclResources_RsRTTIOut, "out " JclResources_RsRTTIOrdinal, "ordinal=" JclResources_RsRTTITrue, "True" @@ -1622,8 +1510,8 @@ BEGIN JclResources_RsRTTIVirtualMethod, "virtual method" JclResources_RsRTTIIndex, "index" JclResources_RsRTTIDefault, "default" - JclResources_RsHKCULong, "HKEY_CURRENT_USER" - JclResources_RsHKLMLong, "HKEY_LOCAL_MACHINE" + JclResources_RsRTTIName, "Name: " + JclResources_RsRTTIType, "Type: " JclResources_RsHKUSLong, "HKEY_USERS" JclResources_RsHKPDLong, "HKEY_PERFORMANCE_DATA" JclResources_RsHKCCLong, "HKEY_CURRENT_CONFIG" @@ -1638,8 +1526,8 @@ BEGIN JclResources_RsRTTIValueOutOfRange, "Value out of range (%s)." JclResources_RsRTTIUnknownIdentifier, "Unknown identifier '%s'." JclResources_RsRTTIVar, "var " - ComStrs_sPageIndexError, "%d is an invalid PageIndex value. PageIndex must be between 0 and %d" - JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" + JclResources_RsRTTIConst, "const " + JclResources_RsRTTIArrayOf, "array of " JConsts_sJPEGError, "JPEG error #%d" JConsts_sJPEGImageFile, "JPEG Image File" JclResources_RsWin32Prefix, "Win32: %s (%u)" @@ -1654,12 +1542,12 @@ BEGIN JclResources_RsWrongDataType, "\"%s\\%s\\%s\" is of wrong kind or size" JclResources_RsInconsistentPath, "\"%s\" does not match RootKey" JclResources_RsHKCRLong, "HKEY_CLASSES_ROOT" - IdResourceStringsCore_RSBufferMissingTerminator, "Buffer terminator must be specified." - IdResourceStringsCore_RSBufferInvalidStartPos, "Buffer start position is invalid." - IdResourceStringsCore_RSReplyInvalidCode, "Reply Code is not valid: %s" - IdResourceStringsCore_RSThreadSchedulerThreadRequired, "Thread must be specified for the scheduler." - IdResourceStringsCore_RSNoOnExecute, "You must have an OnExecute event." - IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive, "Cannot change the scheduler while the server is Active." + JclResources_RsHKCULong, "HKEY_CURRENT_USER" + JclResources_RsHKLMLong, "HKEY_LOCAL_MACHINE" + IdResourceStringsProtocols_RSHTTPErrorParsingCommand, "Error in parsing command." + IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme, "Unsupported authorization scheme." + IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive, "Cannot change session state when the server is active." + IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered, "This authentication method is already registered with class name %s." ComStrs_sTabFailClear, "Failed to clear tab control" ComStrs_sTabFailDelete, "Failed to delete tab at index %d" ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d" @@ -1670,6 +1558,59 @@ BEGIN ComStrs_sInvalidIndex, "Invalid index" ComStrs_sInsertError, "Unable to insert an item" ComStrs_sUDAssociated, "%s is already associated with %s" + ComStrs_sPageIndexError, "%d is an invalid PageIndex value. PageIndex must be between 0 and %d" + JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" + IdResourceStringsProtocols_RSHTTPRequestTimeout, "Request Timeout" + IdResourceStringsProtocols_RSHTTPConflict, "Conflict" + IdResourceStringsProtocols_RSHTTPGone, "Gone" + IdResourceStringsProtocols_RSHTTPLengthRequired, "Length Required" + IdResourceStringsProtocols_RSHTTPPreconditionFailed, "Precondition Failed" + IdResourceStringsProtocols_RSHTTPRequestEntityToLong, "Request Entity To Long" + IdResourceStringsProtocols_RSHTTPRequestURITooLong, "Request-URI Too Long. 256 Chars max" + IdResourceStringsProtocols_RSHTTPUnsupportedMediaType, "Unsupported Media Type" + IdResourceStringsProtocols_RSHTTPInternalServerError, "Internal Server Error" + IdResourceStringsProtocols_RSHTTPNotImplemented, "Not Implemented" + IdResourceStringsProtocols_RSHTTPBadGateway, "Bad Gateway" + IdResourceStringsProtocols_RSHTTPServiceUnavailable, "Service Unavailable" + IdResourceStringsProtocols_RSHTTPGatewayTimeout, "Gateway timeout" + IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported, "HTTP version not supported" + IdResourceStringsProtocols_RSHTTPUnknownResponseCode, "Unknown Response Code" + IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten, "Header has already been written." + IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation, "Non-authoritative Information" + IdResourceStringsProtocols_RSHTTPNoContent, "No Content" + IdResourceStringsProtocols_RSHTTPResetContent, "Reset Content" + IdResourceStringsProtocols_RSHTTPPartialContent, "Partial Content" + IdResourceStringsProtocols_RSHTTPMovedPermanently, "Moved Permanently" + IdResourceStringsProtocols_RSHTTPMovedTemporarily, "Moved Temporarily" + IdResourceStringsProtocols_RSHTTPSeeOther, "See Other" + IdResourceStringsProtocols_RSHTTPNotModified, "Not Modified" + IdResourceStringsProtocols_RSHTTPUseProxy, "Use Proxy" + IdResourceStringsProtocols_RSHTTPBadRequest, "Bad Request" + IdResourceStringsProtocols_RSHTTPUnauthorized, "Unauthorized" + IdResourceStringsProtocols_RSHTTPForbidden, "Forbidden" + IdResourceStringsProtocols_RSHTTPNotFound, "Not Found" + IdResourceStringsProtocols_RSHTTPMethodNotAllowed, "Method not allowed" + IdResourceStringsProtocols_RSHTTPNotAcceptable, "Not Acceptable" + IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired, "Proxy Authentication Required" + IdResourceStringsCore_RSchedMaxThreadEx, "The maximum number of threads for this scheduler is exceeded." + IdResourceStringsCore_RSTransparentProxyCannotBind, "Transparent proxy cannot bind." + IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP, "UDP Not supported by this proxy." + IdResourceStringsCore_RSBufferMissingTerminator, "Buffer terminator must be specified." + IdResourceStringsCore_RSBufferInvalidStartPos, "Buffer start position is invalid." + IdResourceStringsCore_RSReplyInvalidCode, "Reply Code is not valid: %s" + IdResourceStringsCore_RSThreadSchedulerThreadRequired, "Thread must be specified for the scheduler." + IdResourceStringsCore_RSNoOnExecute, "You must have an OnExecute event." + IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive, "Cannot change the scheduler while the server is Active." + IdResourceStringsProtocols_RSMIMEExtensionEmpty, "Extension is empty" + IdResourceStringsProtocols_RSMIMEMIMETypeEmpty, "Mimetype is empty" + IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists, "Extension already exits" + IdResourceStringsProtocols_RSHTTPContinue, "Continue" + IdResourceStringsProtocols_RSHTTPOK, "OK" + IdResourceStringsProtocols_RSHTTPCreated, "Created" + IdResourceStringsProtocols_RSHTTPAccepted, "Accepted" + IdResourceStringsCore_RSSocksServerTTLExpiredError, "TTL expired." + IdResourceStringsCore_RSSocksServerCommandError, "Command not supported." + IdResourceStringsCore_RSSocksServerAddressError, "Address type not supported." IdResourceStringsCore_RSInterceptCircularLink, "%d: Circular links are not allowed" IdResourceStringsCore_RSNotEnoughDataInBuffer, "Not enough data in buffer." IdResourceStringsCore_RSTooMuchDataInBuffer, "Too much data in buffer." @@ -1683,9 +1624,9 @@ BEGIN IdResourceStringsCore_RSThreadTerminateAndWaitFor, "Cannot call TerminateAndWaitFor on FreeAndTerminate threads" IdResourceStringsCore_RSAlreadyConnected, "Already connected." IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded, "Maximum number of line allowed exceeded" - IdResourceStringsCore_RSchedMaxThreadEx, "The maximum number of threads for this scheduler is exceeded." - IdResourceStringsCore_RSTransparentProxyCannotBind, "Transparent proxy cannot bind." - IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP, "UDP Not supported by this proxy." + IdResourceStrings_RSNotAllBytesSent, "Not all bytes sent." + IdResourceStrings_RSPackageSizeTooBig, "Package Size Too Big." + IdResourceStrings_RSSetSizeExceeded, "Set Size Exceeded." IdResourceStringsCore_RSSocksUDPNotSupported, "UDP is not support in this SOCKS version." IdResourceStringsCore_RSSocksRequestFailed, "Request rejected or failed." IdResourceStringsCore_RSSocksRequestServerFailed, "Request rejected because SOCKS server cannot connect." @@ -1699,59 +1640,6 @@ BEGIN IdResourceStringsCore_RSSocksServerNetUnreachableError, "Network unreachable." IdResourceStringsCore_RSSocksServerHostUnreachableError, "Host unreachable." IdResourceStringsCore_RSSocksServerConnectionRefusedError, "Connection refused." - IdResourceStringsCore_RSSocksServerTTLExpiredError, "TTL expired." - IdResourceStringsCore_RSSocksServerCommandError, "Command not supported." - IdResourceStringsCore_RSSocksServerAddressError, "Address type not supported." - IdResourceStringsProtocols_RSHTTPPreconditionFailed, "Precondition Failed" - IdResourceStringsProtocols_RSHTTPRequestEntityToLong, "Request Entity To Long" - IdResourceStringsProtocols_RSHTTPRequestURITooLong, "Request-URI Too Long. 256 Chars max" - IdResourceStringsProtocols_RSHTTPUnsupportedMediaType, "Unsupported Media Type" - IdResourceStringsProtocols_RSHTTPInternalServerError, "Internal Server Error" - IdResourceStringsProtocols_RSHTTPNotImplemented, "Not Implemented" - IdResourceStringsProtocols_RSHTTPBadGateway, "Bad Gateway" - IdResourceStringsProtocols_RSHTTPServiceUnavailable, "Service Unavailable" - IdResourceStringsProtocols_RSHTTPGatewayTimeout, "Gateway timeout" - IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported, "HTTP version not supported" - IdResourceStringsProtocols_RSHTTPUnknownResponseCode, "Unknown Response Code" - IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten, "Header has already been written." - IdResourceStringsProtocols_RSHTTPErrorParsingCommand, "Error in parsing command." - IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme, "Unsupported authorization scheme." - IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive, "Cannot change session state when the server is active." - IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered, "This authentication method is already registered with class name %s." - IdResourceStringsProtocols_RSHTTPMovedPermanently, "Moved Permanently" - IdResourceStringsProtocols_RSHTTPMovedTemporarily, "Moved Temporarily" - IdResourceStringsProtocols_RSHTTPSeeOther, "See Other" - IdResourceStringsProtocols_RSHTTPNotModified, "Not Modified" - IdResourceStringsProtocols_RSHTTPUseProxy, "Use Proxy" - IdResourceStringsProtocols_RSHTTPBadRequest, "Bad Request" - IdResourceStringsProtocols_RSHTTPUnauthorized, "Unauthorized" - IdResourceStringsProtocols_RSHTTPForbidden, "Forbidden" - IdResourceStringsProtocols_RSHTTPNotFound, "Not Found" - IdResourceStringsProtocols_RSHTTPMethodNotAllowed, "Method not allowed" - IdResourceStringsProtocols_RSHTTPNotAcceptable, "Not Acceptable" - IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired, "Proxy Authentication Required" - IdResourceStringsProtocols_RSHTTPRequestTimeout, "Request Timeout" - IdResourceStringsProtocols_RSHTTPConflict, "Conflict" - IdResourceStringsProtocols_RSHTTPGone, "Gone" - IdResourceStringsProtocols_RSHTTPLengthRequired, "Length Required" - IdResourceStrings_RSInvalidIPv6Address, "%s is not a valid IPv6 address" - IdResourceStrings_RSIPVersionUnsupported, "The requested IPVersion / Address family is not supported." - IdResourceStrings_RSNotAllBytesSent, "Not all bytes sent." - IdResourceStrings_RSPackageSizeTooBig, "Package Size Too Big." - IdResourceStrings_RSSetSizeExceeded, "Set Size Exceeded." - IdResourceStringsProtocols_RSMIMEExtensionEmpty, "Extension is empty" - IdResourceStringsProtocols_RSMIMEMIMETypeEmpty, "Mimetype is empty" - IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists, "Extension already exits" - IdResourceStringsProtocols_RSHTTPContinue, "Continue" - IdResourceStringsProtocols_RSHTTPOK, "OK" - IdResourceStringsProtocols_RSHTTPCreated, "Created" - IdResourceStringsProtocols_RSHTTPAccepted, "Accepted" - IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation, "Non-authoritative Information" - IdResourceStringsProtocols_RSHTTPNoContent, "No Content" - IdResourceStringsProtocols_RSHTTPResetContent, "Reset Content" - IdResourceStringsProtocols_RSHTTPPartialContent, "Partial Content" - IdResourceStrings_RSStackELOOP, "Too many levels of symbolic links." - IdResourceStrings_RSStackENAMETOOLONG, "File name too long." IdResourceStrings_RSStackEHOSTDOWN, "Host is down." IdResourceStrings_RSStackEHOSTUNREACH, "No route to host." IdResourceStrings_RSStackENOTEMPTY, "Directory not empty" @@ -1766,8 +1654,8 @@ BEGIN IdResourceStrings_RSInvalidPortRange, "Invalid Port Range (%d - %d)" IdResourceStrings_RSInvalidServiceName, "%s is not a valid service." IdResourceStrings_RSIPv6Unavailable, "IPv6 unavailable" - IdResourceStrings_RSStackEPFNOSUPPORT, "Protocol family not supported." - IdResourceStrings_RSStackEAFNOSUPPORT, "Address family not supported by protocol family." + IdResourceStrings_RSInvalidIPv6Address, "%s is not a valid IPv6 address" + IdResourceStrings_RSIPVersionUnsupported, "The requested IPVersion / Address family is not supported." IdResourceStrings_RSStackEADDRINUSE, "Address already in use." IdResourceStrings_RSStackEADDRNOTAVAIL, "Cannot assign requested address." IdResourceStrings_RSStackENETDOWN, "Network is down." @@ -1782,8 +1670,8 @@ BEGIN IdResourceStrings_RSStackETOOMANYREFS, "Too many references, cannot splice." IdResourceStrings_RSStackETIMEDOUT, "Connection timed out." IdResourceStrings_RSStackECONNREFUSED, "Connection refused." - IdResourceStrings_RSStackEBADF, "Bad file number." - IdResourceStrings_RSStackEACCES, "Access denied." + IdResourceStrings_RSStackELOOP, "Too many levels of symbolic links." + IdResourceStrings_RSStackENAMETOOLONG, "File name too long." IdResourceStrings_RSStackEFAULT, "Buffer fault." IdResourceStrings_RSStackEINVAL, "Invalid argument." IdResourceStrings_RSStackEMFILE, "Too many open files." @@ -1798,8 +1686,8 @@ BEGIN IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported." IdResourceStrings_RSStackESOCKTNOSUPPORT, "Socket type not supported." IdResourceStrings_RSStackEOPNOTSUPP, "Operation not supported on socket." - DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" - DBConsts_SInvalidFormatType, "Invalid format type for BCD" + IdResourceStrings_RSStackEPFNOSUPPORT, "Protocol family not supported." + IdResourceStrings_RSStackEAFNOSUPPORT, "Address family not supported by protocol family." DBConsts_SCouldNotParseTimeStamp, "Could not parse SQL TimeStamp string" DBConsts_SInvalidSqlTimeStamp, "Invalid SQL date/time values" IdResourceStrings_RSFailedTimeZoneInfo, "Failed attempting to retrieve time zone information." @@ -1814,8 +1702,8 @@ BEGIN IdResourceStrings_RSStatusText, "%s" IdResourceStrings_RSStackError, "Socket Error # %d\r\n%s" IdResourceStrings_RSStackEINTR, "Interrupted system call." - DBConsts_SNotEditing, "Dataset not in edit or insert mode" - DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" + IdResourceStrings_RSStackEBADF, "Bad file number." + IdResourceStrings_RSStackEACCES, "Access denied." DBConsts_SDataSetEmpty, "Cannot perform this operation on an empty dataset" DBConsts_SDataSetReadOnly, "Cannot modify a read-only dataset" DBConsts_SNestedDataSetClass, "Nested dataset must inherit from %s" @@ -1830,8 +1718,8 @@ BEGIN DBConsts_SUnassignedVar, "Unassigned variant value" DBConsts_SRecordNotFound, "Record not found" DBConsts_SBcdOverflow, "BCD overflow" - DBConsts_SInvalidBoolValue, "'%s' is not a valid boolean value for field '%s'" - DBConsts_SInvalidFloatValue, "'%s' is not a valid floating point value for field '%s'" + DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" + DBConsts_SInvalidFormatType, "Invalid format type for BCD" DBConsts_SFieldTypeMismatch, "Type mismatch for field '%s', expecting: %s actual: %s" DBConsts_SFieldSizeMismatch, "Size mismatch for field '%s', expecting: %d actual: %d" DBConsts_SInvalidVarByteArray, "Invalid variant type or size for field '%s'" @@ -1846,11 +1734,11 @@ BEGIN DBConsts_SLookupInfoError, "Lookup information for field '%s' is incomplete" DBConsts_SDataSourceChange, "DataSource cannot be changed" DBConsts_SDataSetOpen, "Cannot perform this operation on an open dataset" - uRORes_err_MessageNotAssigned, "Message is NIL" - ComConst_SOleError, "OLE error %.8x" - ComConst_SNoMethod, "Method '%s' not supported by automation object" - ComConst_SVarNotObject, "Variant does not reference an automation object" - ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" + DBConsts_SNotEditing, "Dataset not in edit or insert mode" + DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" + uRODECConst_sFMT_XX, "XX Coding" + uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be within %d-%d bytes" + uRODECConst_sNotInitialized, "%s is not initialized, call Init() or InitKey() first." DBConsts_SInvalidFieldSize, "Invalid field size" DBConsts_SInvalidFieldKind, "Invalid FieldKind" DBConsts_SUnknownFieldType, "Field '%s' is of an unknown type" @@ -1862,6 +1750,30 @@ BEGIN DBConsts_SFieldRangeError, "%g is not a valid value for field '%s'. The allowed range is %g to %g" DBConsts_SBcdFieldRangeError, "%s is not a valid value for field '%s'. The allowed range is %s to %s" DBConsts_SInvalidIntegerValue, "'%s' is not a valid integer value for field '%s'" + DBConsts_SInvalidBoolValue, "'%s' is not a valid boolean value for field '%s'" + DBConsts_SInvalidFloatValue, "'%s' is not a valid floating point value for field '%s'" + uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" + uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." + uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" + uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d" + uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d" + uRORes_err_CannotFindParameter, "Cannot find parameter %s" + uRORes_err_MessageNotAssigned, "Message is NIL" + uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid." + uRODECConst_sStringFormatExists, "String Format \"%d\" does not exist." + uRODECConst_sInvalidStringFormat, "Input is not a valid %s Format." + uRODECConst_sInvalidFormatString, "Input cannot be converted to %s Format." + uRODECConst_sFMT_COPY, "copy Input to Output" + uRODECConst_sFMT_HEX, "Hexadecimal" + uRODECConst_sFMT_HEXL, "Hexadecimal lowercase" + uRODECConst_sFMT_MIME64, "MIME Base 64" + uRODECConst_sFMT_UU, "UU Coding" + uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" + uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for the requested path?" + uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher" + uRORes_err_UnhandledException, "Unhandled exception" + uRORes_err_ChannelBusy, "Channel is busy. Try again later." + uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)." uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message." uRORes_err_InvalidHeaderEncrypted, "Invalid binary header. It seems that encryption is active on the other side of the communication, but not locally?" uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream." @@ -1872,12 +1784,12 @@ BEGIN uRORes_err_DOMElementIsNIL, "DOMElement is NIL" uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d" uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s" - uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" - uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." - uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" - uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d" - uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d" - uRORes_err_CannotFindParameter, "Cannot find parameter %s" + uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"." + uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s" + uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" + uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." + uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" + uRORes_err_NILMessage, "Message is NIL" uRORes_err_UnspecifiedInterface, "The message does not have an interface name" uRORes_err_UnspecifiedMessage, "The message does not have a name" uRORes_err_UnknownMethod, "Unknown method %s for interface %s" @@ -1888,12 +1800,12 @@ BEGIN uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered" uRORes_err_UnknownClass, "Unknown class \"%s\"" uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" - uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" - uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for the requested path?" - uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher" - uRORes_err_UnhandledException, "Unhandled exception" - uRORes_err_ChannelBusy, "Channel is busy. Try again later." - uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)." + uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" + uRORes_err_InvalidLibrary, "Invalid library" + uRORes_err_InvalidStream, "Invalid stream" + uRORes_err_InvalidTargetEntity, "Invalid TargetEntity \"%s\"" + uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" + uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\"" uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\"" uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream." uRORes_err_RodlDuplicateName, "Duplicate name." @@ -1904,31 +1816,6 @@ BEGIN uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found." uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"." uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves." - uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"." - uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s" - uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" - uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." - uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" - uRORes_err_NILMessage, "Message is NIL" - uRODECConst_sInvalidFormatString, "Input cannot be converted to %s Format." - uRODECConst_sFMT_COPY, "copy Input to Output" - uRODECConst_sFMT_HEX, "Hexadecimal" - uRODECConst_sFMT_HEXL, "Hexadecimal lowercase" - uRODECConst_sFMT_MIME64, "MIME Base 64" - uRODECConst_sFMT_UU, "UU Coding" - uRODECConst_sFMT_XX, "XX Coding" - uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be within %d-%d bytes" - uRODECConst_sNotInitialized, "%s is not initialized, call Init() or InitKey() first." - uRORes_err_InvalidIndex, "Invalid index %d" - uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" - uRORes_err_InvalidLibrary, "Invalid library" - uRORes_err_InvalidStream, "Invalid stream" - uRORes_err_InvalidTargetEntity, "Invalid TargetEntity \"%s\"" - uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" - uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\"" - Consts_SDockZoneHasNoCtl, " - Dock zone has no control" - Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d." - Consts_SMultiSelectRequired, "Multiselect mode must be on for this feature" Consts_SSeparator, "Separator" Consts_SErrorSettingCount, "Error setting %s.Count" Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count" @@ -1939,11 +1826,14 @@ BEGIN Consts_SUTF8Encoding, "UTF-8" Consts_SUTF7Encoding, "UTF-7" Consts_SPageControlNotSet, "PageControl must first be assigned" - uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid." - uRODECConst_sStringFormatExists, "String Format \"%d\" does not exist." - uRODECConst_sInvalidStringFormat, "Input is not a valid %s Format." + Consts_SWindowsVistaRequired, "%s requires Windows Vista or later" + ComConst_SOleError, "OLE error %.8x" + ComConst_SNoMethod, "Method '%s' not supported by automation object" + ComConst_SVarNotObject, "Variant does not reference an automation object" + ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" + uRORes_err_InvalidIndex, "Invalid index %d" + Consts_srNone, "(None)" Consts_SOutOfRange, "Value must be between %d and %d" - Consts_sAllFilter, "All" Consts_SInsertLineError, "Unable to insert a line" Consts_SInvalidClipFmt, "Invalid clipboard format" Consts_SIconToClipboard, "Clipboard does not support Icons" @@ -1952,12 +1842,13 @@ BEGIN Consts_SInvalidPrinterOp, "Operation not supported on selected printer" Consts_SNoDefaultPrinter, "There is no default printer currently selected" Consts_SDuplicateMenus, "Menu '%s' is already being used by another form" - Consts_SPictureLabel, "Picture:" - Consts_SPictureDesc, " (%dx%d)" - Consts_SPreviewLabel, "Preview" Consts_SDockedCtlNeedsName, "Docked control must have a name" Consts_SDockTreeRemoveError, "Error removing control from dock tree" Consts_SDockZoneNotFound, " - Dock zone not found" + Consts_SDockZoneHasNoCtl, " - Dock zone has no control" + Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d." + Consts_SMultiSelectRequired, "Multiselect mode must be on for this feature" + Consts_SmkcEsc, "Esc" Consts_SmkcEnter, "Enter" Consts_SmkcSpace, "Space" Consts_SmkcPgUp, "PgUp" @@ -1973,7 +1864,7 @@ BEGIN Consts_SmkcShift, "Shift+" Consts_SmkcCtrl, "Ctrl+" Consts_SmkcAlt, "Alt+" - Consts_srNone, "(None)" + Consts_SMsgDlgError, "Error" Consts_SMsgDlgInformation, "Information" Consts_SMsgDlgConfirm, "Confirm" Consts_SMsgDlgYes, "&Yes" @@ -1989,7 +1880,7 @@ BEGIN Consts_SMsgDlgYesToAll, "Yes to &All" Consts_SmkcBkSp, "BkSp" Consts_SmkcTab, "Tab" - Consts_SmkcEsc, "Esc" + Consts_SOKButton, "OK" Consts_SCancelButton, "Cancel" Consts_SYesButton, "&Yes" Consts_SNoButton, "&No" @@ -2005,7 +1896,7 @@ BEGIN Consts_SVIcons, "Icons" Consts_SVBitmaps, "Bitmaps" Consts_SMsgDlgWarning, "Warning" - Consts_SMsgDlgError, "Error" + Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" Consts_SCannotShowModal, "Cannot make a visible window modal" Consts_SScrollBarRange, "Scrollbar property out of range" @@ -2021,7 +1912,7 @@ BEGIN Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" - Consts_SOKButton, "OK" + Consts_SChangeIconSize, "Cannot change the size of an icon" Consts_SUnknownExtension, "Unknown picture file extension (.%s)" Consts_SUnknownClipboardFormat, "Unsupported clipboard format" Consts_SOutOfResources, "Out of system resources" @@ -2037,7 +1928,7 @@ BEGIN Consts_SCannotFocus, "Cannot focus a disabled or invisible window" Consts_SParentRequired, "Control '%s' has no parent window" Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'" - Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" + RTLConsts_SWriteError, "Stream write error" RTLConsts_SThreadCreateError, "Thread creation error: %s" RTLConsts_SThreadError, "Thread Error: %s (%d)" HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" @@ -2053,7 +1944,7 @@ BEGIN Consts_SInvalidPixelFormat, "Invalid pixel format" Consts_SInvalidImage, "Invalid image" Consts_SScanLine, "Scan line index out of range" - Consts_SChangeIconSize, "Cannot change the size of an icon" + RTLConsts_SInvalidRegType, "Invalid data type for '%s'" RTLConsts_SListCapacityError, "List capacity out of bounds (%d)" RTLConsts_SListCountError, "List count out of bounds (%d)" RTLConsts_SListIndexError, "List index out of bounds (%d)" @@ -2069,7 +1960,7 @@ BEGIN RTLConsts_SSortedListError, "Operation not allowed on sorted list" RTLConsts_SUnknownGroup, "%s not in a class registration group" RTLConsts_SUnknownProperty, "Property %s does not exist" - RTLConsts_SWriteError, "Stream write error" + RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" RTLConsts_SClassNotFound, "Class %s not found" RTLConsts_SDuplicateClass, "A class named %s already exists" RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)" @@ -2085,7 +1976,7 @@ BEGIN RTLConsts_SInvalidPropertyPath, "Invalid property path" RTLConsts_SInvalidPropertyType, "Invalid property type: %s" RTLConsts_SInvalidPropertyValue, "Invalid property value" - RTLConsts_SInvalidRegType, "Invalid data type for '%s'" + SysConst_SShortDayNameTue, "Tue" SysConst_SShortDayNameWed, "Wed" SysConst_SShortDayNameThu, "Thu" SysConst_SShortDayNameFri, "Fri" @@ -2101,7 +1992,7 @@ BEGIN RTLConsts_SAssignError, "Cannot assign a %s to a %s" RTLConsts_SBitsIndexError, "Bits index out of range" RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream" - RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" + SysConst_SShortMonthNameNov, "Nov" SysConst_SShortMonthNameDec, "Dec" SysConst_SLongMonthNameJan, "January" SysConst_SLongMonthNameFeb, "February" @@ -2117,7 +2008,7 @@ BEGIN SysConst_SLongMonthNameDec, "December" SysConst_SShortDayNameSun, "Sun" SysConst_SShortDayNameMon, "Mon" - SysConst_SShortDayNameTue, "Tue" + SysConst_SAssertError, "%s (%s, line %d)" SysConst_SAbstractError, "Abstract Error" SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" SysConst_SOSError, "System Error. Code: %d.\r\n%s" @@ -2133,7 +2024,7 @@ BEGIN SysConst_SShortMonthNameAug, "Aug" SysConst_SShortMonthNameSep, "Sep" SysConst_SShortMonthNameOct, "Oct" - SysConst_SShortMonthNameNov, "Nov" + SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" SysConst_SVarTypeOutOfRangeWithPrefix, "Custom variant type (%s%.4x) is out of range" SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s" SysConst_SVarTypeNotUsableWithPrefix, "Custom variant type (%s%.4x) is not usable" @@ -2149,7 +2040,7 @@ BEGIN SysConst_SAssertionFailed, "Assertion failed" SysConst_SIntfCastError, "Interface not supported" SysConst_SSafecallException, "Exception in safecall method" - SysConst_SAssertError, "%s (%s, line %d)" + SysConst_SPrivilege, "Privileged instruction" SysConst_SOperationAborted, "Operation aborted" SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" SysConst_SExceptTitle, "Application Error" @@ -2165,7 +2056,7 @@ BEGIN SysConst_SInvalidVarCast, "Invalid variant type conversion" SysConst_SInvalidVarOp, "Invalid variant operation" SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" - SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" + SysConst_SEndOfFile, "Read beyond end of file" SysConst_SDiskFull, "Disk full" SysConst_SInvalidInput, "Invalid numeric input" SysConst_SDivByZero, "Division by zero" @@ -2181,7 +2072,6 @@ BEGIN SysConst_SAccessViolationNoArg, "Access violation" SysConst_SStackOverflow, "Stack overflow" SysConst_SControlC, "Control-C hit" - SysConst_SPrivilege, "Privileged instruction" SysConst_SInvalidInteger, "'%s' is not a valid integer value" SysConst_SInvalidFloat, "'%s' is not a valid floating point value" SysConst_SInvalidDate, "'%s' is not a valid date" @@ -2189,6 +2079,7 @@ BEGIN SysConst_SInvalidDateTime, "'%s' is not a valid date and time" SysConst_SInvalidTimeStamp, "'%d.%d' is not a valid timestamp" SysConst_SInvalidGUID, "'%s' is not a valid GUID value" + SysConst_SInvalidBoolean, "'%s' is not a valid boolean value" SysConst_STimeEncodeError, "Invalid argument to time encode" SysConst_SDateEncodeError, "Invalid argument to date encode" SysConst_SOutOfMemory, "Out of memory" @@ -2197,6 +2088,49 @@ BEGIN SysConst_SInvalidFilename, "Invalid filename" SysConst_STooManyOpenFiles, "Too many open files" SysConst_SAccessDenied, "File access denied" - SysConst_SEndOfFile, "Read beyond end of file" END +/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\controls.res */ +/* C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK\uROPoweredByRemObjectsButton.res */ +/* C:\Codigo Tecsitel\Lib\RemObjects\RemObjects_SDK\uROHtmlServerInfo.res */ +/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\buttons.res */ +/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\extdlgs.res */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxProgress.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxCtrls.res */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxPrintDialog.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxDock.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxPreviewPageSettings.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxSearchDialog.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxPreview.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxPreview.res */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxDialogForm.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxPassw.dfm */ +/* C:\Codigo Tecsitel\Lib\FastReport3\frxClass.res */ +/* C:\Codigo Tecsitel\Lib\JVCL\JvConsts.res */ +/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */ +/* C:\Codigo Tecsitel\Lib\JVCL\JvLogForm.dfm */ +/* C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract\DataAbstract_IBXDriver_Glyphs.res */ +/* C:\Codigo Tecsitel\Lib\RemObjects\Data_Abstract\DataAbstract_ADODriver_Glyphs.res */ +/* C:\Codigo Tecsitel\Source\Servidor\uDataModuleServer.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uFrameConfiguracion.dfm */ +/* C:\Codigo Tecsitel\Lib\DevExpressVCL\dxOffice11.res */ +/* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxControls.res */ +/* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxLookAndFeelPainters.res */ +/* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\filectrl.res */ +/* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxEdit.res */ +/* C:\Codigo Tecsitel\Lib\DevExpressVCL\cxShellBrowser.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uConexionBD.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uConfGeneral.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\Configuracion\uConfiguracion.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\uAcercaDe.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\uServerMainForm.dfm */ +/* C:\Codigo Tecsitel\Source\Servicios\srvLogin_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Contactos\Servidor\srvContactos_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Empresas\Servidor\srvEmpresas_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Servicios\srvConfiguracion_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Familias\Servidor\srvFamilias_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.dfm */ +/* C:\Codigo Tecsitel\Source\Servidor\FactuGES_Server.RES */ +/* C:\Codigo Tecsitel\Source\Servidor\..\Servicios\RODLFILE.res */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf72.tmp */ diff --git a/Source/Servidor/FactuGES_Server.identcache b/Source/Servidor/FactuGES_Server.identcache index ba3858a7..1d7f8985 100644 Binary files a/Source/Servidor/FactuGES_Server.identcache and b/Source/Servidor/FactuGES_Server.identcache differ diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 50e84723..4a501951 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -1,4 +1,4 @@ -MAINICON ICON "C:\Codigo (Tecsitel)\Resources\Iconos\Servidor.ico" +MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" 1 VERSIONINFO FILEVERSION 3,0,0,0 PRODUCTVERSION 3,0,0,0 @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "3.0.0.0\0" VALUE "ProductVersion", "3.0.0.0\0" - VALUE "CompileDate", "miércoles, 12 de septiembre de 2007 16:09\0" + VALUE "CompileDate", "miércoles, 19 de septiembre de 2007 17:27\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/Utiles/RegExpr.pas b/Source/Servidor/Utiles/RegExpr.pas new file mode 100644 index 00000000..f17279a4 --- /dev/null +++ b/Source/Servidor/Utiles/RegExpr.pas @@ -0,0 +1,4042 @@ +unit RegExpr; + +{ + TRegExpr class library + Delphi Regular Expressions + + Copyright (c) 1999-2004 Andrey V. Sorokin, St.Petersburg, Russia + + You may use this software in any kind of development, + including comercial, redistribute, and modify it freely, + under the following restrictions : + 1. This software is provided as it is, without any kind of + warranty given. Use it at Your own risk.The author is not + responsible for any consequences of use of this software. + 2. The origin of this software may not be mispresented, You + must not claim that You wrote the original software. If + You use this software in any kind of product, it would be + appreciated that there in a information box, or in the + documentation would be an acknowledgement like + + Partial Copyright (c) 2004 Andrey V. Sorokin + http://RegExpStudio.com + mailto:anso@mail.ru + + 3. You may not have any income from distributing this source + (or altered version of it) to other developers. When You + use this product in a comercial package, the source may + not be charged seperatly. + 4. Altered versions must be plainly marked as such, and must + not be misrepresented as being the original software. + 5. RegExp Studio application and all the visual components as + well as documentation is not part of the TRegExpr library + and is not free for usage. + + mailto:anso@mail.ru + http://RegExpStudio.com + http://anso.da.ru/ +} + +interface + +// ======== Determine compiler +{$IFDEF VER80} Sorry, TRegExpr is for 32-bits Delphi only. Delphi 1 is not supported (and whos really care today?!). {$ENDIF} +{$IFDEF VER90} {$DEFINE D2} {$ENDIF} // D2 +{$IFDEF VER93} {$DEFINE D2} {$ENDIF} // CPPB 1 +{$IFDEF VER100} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D3 +{$IFDEF VER110} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // CPPB 3 +{$IFDEF VER120} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D4 +{$IFDEF VER130} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D5 +{$IFDEF VER140} {$DEFINE D6} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D6 +{$IFDEF VER150} {$DEFINE D7} {$DEFINE D6} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D7 +{$IFDEF VER180} {$DEFINE D2007} {$DEFINE D10} {$DEFINE D7} {$DEFINE D6} {$DEFINE D5} {$DEFINE D4} {$DEFINE D3} {$DEFINE D2} {$ENDIF} // D10/D2007 + +// ======== Define base compiler options +{$BOOLEVAL OFF} +{$EXTENDEDSYNTAX ON} +{$LONGSTRINGS ON} +{$OPTIMIZATION ON} +{$IFDEF D6} + {$WARN SYMBOL_PLATFORM OFF} // Suppress .Net warnings +{$ENDIF} +{$IFDEF D7} + {$WARN UNSAFE_CAST OFF} // Suppress .Net warnings + {$WARN UNSAFE_TYPE OFF} // Suppress .Net warnings + {$WARN UNSAFE_CODE OFF} // Suppress .Net warnings +{$ENDIF} +{$IFDEF FPC} + {$MODE DELPHI} // Delphi-compatible mode in FreePascal +{$ENDIF} + +// ======== Define options for TRegExpr engine +{.$DEFINE UniCode} // Unicode support +{$DEFINE RegExpPCodeDump} // p-code dumping (see Dump method) +{$IFNDEF FPC} // the option is not supported in FreePascal + {$DEFINE reRealExceptionAddr} // exceptions will point to appropriate source line, not to Error procedure +{$ENDIF} +{$DEFINE ComplexBraces} // support braces in complex cases +{$IFNDEF UniCode} // the option applicable only for non-UniCode mode + {$DEFINE UseSetOfChar} // Significant optimization by using set of char +{$ENDIF} +{$IFDEF UseSetOfChar} + {$DEFINE UseFirstCharSet} // Fast skip between matches for r.e. that starts with determined set of chars +{$ENDIF} + +// ======== Define Pascal-language options +// Define 'UseAsserts' option (do not edit this definitions). +// Asserts used to catch 'strange bugs' in TRegExpr implementation (when something goes +// completely wrong). You can swith asserts on/off with help of {$C+}/{$C-} compiler options. +{$IFDEF D3} {$DEFINE UseAsserts} {$ENDIF} +{$IFDEF FPC} {$DEFINE UseAsserts} {$ENDIF} + +// Define 'use subroutine parameters default values' option (do not edit this definition). +{$IFDEF D4} {$DEFINE DefParam} {$ENDIF} + +// Define 'OverMeth' options, to use method overloading (do not edit this definitions). +{$IFDEF D5} {$DEFINE OverMeth} {$ENDIF} +{$IFDEF FPC} {$DEFINE OverMeth} {$ENDIF} + +uses + Classes, // TStrings in Split method + SysUtils; // Exception + +type + {$IFDEF UniCode} + PRegExprChar = PWideChar; + RegExprString = WideString; + REChar = WideChar; + {$ELSE} + PRegExprChar = PChar; + RegExprString = AnsiString; //###0.952 was string + REChar = Char; + {$ENDIF} + TREOp = REChar; // internal p-code type //###0.933 + PREOp = ^TREOp; + TRENextOff = integer; // internal Next "pointer" (offset to current p-code) //###0.933 + PRENextOff = ^TRENextOff; // used for extracting Next "pointers" from compiled r.e. //###0.933 + TREBracesArg = integer; // type of {m,n} arguments + PREBracesArg = ^TREBracesArg; + +const + REOpSz = SizeOf (TREOp) div SizeOf (REChar); // size of p-code in RegExprString units + RENextOffSz = SizeOf (TRENextOff) div SizeOf (REChar); // size of Next 'pointer' -"- + REBracesArgSz = SizeOf (TREBracesArg) div SizeOf (REChar); // size of BRACES arguments -"- + +type + TRegExprInvertCaseFunction = function (const Ch : REChar) : REChar + of object; + +const + EscChar = '\'; // 'Escape'-char ('\' in common r.e.) used for escaping metachars (\w, \d etc). + RegExprModifierI : boolean = False; // default value for ModifierI + RegExprModifierR : boolean = True; // default value for ModifierR + RegExprModifierS : boolean = True; // default value for ModifierS + RegExprModifierG : boolean = True; // default value for ModifierG + RegExprModifierM : boolean = False; // default value for ModifierM + RegExprModifierX : boolean = False; // default value for ModifierX + RegExprSpaceChars : RegExprString = // default value for SpaceChars + ' '#$9#$A#$D#$C; + RegExprWordChars : RegExprString = // default value for WordChars + '0123456789' //###0.940 + + 'abcdefghijklmnopqrstuvwxyz' + + 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'; + RegExprLineSeparators : RegExprString =// default value for LineSeparators + #$d#$a{$IFDEF UniCode}+#$b#$c#$2028#$2029#$85{$ENDIF}; //###0.947 + RegExprLinePairedSeparator : RegExprString =// default value for LinePairedSeparator + #$d#$a; + { if You need Unix-styled line separators (only \n), then use: + RegExprLineSeparators = #$a; + RegExprLinePairedSeparator = ''; + } + + +const + NSUBEXP = 15; // max number of subexpression //###0.929 + // Cannot be more than NSUBEXPMAX + // Be carefull - don't use values which overflow CLOSE opcode + // (in this case you'll get compiler erorr). + // Big NSUBEXP will cause more slow work and more stack required + NSUBEXPMAX = 255; // Max possible value for NSUBEXP. //###0.945 + // Don't change it! It's defined by internal TRegExpr design. + + MaxBracesArg = $7FFFFFFF - 1; // max value for {n,m} arguments //###0.933 + + {$IFDEF ComplexBraces} + LoopStackMax = 10; // max depth of loops stack //###0.925 + {$ENDIF} + + TinySetLen = 3; + // if range includes more then TinySetLen chars, //###0.934 + // then use full (32 bytes) ANYOFFULL instead of ANYOF[BUT]TINYSET + // !!! Attension ! If you change TinySetLen, you must + // change code marked as "//!!!TinySet" + + +type + +{$IFDEF UseSetOfChar} + PSetOfREChar = ^TSetOfREChar; + TSetOfREChar = set of REChar; +{$ENDIF} + + TRegExpr = class; + + TRegExprReplaceFunction = function (ARegExpr : TRegExpr): string + of object; + + TRegExpr = class + private + startp : array [0 .. NSUBEXP - 1] of PRegExprChar; // founded expr starting points + endp : array [0 .. NSUBEXP - 1] of PRegExprChar; // founded expr end points + + {$IFDEF ComplexBraces} + LoopStack : array [1 .. LoopStackMax] of integer; // state before entering loop + LoopStackIdx : integer; // 0 - out of all loops + {$ENDIF} + + // The "internal use only" fields to pass info from compile + // to execute that permits the execute phase to run lots faster on + // simple cases. + regstart : REChar; // char that must begin a match; '\0' if none obvious + reganch : REChar; // is the match anchored (at beginning-of-line only)? + regmust : PRegExprChar; // string (pointer into program) that match must include, or nil + regmlen : integer; // length of regmust string + // Regstart and reganch permit very fast decisions on suitable starting points + // for a match, cutting down the work a lot. Regmust permits fast rejection + // of lines that cannot possibly match. The regmust tests are costly enough + // that regcomp() supplies a regmust only if the r.e. contains something + // potentially expensive (at present, the only such thing detected is * or + + // at the start of the r.e., which can involve a lot of backup). Regmlen is + // supplied because the test in regexec() needs it and regcomp() is computing + // it anyway. + {$IFDEF UseFirstCharSet} //###0.929 + FirstCharSet : TSetOfREChar; + {$ENDIF} + + // work variables for Exec's routins - save stack in recursion} + reginput : PRegExprChar; // String-input pointer. + fInputStart : PRegExprChar; // Pointer to first char of input string. + fInputEnd : PRegExprChar; // Pointer to char AFTER last char of input string + + // work variables for compiler's routines + regparse : PRegExprChar; // Input-scan pointer. + regnpar : integer; // count. + regdummy : char; + regcode : PRegExprChar; // Code-emit pointer; @regdummy = don't. + regsize : integer; // Code size. + + regexpbeg : PRegExprChar; // only for error handling. Contains + // pointer to beginning of r.e. while compiling + fExprIsCompiled : boolean; // true if r.e. successfully compiled + + // programm is essentially a linear encoding + // of a nondeterministic finite-state machine (aka syntax charts or + // "railroad normal form" in parsing technology). Each node is an opcode + // plus a "next" pointer, possibly plus an operand. "Next" pointers of + // all nodes except BRANCH implement concatenation; a "next" pointer with + // a BRANCH on both ends of it is connecting two alternatives. (Here we + // have one of the subtle syntax dependencies: an individual BRANCH (as + // opposed to a collection of them) is never concatenated with anything + // because of operator precedence.) The operand of some types of node is + // a literal string; for others, it is a node leading into a sub-FSM. In + // particular, the operand of a BRANCH node is the first node of the branch. + // (NB this is *not* a tree structure: the tail of the branch connects + // to the thing following the set of BRANCHes.) The opcodes are: + programm : PRegExprChar; // Unwarranted chumminess with compiler. + + fExpression : PRegExprChar; // source of compiled r.e. + fInputString : PRegExprChar; // input string + + fLastError : integer; // see Error, LastError + + fModifiers : integer; // modifiers + fCompModifiers : integer; // compiler's copy of modifiers + fProgModifiers : integer; // modifiers values from last programm compilation + + fSpaceChars : RegExprString; //###0.927 + fWordChars : RegExprString; //###0.929 + fInvertCase : TRegExprInvertCaseFunction; //###0.927 + + fLineSeparators : RegExprString; //###0.941 + fLinePairedSeparatorAssigned : boolean; + fLinePairedSeparatorHead, + fLinePairedSeparatorTail : REChar; + {$IFNDEF UniCode} + fLineSeparatorsSet : set of REChar; + {$ENDIF} + + procedure InvalidateProgramm; + // Mark programm as have to be [re]compiled + + function IsProgrammOk : boolean; //###0.941 + // Check if we can use precompiled r.e. or + // [re]compile it if something changed + + function GetExpression : RegExprString; + procedure SetExpression (const s : RegExprString); + + function GetModifierStr : RegExprString; + class function ParseModifiersStr (const AModifiers : RegExprString; + var AModifiersInt : integer) : boolean; //###0.941 class function now + // Parse AModifiers string and return true and set AModifiersInt + // if it's in format 'ismxrg-ismxrg'. + procedure SetModifierStr (const AModifiers : RegExprString); + + function GetModifier (AIndex : integer) : boolean; + procedure SetModifier (AIndex : integer; ASet : boolean); + + procedure Error (AErrorID : integer); virtual; // error handler. + // Default handler raise exception ERegExpr with + // Message = ErrorMsg (AErrorID), ErrorCode = AErrorID + // and CompilerErrorPos = value of property CompilerErrorPos. + + + {==================== Compiler section ===================} + function CompileRegExpr (exp : PRegExprChar) : boolean; + // compile a regular expression into internal code + + procedure Tail (p : PRegExprChar; val : PRegExprChar); + // set the next-pointer at the end of a node chain + + procedure OpTail (p : PRegExprChar; val : PRegExprChar); + // regoptail - regtail on operand of first argument; nop if operandless + + function EmitNode (op : TREOp) : PRegExprChar; + // regnode - emit a node, return location + + procedure EmitC (b : REChar); + // emit (if appropriate) a byte of code + + procedure InsertOperator (op : TREOp; opnd : PRegExprChar; sz : integer); //###0.90 + // insert an operator in front of already-emitted operand + // Means relocating the operand. + + function ParseReg (paren : integer; var flagp : integer) : PRegExprChar; + // regular expression, i.e. main body or parenthesized thing + + function ParseBranch (var flagp : integer) : PRegExprChar; + // one alternative of an | operator + + function ParsePiece (var flagp : integer) : PRegExprChar; + // something followed by possible [*+?] + + function ParseAtom (var flagp : integer) : PRegExprChar; + // the lowest level + + function GetCompilerErrorPos : integer; + // current pos in r.e. - for error hanling + + {$IFDEF UseFirstCharSet} //###0.929 + procedure FillFirstCharSet (prog : PRegExprChar); + {$ENDIF} + + {===================== Mathing section ===================} + function regrepeat (p : PRegExprChar; AMax : integer) : integer; + // repeatedly match something simple, report how many + + function regnext (p : PRegExprChar) : PRegExprChar; + // dig the "next" pointer out of a node + + function MatchPrim (prog : PRegExprChar) : boolean; + // recursively matching routine + + function ExecPrim (AOffset: integer) : boolean; + // Exec for stored InputString + + {$IFDEF RegExpPCodeDump} + function DumpOp (op : REChar) : RegExprString; + {$ENDIF} + + function GetSubExprMatchCount : integer; + function GetMatchPos (Idx : integer) : integer; + function GetMatchLen (Idx : integer) : integer; + function GetMatch (Idx : integer) : RegExprString; + + function GetInputString : RegExprString; + procedure SetInputString (const AInputString : RegExprString); + + {$IFNDEF UseSetOfChar} + function StrScanCI (s : PRegExprChar; ch : REChar) : PRegExprChar; //###0.928 + {$ENDIF} + + procedure SetLineSeparators (const AStr : RegExprString); + procedure SetLinePairedSeparator (const AStr : RegExprString); + function GetLinePairedSeparator : RegExprString; + + public + constructor Create; + destructor Destroy; override; + + class function VersionMajor : integer; //###0.944 + class function VersionMinor : integer; //###0.944 + + property Expression : RegExprString read GetExpression write SetExpression; + // Regular expression. + // For optimization, TRegExpr will automatically compiles it into 'P-code' + // (You can see it with help of Dump method) and stores in internal + // structures. Real [re]compilation occures only when it really needed - + // while calling Exec[Next], Substitute, Dump, etc + // and only if Expression or other P-code affected properties was changed + // after last [re]compilation. + // If any errors while [re]compilation occures, Error method is called + // (by default Error raises exception - see below) + + property ModifierStr : RegExprString read GetModifierStr write SetModifierStr; + // Set/get default values of r.e.syntax modifiers. Modifiers in + // r.e. (?ismx-ismx) will replace this default values. + // If you try to set unsupported modifier, Error will be called + // (by defaul Error raises exception ERegExpr). + + property ModifierI : boolean index 1 read GetModifier write SetModifier; + // Modifier /i - caseinsensitive, initialized from RegExprModifierI + + property ModifierR : boolean index 2 read GetModifier write SetModifier; + // Modifier /r - use r.e.syntax extended for russian, + // (was property ExtSyntaxEnabled in previous versions) + // If true, then à-ÿ additional include russian letter '¸', + // À-ß additional include '¨', and à-ß include all russian symbols. + // You have to turn it off if it may interfere with you national alphabet. + // , initialized from RegExprModifierR + + property ModifierS : boolean index 3 read GetModifier write SetModifier; + // Modifier /s - '.' works as any char (else as [^\n]), + // , initialized from RegExprModifierS + + property ModifierG : boolean index 4 read GetModifier write SetModifier; + // Switching off modifier /g switchs all operators in + // non-greedy style, so if ModifierG = False, then + // all '*' works as '*?', all '+' as '+?' and so on. + // , initialized from RegExprModifierG + + property ModifierM : boolean index 5 read GetModifier write SetModifier; + // Treat string as multiple lines. That is, change `^' and `$' from + // matching at only the very start or end of the string to the start + // or end of any line anywhere within the string. + // , initialized from RegExprModifierM + + property ModifierX : boolean index 6 read GetModifier write SetModifier; + // Modifier /x - eXtended syntax, allow r.e. text formatting, + // see description in the help. Initialized from RegExprModifierX + + function Exec (const AInputString : RegExprString) : boolean; {$IFDEF OverMeth} overload; + {$IFNDEF FPC} // I do not know why FreePascal cannot overload methods with empty param list + function Exec : boolean; overload; //###0.949 + {$ENDIF} + function Exec (AOffset: integer) : boolean; overload; //###0.949 + {$ENDIF} + // match a programm against a string AInputString + // !!! Exec store AInputString into InputString property + // For Delphi 5 and higher available overloaded versions - first without + // parameter (uses already assigned to InputString property value) + // and second that has integer parameter and is same as ExecPos + + function ExecNext : boolean; + // find next match: + // ExecNext; + // works same as + // if MatchLen [0] = 0 then ExecPos (MatchPos [0] + 1) + // else ExecPos (MatchPos [0] + MatchLen [0]); + // but it's more simpler ! + // Raises exception if used without preceeding SUCCESSFUL call to + // Exec* (Exec, ExecPos, ExecNext). So You always must use something like + // if Exec (InputString) then repeat { proceed results} until not ExecNext; + + function ExecPos (AOffset: integer {$IFDEF DefParam}= 1{$ENDIF}) : boolean; + // find match for InputString starting from AOffset position + // (AOffset=1 - first char of InputString) + + property InputString : RegExprString read GetInputString write SetInputString; + // returns current input string (from last Exec call or last assign + // to this property). + // Any assignment to this property clear Match* properties ! + + function Substitute (const ATemplate : RegExprString) : RegExprString; + // Returns ATemplate with '$&' or '$0' replaced by whole r.e. + // occurence and '$n' replaced by occurence of subexpression #n. + // Since v.0.929 '$' used instead of '\' (for future extensions + // and for more Perl-compatibility) and accept more then one digit. + // If you want place into template raw '$' or '\', use prefix '\' + // Example: '1\$ is $2\\rub\\' -> '1$ is \rub\' + // If you want to place raw digit after '$n' you must delimit + // n with curly braces '{}'. + // Example: 'a$12bc' -> 'abc' + // 'a${1}2bc' -> 'a2bc'. + + procedure Split (AInputStr : RegExprString; APieces : TStrings); + // Split AInputStr into APieces by r.e. occurencies + // Internally calls Exec[Next] + + function Replace (AInputStr : RegExprString; + const AReplaceStr : RegExprString; + AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) //###0.946 + : RegExprString; {$IFDEF OverMeth} overload; + function Replace (AInputStr : RegExprString; + AReplaceFunc : TRegExprReplaceFunction) + : RegExprString; overload; + {$ENDIF} + function ReplaceEx (AInputStr : RegExprString; + AReplaceFunc : TRegExprReplaceFunction) + : RegExprString; + // Returns AInputStr with r.e. occurencies replaced by AReplaceStr + // If AUseSubstitution is true, then AReplaceStr will be used + // as template for Substitution methods. + // For example: + // Expression := '({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*'; + // Replace ('BLOCK( test1)', 'def "$1" value "$2"', True); + // will return: def 'BLOCK' value 'test1' + // Replace ('BLOCK( test1)', 'def "$1" value "$2"') + // will return: def "$1" value "$2" + // Internally calls Exec[Next] + // Overloaded version and ReplaceEx operate with call-back function, + // so You can implement really complex functionality. + + property SubExprMatchCount : integer read GetSubExprMatchCount; + // Number of subexpressions has been found in last Exec* call. + // If there are no subexpr. but whole expr was found (Exec* returned True), + // then SubExprMatchCount=0, if no subexpressions nor whole + // r.e. found (Exec* returned false) then SubExprMatchCount=-1. + // Note, that some subexpr. may be not found and for such + // subexpr. MathPos=MatchLen=-1 and Match=''. + // For example: Expression := '(1)?2(3)?'; + // Exec ('123'): SubExprMatchCount=2, Match[0]='123', [1]='1', [2]='3' + // Exec ('12'): SubExprMatchCount=1, Match[0]='12', [1]='1' + // Exec ('23'): SubExprMatchCount=2, Match[0]='23', [1]='', [2]='3' + // Exec ('2'): SubExprMatchCount=0, Match[0]='2' + // Exec ('7') - return False: SubExprMatchCount=-1 + + property MatchPos [Idx : integer] : integer read GetMatchPos; + // pos of entrance subexpr. #Idx into tested in last Exec* + // string. First subexpr. have Idx=1, last - MatchCount, + // whole r.e. have Idx=0. + // Returns -1 if in r.e. no such subexpr. or this subexpr. + // not found in input string. + + property MatchLen [Idx : integer] : integer read GetMatchLen; + // len of entrance subexpr. #Idx r.e. into tested in last Exec* + // string. First subexpr. have Idx=1, last - MatchCount, + // whole r.e. have Idx=0. + // Returns -1 if in r.e. no such subexpr. or this subexpr. + // not found in input string. + // Remember - MatchLen may be 0 (if r.e. match empty string) ! + + property Match [Idx : integer] : RegExprString read GetMatch; + // == copy (InputString, MatchPos [Idx], MatchLen [Idx]) + // Returns '' if in r.e. no such subexpr. or this subexpr. + // not found in input string. + + function LastError : integer; + // Returns ID of last error, 0 if no errors (unusable if + // Error method raises exception) and clear internal status + // into 0 (no errors). + + function ErrorMsg (AErrorID : integer) : RegExprString; virtual; + // Returns Error message for error with ID = AErrorID. + + property CompilerErrorPos : integer read GetCompilerErrorPos; + // Returns pos in r.e. there compiler stopped. + // Usefull for error diagnostics + + property SpaceChars : RegExprString read fSpaceChars write fSpaceChars; //###0.927 + // Contains chars, treated as /s (initially filled with RegExprSpaceChars + // global constant) + + property WordChars : RegExprString read fWordChars write fWordChars; //###0.929 + // Contains chars, treated as /w (initially filled with RegExprWordChars + // global constant) + + property LineSeparators : RegExprString read fLineSeparators write SetLineSeparators; //###0.941 + // line separators (like \n in Unix) + + property LinePairedSeparator : RegExprString read GetLinePairedSeparator write SetLinePairedSeparator; //###0.941 + // paired line separator (like \r\n in DOS and Windows). + // must contain exactly two chars or no chars at all + + class function InvertCaseFunction (const Ch : REChar) : REChar; + // Converts Ch into upper case if it in lower case or in lower + // if it in upper (uses current system local setings) + + property InvertCase : TRegExprInvertCaseFunction read fInvertCase write fInvertCase; //##0.935 + // Set this property if you want to override case-insensitive functionality. + // Create set it to RegExprInvertCaseFunction (InvertCaseFunction by default) + + procedure Compile; //###0.941 + // [Re]compile r.e. Usefull for example for GUI r.e. editors (to check + // all properties validity). + + {$IFDEF RegExpPCodeDump} + function Dump : RegExprString; + // dump a compiled regexp in vaguely comprehensible form + {$ENDIF} + end; + + ERegExpr = class (Exception) + public + ErrorCode : integer; + CompilerErrorPos : integer; + end; + +const + RegExprInvertCaseFunction : TRegExprInvertCaseFunction = {$IFDEF FPC} nil {$ELSE} TRegExpr.InvertCaseFunction{$ENDIF}; + // defaul for InvertCase property + +function ExecRegExpr (const ARegExpr, AInputStr : RegExprString) : boolean; +// true if string AInputString match regular expression ARegExpr +// ! will raise exeption if syntax errors in ARegExpr + +procedure SplitRegExpr (const ARegExpr, AInputStr : RegExprString; APieces : TStrings); +// Split AInputStr into APieces by r.e. ARegExpr occurencies + +function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString; + AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString; //###0.947 +// Returns AInputStr with r.e. occurencies replaced by AReplaceStr +// If AUseSubstitution is true, then AReplaceStr will be used +// as template for Substitution methods. +// For example: +// ReplaceRegExpr ('({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*', +// 'BLOCK( test1)', 'def "$1" value "$2"', True) +// will return: def 'BLOCK' value 'test1' +// ReplaceRegExpr ('({-i}block|var)\s*\(\s*([^ ]*)\s*\)\s*', +// 'BLOCK( test1)', 'def "$1" value "$2"') +// will return: def "$1" value "$2" + +function QuoteRegExprMetaChars (const AStr : RegExprString) : RegExprString; +// Replace all metachars with its safe representation, +// for example 'abc$cd.(' converts into 'abc\$cd\.\(' +// This function usefull for r.e. autogeneration from +// user input + +function RegExprSubExpressions (const ARegExpr : string; + ASubExprs : TStrings; AExtendedSyntax : boolean{$IFDEF DefParam}= False{$ENDIF}) : integer; +// Makes list of subexpressions found in ARegExpr r.e. +// In ASubExps every item represent subexpression, +// from first to last, in format: +// String - subexpression text (without '()') +// low word of Object - starting position in ARegExpr, including '(' +// if exists! (first position is 1) +// high word of Object - length, including starting '(' and ending ')' +// if exist! +// AExtendedSyntax - must be True if modifier /m will be On while +// using the r.e. +// Usefull for GUI editors of r.e. etc (You can find example of using +// in TestRExp.dpr project) +// Returns +// 0 Success. No unbalanced brackets was found; +// -1 There are not enough closing brackets ')'; +// -(n+1) At position n was found opening '[' without //###0.942 +// corresponding closing ']'; +// n At position n was found closing bracket ')' without +// corresponding opening '('. +// If Result <> 0, then ASubExpr can contain empty items or illegal ones + + +implementation + +uses + Windows; // CharUpper/Lower + +const + TRegExprVersionMajor : integer = 0; + TRegExprVersionMinor : integer = 952; + // TRegExpr.VersionMajor/Minor return values of this constants + + MaskModI = 1; // modifier /i bit in fModifiers + MaskModR = 2; // -"- /r + MaskModS = 4; // -"- /s + MaskModG = 8; // -"- /g + MaskModM = 16; // -"- /m + MaskModX = 32; // -"- /x + + {$IFDEF UniCode} + XIgnoredChars = ' '#9#$d#$a; + {$ELSE} + XIgnoredChars = [' ', #9, #$d, #$a]; + {$ENDIF} + +{=============================================================} +{=================== WideString functions ====================} +{=============================================================} + +{$IFDEF UniCode} + +function StrPCopy (Dest: PRegExprChar; const Source: RegExprString): PRegExprChar; + var + i, Len : Integer; + begin + Len := length (Source); //###0.932 + for i := 1 to Len do + Dest [i - 1] := Source [i]; + Dest [Len] := #0; + Result := Dest; + end; { of function StrPCopy +--------------------------------------------------------------} + +function StrLCopy (Dest, Source: PRegExprChar; MaxLen: Cardinal): PRegExprChar; + var i: Integer; + begin + for i := 0 to MaxLen - 1 do + Dest [i] := Source [i]; + Result := Dest; + end; { of function StrLCopy +--------------------------------------------------------------} + +function StrLen (Str: PRegExprChar): Cardinal; + begin + Result:=0; + while Str [result] <> #0 + do Inc (Result); + end; { of function StrLen +--------------------------------------------------------------} + +function StrPos (Str1, Str2: PRegExprChar): PRegExprChar; + var n: Integer; + begin + Result := nil; + n := Pos (RegExprString (Str2), RegExprString (Str1)); + if n = 0 + then EXIT; + Result := Str1 + n - 1; + end; { of function StrPos +--------------------------------------------------------------} + +function StrLComp (Str1, Str2: PRegExprChar; MaxLen: Cardinal): Integer; + var S1, S2: RegExprString; + begin + S1 := Str1; + S2 := Str2; + if Copy (S1, 1, MaxLen) > Copy (S2, 1, MaxLen) + then Result := 1 + else + if Copy (S1, 1, MaxLen) < Copy (S2, 1, MaxLen) + then Result := -1 + else Result := 0; + end; { function StrLComp +--------------------------------------------------------------} + +function StrScan (Str: PRegExprChar; Chr: WideChar): PRegExprChar; + begin + Result := nil; + while (Str^ <> #0) and (Str^ <> Chr) + do Inc (Str); + if (Str^ <> #0) + then Result := Str; + end; { of function StrScan +--------------------------------------------------------------} + +{$ENDIF} + + +{=============================================================} +{===================== Global functions ======================} +{=============================================================} + +function ExecRegExpr (const ARegExpr, AInputStr : RegExprString) : boolean; + var r : TRegExpr; + begin + r := TRegExpr.Create; + try + r.Expression := ARegExpr; + Result := r.Exec (AInputStr); + finally r.Free; + end; + end; { of function ExecRegExpr +--------------------------------------------------------------} + +procedure SplitRegExpr (const ARegExpr, AInputStr : RegExprString; APieces : TStrings); + var r : TRegExpr; + begin + APieces.Clear; + r := TRegExpr.Create; + try + r.Expression := ARegExpr; + r.Split (AInputStr, APieces); + finally r.Free; + end; + end; { of procedure SplitRegExpr +--------------------------------------------------------------} + +function ReplaceRegExpr (const ARegExpr, AInputStr, AReplaceStr : RegExprString; + AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString; + begin + with TRegExpr.Create do try + Expression := ARegExpr; + Result := Replace (AInputStr, AReplaceStr, AUseSubstitution); + finally Free; + end; + end; { of function ReplaceRegExpr +--------------------------------------------------------------} + +function QuoteRegExprMetaChars (const AStr : RegExprString) : RegExprString; + const + RegExprMetaSet : RegExprString = '^$.[()|?+*'+EscChar+'{' + + ']}'; // - this last are additional to META. + // Very similar to META array, but slighly changed. + // !Any changes in META array must be synchronized with this set. + var + i, i0, Len : integer; + begin + Result := ''; + Len := length (AStr); + i := 1; + i0 := i; + while i <= Len do begin + if Pos (AStr [i], RegExprMetaSet) > 0 then begin + Result := Result + System.Copy (AStr, i0, i - i0) + + EscChar + AStr [i]; + i0 := i + 1; + end; + inc (i); + end; + Result := Result + System.Copy (AStr, i0, MaxInt); // Tail + end; { of function QuoteRegExprMetaChars +--------------------------------------------------------------} + +function RegExprSubExpressions (const ARegExpr : string; + ASubExprs : TStrings; AExtendedSyntax : boolean{$IFDEF DefParam}= False{$ENDIF}) : integer; + type + TStackItemRec = record //###0.945 + SubExprIdx : integer; + StartPos : integer; + end; + TStackArray = packed array [0 .. NSUBEXPMAX - 1] of TStackItemRec; + var + Len, SubExprLen : integer; + i, i0 : integer; + Modif : integer; + Stack : ^TStackArray; //###0.945 + StackIdx, StackSz : integer; + begin + Result := 0; // no unbalanced brackets found at this very moment + + ASubExprs.Clear; // I don't think that adding to non empty list + // can be usefull, so I simplified algorithm to work only with empty list + + Len := length (ARegExpr); // some optimization tricks + + // first we have to calculate number of subexpression to reserve + // space in Stack array (may be we'll reserve more then need, but + // it's faster then memory reallocation during parsing) + StackSz := 1; // add 1 for entire r.e. + for i := 1 to Len do + if ARegExpr [i] = '(' + then inc (StackSz); +// SetLength (Stack, StackSz); //###0.945 + GetMem (Stack, SizeOf (TStackItemRec) * StackSz); + try + + StackIdx := 0; + i := 1; + while (i <= Len) do begin + case ARegExpr [i] of + '(': begin + if (i < Len) and (ARegExpr [i + 1] = '?') then begin + // this is not subexpression, but comment or other + // Perl extension. We must check is it (?ismxrg-ismxrg) + // and change AExtendedSyntax if /x is changed. + inc (i, 2); // skip '(?' + i0 := i; + while (i <= Len) and (ARegExpr [i] <> ')') + do inc (i); + if i > Len + then Result := -1 // unbalansed '(' + else + if TRegExpr.ParseModifiersStr (System.Copy (ARegExpr, i, i - i0), Modif) + then AExtendedSyntax := (Modif and MaskModX) <> 0; + end + else begin // subexpression starts + ASubExprs.Add (''); // just reserve space + with Stack [StackIdx] do begin + SubExprIdx := ASubExprs.Count - 1; + StartPos := i; + end; + inc (StackIdx); + end; + end; + ')': begin + if StackIdx = 0 + then Result := i // unbalanced ')' + else begin + dec (StackIdx); + with Stack [StackIdx] do begin + SubExprLen := i - StartPos + 1; + ASubExprs.Objects [SubExprIdx] := + TObject (StartPos or (SubExprLen ShL 16)); + ASubExprs [SubExprIdx] := System.Copy ( + ARegExpr, StartPos + 1, SubExprLen - 2); // add without brackets + end; + end; + end; + EscChar: inc (i); // skip quoted symbol + '[': begin + // we have to skip character ranges at once, because they can + // contain '#', and '#' in it must NOT be recognized as eXtended + // comment beginning! + i0 := i; + inc (i); + if ARegExpr [i] = ']' // cannot be 'emty' ranges - this interpretes + then inc (i); // as ']' by itself + while (i <= Len) and (ARegExpr [i] <> ']') do + if ARegExpr [i] = EscChar //###0.942 + then inc (i, 2) // skip 'escaped' char to prevent stopping at '\]' + else inc (i); + if (i > Len) or (ARegExpr [i] <> ']') //###0.942 + then Result := - (i0 + 1); // unbalansed '[' //###0.942 + end; + '#': if AExtendedSyntax then begin + // skip eXtended comments + while (i <= Len) and (ARegExpr [i] <> #$d) and (ARegExpr [i] <> #$a) + // do not use [#$d, #$a] due to UniCode compatibility + do inc (i); + while (i + 1 <= Len) and ((ARegExpr [i + 1] = #$d) or (ARegExpr [i + 1] = #$a)) + do inc (i); // attempt to work with different kinds of line separators + // now we are at the line separator that must be skipped. + end; + // here is no 'else' clause - we simply skip ordinary chars + end; // of case + inc (i); // skip scanned char + // ! can move after Len due to skipping quoted symbol + end; + + // check brackets balance + if StackIdx <> 0 + then Result := -1; // unbalansed '(' + + // check if entire r.e. added + if (ASubExprs.Count = 0) + or ((integer (ASubExprs.Objects [0]) and $FFFF) <> 1) + or (((integer (ASubExprs.Objects [0]) ShR 16) and $FFFF) <> Len) + // whole r.e. wasn't added because it isn't bracketed + // well, we add it now: + then ASubExprs.InsertObject (0, ARegExpr, TObject ((Len ShL 16) or 1)); + + finally FreeMem (Stack); + end; + end; { of function RegExprSubExpressions +--------------------------------------------------------------} + + + +const + MAGIC = TREOp (216);// programm signature + +// name opcode opnd? meaning + EEND = TREOp (0); // - End of program + BOL = TREOp (1); // - Match "" at beginning of line + EOL = TREOp (2); // - Match "" at end of line + ANY = TREOp (3); // - Match any one character + ANYOF = TREOp (4); // Str Match any character in string Str + ANYBUT = TREOp (5); // Str Match any char. not in string Str + BRANCH = TREOp (6); // Node Match this alternative, or the next + BACK = TREOp (7); // - Jump backward (Next < 0) + EXACTLY = TREOp (8); // Str Match string Str + NOTHING = TREOp (9); // - Match empty string + STAR = TREOp (10); // Node Match this (simple) thing 0 or more times + PLUS = TREOp (11); // Node Match this (simple) thing 1 or more times + ANYDIGIT = TREOp (12); // - Match any digit (equiv [0-9]) + NOTDIGIT = TREOp (13); // - Match not digit (equiv [0-9]) + ANYLETTER = TREOp (14); // - Match any letter from property WordChars + NOTLETTER = TREOp (15); // - Match not letter from property WordChars + ANYSPACE = TREOp (16); // - Match any space char (see property SpaceChars) + NOTSPACE = TREOp (17); // - Match not space char (see property SpaceChars) + BRACES = TREOp (18); // Node,Min,Max Match this (simple) thing from Min to Max times. + // Min and Max are TREBracesArg + COMMENT = TREOp (19); // - Comment ;) + EXACTLYCI = TREOp (20); // Str Match string Str case insensitive + ANYOFCI = TREOp (21); // Str Match any character in string Str, case insensitive + ANYBUTCI = TREOp (22); // Str Match any char. not in string Str, case insensitive + LOOPENTRY = TREOp (23); // Node Start of loop (Node - LOOP for this loop) + LOOP = TREOp (24); // Node,Min,Max,LoopEntryJmp - back jump for LOOPENTRY. + // Min and Max are TREBracesArg + // Node - next node in sequence, + // LoopEntryJmp - associated LOOPENTRY node addr + ANYOFTINYSET= TREOp (25); // Chrs Match any one char from Chrs (exactly TinySetLen chars) + ANYBUTTINYSET=TREOp (26); // Chrs Match any one char not in Chrs (exactly TinySetLen chars) + ANYOFFULLSET= TREOp (27); // Set Match any one char from set of char + // - very fast (one CPU instruction !) but takes 32 bytes of p-code + BSUBEXP = TREOp (28); // Idx Match previously matched subexpression #Idx (stored as REChar) //###0.936 + BSUBEXPCI = TREOp (29); // Idx -"- in case-insensitive mode + + // Non-Greedy Style Ops //###0.940 + STARNG = TREOp (30); // Same as START but in non-greedy mode + PLUSNG = TREOp (31); // Same as PLUS but in non-greedy mode + BRACESNG = TREOp (32); // Same as BRACES but in non-greedy mode + LOOPNG = TREOp (33); // Same as LOOP but in non-greedy mode + + // Multiline mode \m + BOLML = TREOp (34); // - Match "" at beginning of line + EOLML = TREOp (35); // - Match "" at end of line + ANYML = TREOp (36); // - Match any one character + + // Word boundary + BOUND = TREOp (37); // Match "" between words //###0.943 + NOTBOUND = TREOp (38); // Match "" not between words //###0.943 + + // !!! Change OPEN value if you add new opcodes !!! + + OPEN = TREOp (39); // - Mark this point in input as start of \n + // OPEN + 1 is \1, etc. + CLOSE = TREOp (ord (OPEN) + NSUBEXP); + // - Analogous to OPEN. + + // !!! Don't add new OpCodes after CLOSE !!! + +// We work with p-code thru pointers, compatible with PRegExprChar. +// Note: all code components (TRENextOff, TREOp, TREBracesArg, etc) +// must have lengths that can be divided by SizeOf (REChar) ! +// A node is TREOp of opcode followed Next "pointer" of TRENextOff type. +// The Next is a offset from the opcode of the node containing it. +// An operand, if any, simply follows the node. (Note that much of +// the code generation knows about this implicit relationship!) +// Using TRENextOff=integer speed up p-code processing. + +// Opcodes description: +// +// BRANCH The set of branches constituting a single choice are hooked +// together with their "next" pointers, since precedence prevents +// anything being concatenated to any individual branch. The +// "next" pointer of the last BRANCH in a choice points to the +// thing following the whole choice. This is also where the +// final "next" pointer of each individual branch points; each +// branch starts with the operand node of a BRANCH node. +// BACK Normal "next" pointers all implicitly point forward; BACK +// exists to make loop structures possible. +// STAR,PLUS,BRACES '?', and complex '*' and '+', are implemented as +// circular BRANCH structures using BACK. Complex '{min,max}' +// - as pair LOOPENTRY-LOOP (see below). Simple cases (one +// character per match) are implemented with STAR, PLUS and +// BRACES for speed and to minimize recursive plunges. +// LOOPENTRY,LOOP {min,max} are implemented as special pair +// LOOPENTRY-LOOP. Each LOOPENTRY initialize loopstack for +// current level. +// OPEN,CLOSE are numbered at compile time. + + +{=============================================================} +{================== Error handling section ===================} +{=============================================================} + +const + reeOk = 0; + reeCompNullArgument = 100; + reeCompRegexpTooBig = 101; + reeCompParseRegTooManyBrackets = 102; + reeCompParseRegUnmatchedBrackets = 103; + reeCompParseRegUnmatchedBrackets2 = 104; + reeCompParseRegJunkOnEnd = 105; + reePlusStarOperandCouldBeEmpty = 106; + reeNestedSQP = 107; + reeBadHexDigit = 108; + reeInvalidRange = 109; + reeParseAtomTrailingBackSlash = 110; + reeNoHexCodeAfterBSlashX = 111; + reeHexCodeAfterBSlashXTooBig = 112; + reeUnmatchedSqBrackets = 113; + reeInternalUrp = 114; + reeQPSBFollowsNothing = 115; + reeTrailingBackSlash = 116; + reeRarseAtomInternalDisaster = 119; + reeBRACESArgTooBig = 122; + reeBracesMinParamGreaterMax = 124; + reeUnclosedComment = 125; + reeComplexBracesNotImplemented = 126; + reeUrecognizedModifier = 127; + reeBadLinePairedSeparator = 128; + reeRegRepeatCalledInappropriately = 1000; + reeMatchPrimMemoryCorruption = 1001; + reeMatchPrimCorruptedPointers = 1002; + reeNoExpression = 1003; + reeCorruptedProgram = 1004; + reeNoInpitStringSpecified = 1005; + reeOffsetMustBeGreaterThen0 = 1006; + reeExecNextWithoutExec = 1007; + reeGetInputStringWithoutInputString = 1008; + reeDumpCorruptedOpcode = 1011; + reeModifierUnsupported = 1013; + reeLoopStackExceeded = 1014; + reeLoopWithoutEntry = 1015; + reeBadPCodeImported = 2000; + +function TRegExpr.ErrorMsg (AErrorID : integer) : RegExprString; + begin + case AErrorID of + reeOk: Result := 'No errors'; + reeCompNullArgument: Result := 'TRegExpr(comp): Null Argument'; + reeCompRegexpTooBig: Result := 'TRegExpr(comp): Regexp Too Big'; + reeCompParseRegTooManyBrackets: Result := 'TRegExpr(comp): ParseReg Too Many ()'; + reeCompParseRegUnmatchedBrackets: Result := 'TRegExpr(comp): ParseReg Unmatched ()'; + reeCompParseRegUnmatchedBrackets2: Result := 'TRegExpr(comp): ParseReg Unmatched ()'; + reeCompParseRegJunkOnEnd: Result := 'TRegExpr(comp): ParseReg Junk On End'; + reePlusStarOperandCouldBeEmpty: Result := 'TRegExpr(comp): *+ Operand Could Be Empty'; + reeNestedSQP: Result := 'TRegExpr(comp): Nested *?+'; + reeBadHexDigit: Result := 'TRegExpr(comp): Bad Hex Digit'; + reeInvalidRange: Result := 'TRegExpr(comp): Invalid [] Range'; + reeParseAtomTrailingBackSlash: Result := 'TRegExpr(comp): Parse Atom Trailing \'; + reeNoHexCodeAfterBSlashX: Result := 'TRegExpr(comp): No Hex Code After \x'; + reeHexCodeAfterBSlashXTooBig: Result := 'TRegExpr(comp): Hex Code After \x Is Too Big'; + reeUnmatchedSqBrackets: Result := 'TRegExpr(comp): Unmatched []'; + reeInternalUrp: Result := 'TRegExpr(comp): Internal Urp'; + reeQPSBFollowsNothing: Result := 'TRegExpr(comp): ?+*{ Follows Nothing'; + reeTrailingBackSlash: Result := 'TRegExpr(comp): Trailing \'; + reeRarseAtomInternalDisaster: Result := 'TRegExpr(comp): RarseAtom Internal Disaster'; + reeBRACESArgTooBig: Result := 'TRegExpr(comp): BRACES Argument Too Big'; + reeBracesMinParamGreaterMax: Result := 'TRegExpr(comp): BRACE Min Param Greater then Max'; + reeUnclosedComment: Result := 'TRegExpr(comp): Unclosed (?#Comment)'; + reeComplexBracesNotImplemented: Result := 'TRegExpr(comp): If you want take part in beta-testing BRACES ''{min,max}'' and non-greedy ops ''*?'', ''+?'', ''??'' for complex cases - remove ''.'' from {.$DEFINE ComplexBraces}'; + reeUrecognizedModifier: Result := 'TRegExpr(comp): Urecognized Modifier'; + reeBadLinePairedSeparator: Result := 'TRegExpr(comp): LinePairedSeparator must countain two different chars or no chars at all'; + + reeRegRepeatCalledInappropriately: Result := 'TRegExpr(exec): RegRepeat Called Inappropriately'; + reeMatchPrimMemoryCorruption: Result := 'TRegExpr(exec): MatchPrim Memory Corruption'; + reeMatchPrimCorruptedPointers: Result := 'TRegExpr(exec): MatchPrim Corrupted Pointers'; + reeNoExpression: Result := 'TRegExpr(exec): Not Assigned Expression Property'; + reeCorruptedProgram: Result := 'TRegExpr(exec): Corrupted Program'; + reeNoInpitStringSpecified: Result := 'TRegExpr(exec): No Input String Specified'; + reeOffsetMustBeGreaterThen0: Result := 'TRegExpr(exec): Offset Must Be Greater Then 0'; + reeExecNextWithoutExec: Result := 'TRegExpr(exec): ExecNext Without Exec[Pos]'; + reeGetInputStringWithoutInputString: Result := 'TRegExpr(exec): GetInputString Without InputString'; + reeDumpCorruptedOpcode: Result := 'TRegExpr(dump): Corrupted Opcode'; + reeLoopStackExceeded: Result := 'TRegExpr(exec): Loop Stack Exceeded'; + reeLoopWithoutEntry: Result := 'TRegExpr(exec): Loop Without LoopEntry !'; + + reeBadPCodeImported: Result := 'TRegExpr(misc): Bad p-code imported'; + else Result := 'Unknown error'; + end; + end; { of procedure TRegExpr.Error +--------------------------------------------------------------} + +function TRegExpr.LastError : integer; + begin + Result := fLastError; + fLastError := reeOk; + end; { of function TRegExpr.LastError +--------------------------------------------------------------} + + +{=============================================================} +{===================== Common section ========================} +{=============================================================} + +class function TRegExpr.VersionMajor : integer; //###0.944 + begin + Result := TRegExprVersionMajor; + end; { of class function TRegExpr.VersionMajor +--------------------------------------------------------------} + +class function TRegExpr.VersionMinor : integer; //###0.944 + begin + Result := TRegExprVersionMinor; + end; { of class function TRegExpr.VersionMinor +--------------------------------------------------------------} + +constructor TRegExpr.Create; + begin + inherited; + programm := nil; + fExpression := nil; + fInputString := nil; + + regexpbeg := nil; + fExprIsCompiled := false; + + ModifierI := RegExprModifierI; + ModifierR := RegExprModifierR; + ModifierS := RegExprModifierS; + ModifierG := RegExprModifierG; + ModifierM := RegExprModifierM; //###0.940 + + SpaceChars := RegExprSpaceChars; //###0.927 + WordChars := RegExprWordChars; //###0.929 + fInvertCase := RegExprInvertCaseFunction; //###0.927 + + fLineSeparators := RegExprLineSeparators; //###0.941 + LinePairedSeparator := RegExprLinePairedSeparator; //###0.941 + end; { of constructor TRegExpr.Create +--------------------------------------------------------------} + +destructor TRegExpr.Destroy; + begin + if programm <> nil + then FreeMem (programm); + if fExpression <> nil + then FreeMem (fExpression); + if fInputString <> nil + then FreeMem (fInputString); + end; { of destructor TRegExpr.Destroy +--------------------------------------------------------------} + +class function TRegExpr.InvertCaseFunction (const Ch : REChar) : REChar; + begin + {$IFDEF UniCode} + if Ch >= #128 + then Result := Ch + else + {$ENDIF} + begin + Result := {$IFDEF FPC}AnsiUpperCase (Ch) [1]{$ELSE} REChar (CharUpper (PChar (Ch))){$ENDIF}; + if Result = Ch + then Result := {$IFDEF FPC}AnsiLowerCase (Ch) [1]{$ELSE} REChar (CharLower (PChar (Ch))){$ENDIF}; + end; + end; { of function TRegExpr.InvertCaseFunction +--------------------------------------------------------------} + +function TRegExpr.GetExpression : RegExprString; + begin + if fExpression <> nil + then Result := fExpression + else Result := ''; + end; { of function TRegExpr.GetExpression +--------------------------------------------------------------} + +procedure TRegExpr.SetExpression (const s : RegExprString); + var + Len : integer; //###0.950 + begin + if (s <> fExpression) or not fExprIsCompiled then begin + fExprIsCompiled := false; + if fExpression <> nil then begin + FreeMem (fExpression); + fExpression := nil; + end; + if s <> '' then begin + Len := length (s); //###0.950 + GetMem (fExpression, (Len + 1) * SizeOf (REChar)); +// StrPCopy (fExpression, s); //###0.950 replaced due to StrPCopy limitation of 255 chars + {$IFDEF UniCode} + StrPCopy (fExpression, Copy (s, 1, Len)); //###0.950 + {$ELSE} + StrLCopy (fExpression, PRegExprChar (s), Len); //###0.950 + {$ENDIF UniCode} + + InvalidateProgramm; //###0.941 + end; + end; + end; { of procedure TRegExpr.SetExpression +--------------------------------------------------------------} + +function TRegExpr.GetSubExprMatchCount : integer; + begin + if Assigned (fInputString) then begin + Result := NSUBEXP - 1; + while (Result > 0) and ((startp [Result] = nil) + or (endp [Result] = nil)) + do dec (Result); + end + else Result := -1; + end; { of function TRegExpr.GetSubExprMatchCount +--------------------------------------------------------------} + +function TRegExpr.GetMatchPos (Idx : integer) : integer; + begin + if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString) + and Assigned (startp [Idx]) and Assigned (endp [Idx]) then begin + Result := (startp [Idx] - fInputString) + 1; + end + else Result := -1; + end; { of function TRegExpr.GetMatchPos +--------------------------------------------------------------} + +function TRegExpr.GetMatchLen (Idx : integer) : integer; + begin + if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString) + and Assigned (startp [Idx]) and Assigned (endp [Idx]) then begin + Result := endp [Idx] - startp [Idx]; + end + else Result := -1; + end; { of function TRegExpr.GetMatchLen +--------------------------------------------------------------} + +function TRegExpr.GetMatch (Idx : integer) : RegExprString; + begin + if (Idx >= 0) and (Idx < NSUBEXP) and Assigned (fInputString) + and Assigned (startp [Idx]) and Assigned (endp [Idx]) + //then Result := copy (fInputString, MatchPos [Idx], MatchLen [Idx]) //###0.929 + then SetString (Result, startp [idx], endp [idx] - startp [idx]) + else Result := ''; + end; { of function TRegExpr.GetMatch +--------------------------------------------------------------} + +function TRegExpr.GetModifierStr : RegExprString; + begin + Result := '-'; + + if ModifierI + then Result := 'i' + Result + else Result := Result + 'i'; + if ModifierR + then Result := 'r' + Result + else Result := Result + 'r'; + if ModifierS + then Result := 's' + Result + else Result := Result + 's'; + if ModifierG + then Result := 'g' + Result + else Result := Result + 'g'; + if ModifierM + then Result := 'm' + Result + else Result := Result + 'm'; + if ModifierX + then Result := 'x' + Result + else Result := Result + 'x'; + + if Result [length (Result)] = '-' // remove '-' if all modifiers are 'On' + then System.Delete (Result, length (Result), 1); + end; { of function TRegExpr.GetModifierStr +--------------------------------------------------------------} + +class function TRegExpr.ParseModifiersStr (const AModifiers : RegExprString; +var AModifiersInt : integer) : boolean; +// !!! Be carefull - this is class function and must not use object instance fields + var + i : integer; + IsOn : boolean; + Mask : integer; + begin + Result := true; + IsOn := true; + Mask := 0; // prevent compiler warning + for i := 1 to length (AModifiers) do + if AModifiers [i] = '-' + then IsOn := false + else begin + if Pos (AModifiers [i], 'iI') > 0 + then Mask := MaskModI + else if Pos (AModifiers [i], 'rR') > 0 + then Mask := MaskModR + else if Pos (AModifiers [i], 'sS') > 0 + then Mask := MaskModS + else if Pos (AModifiers [i], 'gG') > 0 + then Mask := MaskModG + else if Pos (AModifiers [i], 'mM') > 0 + then Mask := MaskModM + else if Pos (AModifiers [i], 'xX') > 0 + then Mask := MaskModX + else begin + Result := false; + EXIT; + end; + if IsOn + then AModifiersInt := AModifiersInt or Mask + else AModifiersInt := AModifiersInt and not Mask; + end; + end; { of function TRegExpr.ParseModifiersStr +--------------------------------------------------------------} + +procedure TRegExpr.SetModifierStr (const AModifiers : RegExprString); + begin + if not ParseModifiersStr (AModifiers, fModifiers) + then Error (reeModifierUnsupported); + end; { of procedure TRegExpr.SetModifierStr +--------------------------------------------------------------} + +function TRegExpr.GetModifier (AIndex : integer) : boolean; + var + Mask : integer; + begin + Result := false; + case AIndex of + 1: Mask := MaskModI; + 2: Mask := MaskModR; + 3: Mask := MaskModS; + 4: Mask := MaskModG; + 5: Mask := MaskModM; + 6: Mask := MaskModX; + else begin + Error (reeModifierUnsupported); + EXIT; + end; + end; + Result := (fModifiers and Mask) <> 0; + end; { of function TRegExpr.GetModifier +--------------------------------------------------------------} + +procedure TRegExpr.SetModifier (AIndex : integer; ASet : boolean); + var + Mask : integer; + begin + case AIndex of + 1: Mask := MaskModI; + 2: Mask := MaskModR; + 3: Mask := MaskModS; + 4: Mask := MaskModG; + 5: Mask := MaskModM; + 6: Mask := MaskModX; + else begin + Error (reeModifierUnsupported); + EXIT; + end; + end; + if ASet + then fModifiers := fModifiers or Mask + else fModifiers := fModifiers and not Mask; + end; { of procedure TRegExpr.SetModifier +--------------------------------------------------------------} + + +{=============================================================} +{==================== Compiler section =======================} +{=============================================================} + +procedure TRegExpr.InvalidateProgramm; + begin + if programm <> nil then begin + FreeMem (programm); + programm := nil; + end; + end; { of procedure TRegExpr.InvalidateProgramm +--------------------------------------------------------------} + +procedure TRegExpr.Compile; //###0.941 + begin + if fExpression = nil then begin // No Expression assigned + Error (reeNoExpression); + EXIT; + end; + CompileRegExpr (fExpression); + end; { of procedure TRegExpr.Compile +--------------------------------------------------------------} + +function TRegExpr.IsProgrammOk : boolean; + {$IFNDEF UniCode} + var + i : integer; + {$ENDIF} + begin + Result := false; + + // check modifiers + if fModifiers <> fProgModifiers //###0.941 + then InvalidateProgramm; + + // can we optimize line separators by using sets? + {$IFNDEF UniCode} + fLineSeparatorsSet := []; + for i := 1 to length (fLineSeparators) + do System.Include (fLineSeparatorsSet, fLineSeparators [i]); + {$ENDIF} + + // [Re]compile if needed + if programm = nil + then Compile; //###0.941 + + // check [re]compiled programm + if programm = nil + then EXIT // error was set/raised by Compile (was reeExecAfterCompErr) + else if programm [0] <> MAGIC // Program corrupted. + then Error (reeCorruptedProgram) + else Result := true; + end; { of function TRegExpr.IsProgrammOk +--------------------------------------------------------------} + +procedure TRegExpr.Tail (p : PRegExprChar; val : PRegExprChar); +// set the next-pointer at the end of a node chain + var + scan : PRegExprChar; + temp : PRegExprChar; +// i : int64; + begin + if p = @regdummy + then EXIT; + // Find last node. + scan := p; + REPEAT + temp := regnext (scan); + if temp = nil + then BREAK; + scan := temp; + UNTIL false; + // Set Next 'pointer' + if val < scan + then PRENextOff (scan + REOpSz)^ := - (scan - val) //###0.948 + // work around PWideChar subtraction bug (Delphi uses + // shr after subtraction to calculate widechar distance %-( ) + // so, if difference is negative we have .. the "feature" :( + // I could wrap it in $IFDEF UniCode, but I didn't because + // "P – Q computes the difference between the address given + // by P (the higher address) and the address given by Q (the + // lower address)" - Delphi help quotation. + else PRENextOff (scan + REOpSz)^ := val - scan; //###0.933 + end; { of procedure TRegExpr.Tail +--------------------------------------------------------------} + +procedure TRegExpr.OpTail (p : PRegExprChar; val : PRegExprChar); +// regtail on operand of first argument; nop if operandless + begin + // "Operandless" and "op != BRANCH" are synonymous in practice. + if (p = nil) or (p = @regdummy) or (PREOp (p)^ <> BRANCH) + then EXIT; + Tail (p + REOpSz + RENextOffSz, val); //###0.933 + end; { of procedure TRegExpr.OpTail +--------------------------------------------------------------} + +function TRegExpr.EmitNode (op : TREOp) : PRegExprChar; //###0.933 +// emit a node, return location + begin + Result := regcode; + if Result <> @regdummy then begin + PREOp (regcode)^ := op; + inc (regcode, REOpSz); + PRENextOff (regcode)^ := 0; // Next "pointer" := nil + inc (regcode, RENextOffSz); + end + else inc (regsize, REOpSz + RENextOffSz); // compute code size without code generation + end; { of function TRegExpr.EmitNode +--------------------------------------------------------------} + +procedure TRegExpr.EmitC (b : REChar); +// emit a byte to code + begin + if regcode <> @regdummy then begin + regcode^ := b; + inc (regcode); + end + else inc (regsize); // Type of p-code pointer always is ^REChar + end; { of procedure TRegExpr.EmitC +--------------------------------------------------------------} + +procedure TRegExpr.InsertOperator (op : TREOp; opnd : PRegExprChar; sz : integer); +// insert an operator in front of already-emitted operand +// Means relocating the operand. + var + src, dst, place : PRegExprChar; + i : integer; + begin + if regcode = @regdummy then begin + inc (regsize, sz); + EXIT; + end; + src := regcode; + inc (regcode, sz); + dst := regcode; + while src > opnd do begin + dec (dst); + dec (src); + dst^ := src^; + end; + place := opnd; // Op node, where operand used to be. + PREOp (place)^ := op; + inc (place, REOpSz); + for i := 1 + REOpSz to sz do begin + place^ := #0; + inc (place); + end; + end; { of procedure TRegExpr.InsertOperator +--------------------------------------------------------------} + +function strcspn (s1 : PRegExprChar; s2 : PRegExprChar) : integer; +// find length of initial segment of s1 consisting +// entirely of characters not from s2 + var scan1, scan2 : PRegExprChar; + begin + Result := 0; + scan1 := s1; + while scan1^ <> #0 do begin + scan2 := s2; + while scan2^ <> #0 do + if scan1^ = scan2^ + then EXIT + else inc (scan2); + inc (Result); + inc (scan1) + end; + end; { of function strcspn +--------------------------------------------------------------} + +const +// Flags to be passed up and down. + HASWIDTH = 01; // Known never to match nil string. + SIMPLE = 02; // Simple enough to be STAR/PLUS/BRACES operand. + SPSTART = 04; // Starts with * or +. + WORST = 0; // Worst case. + META : array [0 .. 12] of REChar = ( + '^', '$', '.', '[', '(', ')', '|', '?', '+', '*', EscChar, '{', #0); + // Any modification must be synchronized with QuoteRegExprMetaChars !!! + +{$IFDEF UniCode} + RusRangeLo : array [0 .. 33] of REChar = + (#$430,#$431,#$432,#$433,#$434,#$435,#$451,#$436,#$437, + #$438,#$439,#$43A,#$43B,#$43C,#$43D,#$43E,#$43F, + #$440,#$441,#$442,#$443,#$444,#$445,#$446,#$447, + #$448,#$449,#$44A,#$44B,#$44C,#$44D,#$44E,#$44F,#0); + RusRangeHi : array [0 .. 33] of REChar = + (#$410,#$411,#$412,#$413,#$414,#$415,#$401,#$416,#$417, + #$418,#$419,#$41A,#$41B,#$41C,#$41D,#$41E,#$41F, + #$420,#$421,#$422,#$423,#$424,#$425,#$426,#$427, + #$428,#$429,#$42A,#$42B,#$42C,#$42D,#$42E,#$42F,#0); + RusRangeLoLow = #$430{'à'}; + RusRangeLoHigh = #$44F{'ÿ'}; + RusRangeHiLow = #$410{'À'}; + RusRangeHiHigh = #$42F{'ß'}; +{$ELSE} + RusRangeLo = 'àáâãäå¸æçèéêëìíîïðñòóôõö÷øùúûüýþÿ'; + RusRangeHi = 'ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß'; + RusRangeLoLow = 'à'; + RusRangeLoHigh = 'ÿ'; + RusRangeHiLow = 'À'; + RusRangeHiHigh = 'ß'; +{$ENDIF} + +function TRegExpr.CompileRegExpr (exp : PRegExprChar) : boolean; +// compile a regular expression into internal code +// We can't allocate space until we know how big the compiled form will be, +// but we can't compile it (and thus know how big it is) until we've got a +// place to put the code. So we cheat: we compile it twice, once with code +// generation turned off and size counting turned on, and once "for real". +// This also means that we don't allocate space until we are sure that the +// thing really will compile successfully, and we never have to move the +// code and thus invalidate pointers into it. (Note that it has to be in +// one piece because free() must be able to free it all.) +// Beware that the optimization-preparation code in here knows about some +// of the structure of the compiled regexp. + var + scan, longest : PRegExprChar; + len : cardinal; + flags : integer; + begin + Result := false; // life too dark + + regparse := nil; // for correct error handling + regexpbeg := exp; + try + + if programm <> nil then begin + FreeMem (programm); + programm := nil; + end; + + if exp = nil then begin + Error (reeCompNullArgument); + EXIT; + end; + + fProgModifiers := fModifiers; + // well, may it's paranoia. I'll check it later... !!!!!!!! + + // First pass: determine size, legality. + fCompModifiers := fModifiers; + regparse := exp; + regnpar := 1; + regsize := 0; + regcode := @regdummy; + EmitC (MAGIC); + if ParseReg (0, flags) = nil + then EXIT; + + // Small enough for 2-bytes programm pointers ? + // ###0.933 no real p-code length limits now :))) +// if regsize >= 64 * 1024 then begin +// Error (reeCompRegexpTooBig); +// EXIT; +// end; + + // Allocate space. + GetMem (programm, regsize * SizeOf (REChar)); + + // Second pass: emit code. + fCompModifiers := fModifiers; + regparse := exp; + regnpar := 1; + regcode := programm; + EmitC (MAGIC); + if ParseReg (0, flags) = nil + then EXIT; + + // Dig out information for optimizations. + {$IFDEF UseFirstCharSet} //###0.929 + FirstCharSet := []; + FillFirstCharSet (programm + REOpSz); + {$ENDIF} + regstart := #0; // Worst-case defaults. + reganch := #0; + regmust := nil; + regmlen := 0; + scan := programm + REOpSz; // First BRANCH. + if PREOp (regnext (scan))^ = EEND then begin // Only one top-level choice. + scan := scan + REOpSz + RENextOffSz; + + // Starting-point info. + if PREOp (scan)^ = EXACTLY + then regstart := (scan + REOpSz + RENextOffSz)^ + else if PREOp (scan)^ = BOL + then inc (reganch); + + // If there's something expensive in the r.e., find the longest + // literal string that must appear and make it the regmust. Resolve + // ties in favor of later strings, since the regstart check works + // with the beginning of the r.e. and avoiding duplication + // strengthens checking. Not a strong reason, but sufficient in the + // absence of others. + if (flags and SPSTART) <> 0 then begin + longest := nil; + len := 0; + while scan <> nil do begin + if (PREOp (scan)^ = EXACTLY) + and (strlen (scan + REOpSz + RENextOffSz) >= len) then begin + longest := scan + REOpSz + RENextOffSz; + len := strlen (longest); + end; + scan := regnext (scan); + end; + regmust := longest; + regmlen := len; + end; + end; + + Result := true; + + finally begin + if not Result + then InvalidateProgramm; + regexpbeg := nil; + fExprIsCompiled := Result; //###0.944 + end; + end; + + end; { of function TRegExpr.CompileRegExpr +--------------------------------------------------------------} + +function TRegExpr.ParseReg (paren : integer; var flagp : integer) : PRegExprChar; +// regular expression, i.e. main body or parenthesized thing +// Caller must absorb opening parenthesis. +// Combining parenthesis handling with the base level of regular expression +// is a trifle forced, but the need to tie the tails of the branches to what +// follows makes it hard to avoid. + var + ret, br, ender : PRegExprChar; + parno : integer; + flags : integer; + SavedModifiers : integer; + begin + Result := nil; + flagp := HASWIDTH; // Tentatively. + parno := 0; // eliminate compiler stupid warning + SavedModifiers := fCompModifiers; + + // Make an OPEN node, if parenthesized. + if paren <> 0 then begin + if regnpar >= NSUBEXP then begin + Error (reeCompParseRegTooManyBrackets); + EXIT; + end; + parno := regnpar; + inc (regnpar); + ret := EmitNode (TREOp (ord (OPEN) + parno)); + end + else ret := nil; + + // Pick up the branches, linking them together. + br := ParseBranch (flags); + if br = nil then begin + Result := nil; + EXIT; + end; + if ret <> nil + then Tail (ret, br) // OPEN -> first. + else ret := br; + if (flags and HASWIDTH) = 0 + then flagp := flagp and not HASWIDTH; + flagp := flagp or flags and SPSTART; + while (regparse^ = '|') do begin + inc (regparse); + br := ParseBranch (flags); + if br = nil then begin + Result := nil; + EXIT; + end; + Tail (ret, br); // BRANCH -> BRANCH. + if (flags and HASWIDTH) = 0 + then flagp := flagp and not HASWIDTH; + flagp := flagp or flags and SPSTART; + end; + + // Make a closing node, and hook it on the end. + if paren <> 0 + then ender := EmitNode (TREOp (ord (CLOSE) + parno)) + else ender := EmitNode (EEND); + Tail (ret, ender); + + // Hook the tails of the branches to the closing node. + br := ret; + while br <> nil do begin + OpTail (br, ender); + br := regnext (br); + end; + + // Check for proper termination. + if paren <> 0 then + if regparse^ <> ')' then begin + Error (reeCompParseRegUnmatchedBrackets); + EXIT; + end + else inc (regparse); // skip trailing ')' + if (paren = 0) and (regparse^ <> #0) then begin + if regparse^ = ')' + then Error (reeCompParseRegUnmatchedBrackets2) + else Error (reeCompParseRegJunkOnEnd); + EXIT; + end; + fCompModifiers := SavedModifiers; // restore modifiers of parent + Result := ret; + end; { of function TRegExpr.ParseReg +--------------------------------------------------------------} + +function TRegExpr.ParseBranch (var flagp : integer) : PRegExprChar; +// one alternative of an | operator +// Implements the concatenation operator. + var + ret, chain, latest : PRegExprChar; + flags : integer; + begin + flagp := WORST; // Tentatively. + + ret := EmitNode (BRANCH); + chain := nil; + while (regparse^ <> #0) and (regparse^ <> '|') + and (regparse^ <> ')') do begin + latest := ParsePiece (flags); + if latest = nil then begin + Result := nil; + EXIT; + end; + flagp := flagp or flags and HASWIDTH; + if chain = nil // First piece. + then flagp := flagp or flags and SPSTART + else Tail (chain, latest); + chain := latest; + end; + if chain = nil // Loop ran zero times. + then EmitNode (NOTHING); + Result := ret; + end; { of function TRegExpr.ParseBranch +--------------------------------------------------------------} + +function TRegExpr.ParsePiece (var flagp : integer) : PRegExprChar; +// something followed by possible [*+?{] +// Note that the branching code sequences used for ? and the general cases +// of * and + and { are somewhat optimized: they use the same NOTHING node as +// both the endmarker for their branch list and the body of the last branch. +// It might seem that this node could be dispensed with entirely, but the +// endmarker role is not redundant. + function parsenum (AStart, AEnd : PRegExprChar) : TREBracesArg; + begin + Result := 0; + if AEnd - AStart + 1 > 8 then begin // prevent stupid scanning + Error (reeBRACESArgTooBig); + EXIT; + end; + while AStart <= AEnd do begin + Result := Result * 10 + (ord (AStart^) - ord ('0')); + inc (AStart); + end; + if (Result > MaxBracesArg) or (Result < 0) then begin + Error (reeBRACESArgTooBig); + EXIT; + end; + end; + + var + op : REChar; + NonGreedyOp, NonGreedyCh : boolean; //###0.940 + TheOp : TREOp; //###0.940 + NextNode : PRegExprChar; + flags : integer; + BracesMin, Bracesmax : TREBracesArg; + p, savedparse : PRegExprChar; + + procedure EmitComplexBraces (ABracesMin, ABracesMax : TREBracesArg; + ANonGreedyOp : boolean); //###0.940 + {$IFDEF ComplexBraces} + var + off : integer; + {$ENDIF} + begin + {$IFNDEF ComplexBraces} + Error (reeComplexBracesNotImplemented); + {$ELSE} + if ANonGreedyOp + then TheOp := LOOPNG + else TheOp := LOOP; + InsertOperator (LOOPENTRY, Result, REOpSz + RENextOffSz); + NextNode := EmitNode (TheOp); + if regcode <> @regdummy then begin + off := (Result + REOpSz + RENextOffSz) + - (regcode - REOpSz - RENextOffSz); // back to Atom after LOOPENTRY + PREBracesArg (regcode)^ := ABracesMin; + inc (regcode, REBracesArgSz); + PREBracesArg (regcode)^ := ABracesMax; + inc (regcode, REBracesArgSz); + PRENextOff (regcode)^ := off; + inc (regcode, RENextOffSz); + end + else inc (regsize, REBracesArgSz * 2 + RENextOffSz); + Tail (Result, NextNode); // LOOPENTRY -> LOOP + if regcode <> @regdummy then + Tail (Result + REOpSz + RENextOffSz, NextNode); // Atom -> LOOP + {$ENDIF} + end; + + procedure EmitSimpleBraces (ABracesMin, ABracesMax : TREBracesArg; + ANonGreedyOp : boolean); //###0.940 + begin + if ANonGreedyOp //###0.940 + then TheOp := BRACESNG + else TheOp := BRACES; + InsertOperator (TheOp, Result, REOpSz + RENextOffSz + REBracesArgSz * 2); + if regcode <> @regdummy then begin + PREBracesArg (Result + REOpSz + RENextOffSz)^ := ABracesMin; + PREBracesArg (Result + REOpSz + RENextOffSz + REBracesArgSz)^ := ABracesMax; + end; + end; + + begin + Result := ParseAtom (flags); + if Result = nil + then EXIT; + + op := regparse^; + if not ((op = '*') or (op = '+') or (op = '?') or (op = '{')) then begin + flagp := flags; + EXIT; + end; + if ((flags and HASWIDTH) = 0) and (op <> '?') then begin + Error (reePlusStarOperandCouldBeEmpty); + EXIT; + end; + + case op of + '*': begin + flagp := WORST or SPSTART; + NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 + NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 + if (flags and SIMPLE) = 0 then begin + if NonGreedyOp //###0.940 + then EmitComplexBraces (0, MaxBracesArg, NonGreedyOp) + else begin // Emit x* as (x&|), where & means "self". + InsertOperator (BRANCH, Result, REOpSz + RENextOffSz); // Either x + OpTail (Result, EmitNode (BACK)); // and loop + OpTail (Result, Result); // back + Tail (Result, EmitNode (BRANCH)); // or + Tail (Result, EmitNode (NOTHING)); // nil. + end + end + else begin // Simple + if NonGreedyOp //###0.940 + then TheOp := STARNG + else TheOp := STAR; + InsertOperator (TheOp, Result, REOpSz + RENextOffSz); + end; + if NonGreedyCh //###0.940 + then inc (regparse); // Skip extra char ('?') + end; { of case '*'} + '+': begin + flagp := WORST or SPSTART or HASWIDTH; + NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 + NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 + if (flags and SIMPLE) = 0 then begin + if NonGreedyOp //###0.940 + then EmitComplexBraces (1, MaxBracesArg, NonGreedyOp) + else begin // Emit x+ as x(&|), where & means "self". + NextNode := EmitNode (BRANCH); // Either + Tail (Result, NextNode); + Tail (EmitNode (BACK), Result); // loop back + Tail (NextNode, EmitNode (BRANCH)); // or + Tail (Result, EmitNode (NOTHING)); // nil. + end + end + else begin // Simple + if NonGreedyOp //###0.940 + then TheOp := PLUSNG + else TheOp := PLUS; + InsertOperator (TheOp, Result, REOpSz + RENextOffSz); + end; + if NonGreedyCh //###0.940 + then inc (regparse); // Skip extra char ('?') + end; { of case '+'} + '?': begin + flagp := WORST; + NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 + NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 + if NonGreedyOp then begin //###0.940 // We emit x?? as x{0,1}? + if (flags and SIMPLE) = 0 + then EmitComplexBraces (0, 1, NonGreedyOp) + else EmitSimpleBraces (0, 1, NonGreedyOp); + end + else begin // greedy '?' + InsertOperator (BRANCH, Result, REOpSz + RENextOffSz); // Either x + Tail (Result, EmitNode (BRANCH)); // or + NextNode := EmitNode (NOTHING); // nil. + Tail (Result, NextNode); + OpTail (Result, NextNode); + end; + if NonGreedyCh //###0.940 + then inc (regparse); // Skip extra char ('?') + end; { of case '?'} + '{': begin + savedparse := regparse; + // !!!!!!!!!!!! + // Filip Jirsak's note - what will happen, when we are at the end of regparse? + inc (regparse); + p := regparse; + while Pos (regparse^, '0123456789') > 0 // MUST appear + do inc (regparse); + if (regparse^ <> '}') and (regparse^ <> ',') or (p = regparse) then begin + regparse := savedparse; + flagp := flags; + EXIT; + end; + BracesMin := parsenum (p, regparse - 1); + if regparse^ = ',' then begin + inc (regparse); + p := regparse; + while Pos (regparse^, '0123456789') > 0 + do inc (regparse); + if regparse^ <> '}' then begin + regparse := savedparse; + EXIT; + end; + if p = regparse + then BracesMax := MaxBracesArg + else BracesMax := parsenum (p, regparse - 1); + end + else BracesMax := BracesMin; // {n} == {n,n} + if BracesMin > BracesMax then begin + Error (reeBracesMinParamGreaterMax); + EXIT; + end; + if BracesMin > 0 + then flagp := WORST; + if BracesMax > 0 + then flagp := flagp or HASWIDTH or SPSTART; + + NonGreedyCh := (regparse + 1)^ = '?'; //###0.940 + NonGreedyOp := NonGreedyCh or ((fCompModifiers and MaskModG) = 0); //###0.940 + if (flags and SIMPLE) <> 0 + then EmitSimpleBraces (BracesMin, BracesMax, NonGreedyOp) + else EmitComplexBraces (BracesMin, BracesMax, NonGreedyOp); + if NonGreedyCh //###0.940 + then inc (regparse); // Skip extra char '?' + end; { of case '{'} +// else // here we can't be + end; { of case op} + + inc (regparse); + if (regparse^ = '*') or (regparse^ = '+') or (regparse^ = '?') or (regparse^ = '{') then begin + Error (reeNestedSQP); + EXIT; + end; + end; { of function TRegExpr.ParsePiece +--------------------------------------------------------------} + +function TRegExpr.ParseAtom (var flagp : integer) : PRegExprChar; +// the lowest level +// Optimization: gobbles an entire sequence of ordinary characters so that +// it can turn them into a single node, which is smaller to store and +// faster to run. Backslashed characters are exceptions, each becoming a +// separate node; the code is simpler that way and it's not worth fixing. + var + ret : PRegExprChar; + flags : integer; + RangeBeg, RangeEnd : REChar; + CanBeRange : boolean; + len : integer; + ender : REChar; + begmodfs : PRegExprChar; + + {$IFDEF UseSetOfChar} //###0.930 + RangePCodeBeg : PRegExprChar; + RangePCodeIdx : integer; + RangeIsCI : boolean; + RangeSet : TSetOfREChar; + RangeLen : integer; + RangeChMin, RangeChMax : REChar; + {$ENDIF} + + procedure EmitExactly (ch : REChar); + begin + if (fCompModifiers and MaskModI) <> 0 + then ret := EmitNode (EXACTLYCI) + else ret := EmitNode (EXACTLY); + EmitC (ch); + EmitC (#0); + flagp := flagp or HASWIDTH or SIMPLE; + end; + + procedure EmitStr (const s : RegExprString); + var i : integer; + begin + for i := 1 to length (s) + do EmitC (s [i]); + end; + + function HexDig (ch : REChar) : integer; + begin + Result := 0; + if (ch >= 'a') and (ch <= 'f') + then ch := REChar (ord (ch) - (ord ('a') - ord ('A'))); + if (ch < '0') or (ch > 'F') or ((ch > '9') and (ch < 'A')) then begin + Error (reeBadHexDigit); + EXIT; + end; + Result := ord (ch) - ord ('0'); + if ch >= 'A' + then Result := Result - (ord ('A') - ord ('9') - 1); + end; + + function EmitRange (AOpCode : REChar) : PRegExprChar; + begin + {$IFDEF UseSetOfChar} + case AOpCode of + ANYBUTCI, ANYBUT: + Result := EmitNode (ANYBUTTINYSET); + else // ANYOFCI, ANYOF + Result := EmitNode (ANYOFTINYSET); + end; + case AOpCode of + ANYBUTCI, ANYOFCI: + RangeIsCI := True; + else // ANYBUT, ANYOF + RangeIsCI := False; + end; + RangePCodeBeg := regcode; + RangePCodeIdx := regsize; + RangeLen := 0; + RangeSet := []; + RangeChMin := #255; + RangeChMax := #0; + {$ELSE} + Result := EmitNode (AOpCode); + // ToDo: + // !!!!!!!!!!!!! Implement ANYOF[BUT]TINYSET generation for UniCode !!!!!!!!!! + {$ENDIF} + end; + +{$IFDEF UseSetOfChar} + procedure EmitRangeCPrim (b : REChar); //###0.930 + begin + if b in RangeSet + then EXIT; + inc (RangeLen); + if b < RangeChMin + then RangeChMin := b; + if b > RangeChMax + then RangeChMax := b; + Include (RangeSet, b); + end; + {$ENDIF} + + procedure EmitRangeC (b : REChar); + {$IFDEF UseSetOfChar} + var + Ch : REChar; + {$ENDIF} + begin + CanBeRange := false; + {$IFDEF UseSetOfChar} + if b <> #0 then begin + EmitRangeCPrim (b); //###0.930 + if RangeIsCI + then EmitRangeCPrim (InvertCase (b)); //###0.930 + end + else begin + {$IFDEF UseAsserts} + Assert (RangeLen > 0, 'TRegExpr.ParseAtom(subroutine EmitRangeC): empty range'); // impossible, but who knows.. + Assert (RangeChMin <= RangeChMax, 'TRegExpr.ParseAtom(subroutine EmitRangeC): RangeChMin > RangeChMax'); // impossible, but who knows.. + {$ENDIF} + if RangeLen <= TinySetLen then begin // emit "tiny set" + if regcode = @regdummy then begin + regsize := RangePCodeIdx + TinySetLen; // RangeChMin/Max !!! + EXIT; + end; + regcode := RangePCodeBeg; + for Ch := RangeChMin to RangeChMax do //###0.930 + if Ch in RangeSet then begin + regcode^ := Ch; + inc (regcode); + end; + // fill rest: + while regcode < RangePCodeBeg + TinySetLen do begin + regcode^ := RangeChMax; + inc (regcode); + end; + end + else begin + if regcode = @regdummy then begin + regsize := RangePCodeIdx + SizeOf (TSetOfREChar); + EXIT; + end; + if (RangePCodeBeg - REOpSz - RENextOffSz)^ = ANYBUTTINYSET + then RangeSet := [#0 .. #255] - RangeSet; + PREOp (RangePCodeBeg - REOpSz - RENextOffSz)^ := ANYOFFULLSET; + regcode := RangePCodeBeg; + Move (RangeSet, regcode^, SizeOf (TSetOfREChar)); + inc (regcode, SizeOf (TSetOfREChar)); + end; + end; + {$ELSE} + EmitC (b); + {$ENDIF} + end; + + procedure EmitSimpleRangeC (b : REChar); + begin + RangeBeg := b; + EmitRangeC (b); + CanBeRange := true; + end; + + procedure EmitRangeStr (const s : RegExprString); + var i : integer; + begin + for i := 1 to length (s) + do EmitRangeC (s [i]); + end; + + function UnQuoteChar (var APtr : PRegExprChar) : REChar; //###0.934 + begin + case APtr^ of + 't': Result := #$9; // tab (HT/TAB) + 'n': Result := #$a; // newline (NL) + 'r': Result := #$d; // car.return (CR) + 'f': Result := #$c; // form feed (FF) + 'a': Result := #$7; // alarm (bell) (BEL) + 'e': Result := #$1b; // escape (ESC) + 'x': begin // hex char + Result := #0; + inc (APtr); + if APtr^ = #0 then begin + Error (reeNoHexCodeAfterBSlashX); + EXIT; + end; + if APtr^ = '{' then begin // \x{nnnn} //###0.936 + REPEAT + inc (APtr); + if APtr^ = #0 then begin + Error (reeNoHexCodeAfterBSlashX); + EXIT; + end; + if APtr^ <> '}' then begin + if (Ord (Result) + ShR (SizeOf (REChar) * 8 - 4)) and $F <> 0 then begin + Error (reeHexCodeAfterBSlashXTooBig); + EXIT; + end; + Result := REChar ((Ord (Result) ShL 4) or HexDig (APtr^)); + // HexDig will cause Error if bad hex digit found + end + else BREAK; + UNTIL False; + end + else begin + Result := REChar (HexDig (APtr^)); + // HexDig will cause Error if bad hex digit found + inc (APtr); + if APtr^ = #0 then begin + Error (reeNoHexCodeAfterBSlashX); + EXIT; + end; + Result := REChar ((Ord (Result) ShL 4) or HexDig (APtr^)); + // HexDig will cause Error if bad hex digit found + end; + end; + else Result := APtr^; + end; + end; + + begin + Result := nil; + flagp := WORST; // Tentatively. + + inc (regparse); + case (regparse - 1)^ of + '^': if ((fCompModifiers and MaskModM) = 0) + or ((fLineSeparators = '') and not fLinePairedSeparatorAssigned) + then ret := EmitNode (BOL) + else ret := EmitNode (BOLML); + '$': if ((fCompModifiers and MaskModM) = 0) + or ((fLineSeparators = '') and not fLinePairedSeparatorAssigned) + then ret := EmitNode (EOL) + else ret := EmitNode (EOLML); + '.': + if (fCompModifiers and MaskModS) <> 0 then begin + ret := EmitNode (ANY); + flagp := flagp or HASWIDTH or SIMPLE; + end + else begin // not /s, so emit [^:LineSeparators:] + ret := EmitNode (ANYML); + flagp := flagp or HASWIDTH; // not so simple ;) +// ret := EmitRange (ANYBUT); +// EmitRangeStr (LineSeparators); //###0.941 +// EmitRangeStr (LinePairedSeparator); // !!! isn't correct if have to accept only paired +// EmitRangeC (#0); +// flagp := flagp or HASWIDTH or SIMPLE; + end; + '[': begin + if regparse^ = '^' then begin // Complement of range. + if (fCompModifiers and MaskModI) <> 0 + then ret := EmitRange (ANYBUTCI) + else ret := EmitRange (ANYBUT); + inc (regparse); + end + else + if (fCompModifiers and MaskModI) <> 0 + then ret := EmitRange (ANYOFCI) + else ret := EmitRange (ANYOF); + + CanBeRange := false; + + if (regparse^ = ']') then begin + EmitSimpleRangeC (regparse^); // []-a] -> ']' .. 'a' + inc (regparse); + end; + + while (regparse^ <> #0) and (regparse^ <> ']') do begin + if (regparse^ = '-') + and ((regparse + 1)^ <> #0) and ((regparse + 1)^ <> ']') + and CanBeRange then begin + inc (regparse); + RangeEnd := regparse^; + if RangeEnd = EscChar then begin + {$IFDEF UniCode} //###0.935 + if (ord ((regparse + 1)^) < 256) + and (char ((regparse + 1)^) + in ['d', 'D', 's', 'S', 'w', 'W']) then begin + {$ELSE} + if (regparse + 1)^ in ['d', 'D', 's', 'S', 'w', 'W'] then begin + {$ENDIF} + EmitRangeC ('-'); // or treat as error ?!! + CONTINUE; + end; + inc (regparse); + RangeEnd := UnQuoteChar (regparse); + end; + + // r.e.ranges extension for russian + if ((fCompModifiers and MaskModR) <> 0) + and (RangeBeg = RusRangeLoLow) and (RangeEnd = RusRangeLoHigh) then begin + EmitRangeStr (RusRangeLo); + end + else if ((fCompModifiers and MaskModR) <> 0) + and (RangeBeg = RusRangeHiLow) and (RangeEnd = RusRangeHiHigh) then begin + EmitRangeStr (RusRangeHi); + end + else if ((fCompModifiers and MaskModR) <> 0) + and (RangeBeg = RusRangeLoLow) and (RangeEnd = RusRangeHiHigh) then begin + EmitRangeStr (RusRangeLo); + EmitRangeStr (RusRangeHi); + end + else begin // standard r.e. handling + if RangeBeg > RangeEnd then begin + Error (reeInvalidRange); + EXIT; + end; + inc (RangeBeg); + EmitRangeC (RangeEnd); // prevent infinite loop if RangeEnd=$ff + while RangeBeg < RangeEnd do begin //###0.929 + EmitRangeC (RangeBeg); + inc (RangeBeg); + end; + end; + inc (regparse); + end + else begin + if regparse^ = EscChar then begin + inc (regparse); + if regparse^ = #0 then begin + Error (reeParseAtomTrailingBackSlash); + EXIT; + end; + case regparse^ of // r.e.extensions + 'd': EmitRangeStr ('0123456789'); + 'w': EmitRangeStr (WordChars); + 's': EmitRangeStr (SpaceChars); + else EmitSimpleRangeC (UnQuoteChar (regparse)); + end; { of case} + end + else EmitSimpleRangeC (regparse^); + inc (regparse); + end; + end; { of while} + EmitRangeC (#0); + if regparse^ <> ']' then begin + Error (reeUnmatchedSqBrackets); + EXIT; + end; + inc (regparse); + flagp := flagp or HASWIDTH or SIMPLE; + end; + '(': begin + if regparse^ = '?' then begin + // check for extended Perl syntax : (?..) + if (regparse + 1)^ = '#' then begin // (?#comment) + inc (regparse, 2); // find closing ')' + while (regparse^ <> #0) and (regparse^ <> ')') + do inc (regparse); + if regparse^ <> ')' then begin + Error (reeUnclosedComment); + EXIT; + end; + inc (regparse); // skip ')' + ret := EmitNode (COMMENT); // comment + end + else begin // modifiers ? + inc (regparse); // skip '?' + begmodfs := regparse; + while (regparse^ <> #0) and (regparse^ <> ')') + do inc (regparse); + if (regparse^ <> ')') + or not ParseModifiersStr (copy (begmodfs, 1, (regparse - begmodfs)), fCompModifiers) then begin + Error (reeUrecognizedModifier); + EXIT; + end; + inc (regparse); // skip ')' + ret := EmitNode (COMMENT); // comment +// Error (reeQPSBFollowsNothing); +// EXIT; + end; + end + else begin + ret := ParseReg (1, flags); + if ret = nil then begin + Result := nil; + EXIT; + end; + flagp := flagp or flags and (HASWIDTH or SPSTART); + end; + end; + #0, '|', ')': begin // Supposed to be caught earlier. + Error (reeInternalUrp); + EXIT; + end; + '?', '+', '*': begin + Error (reeQPSBFollowsNothing); + EXIT; + end; + EscChar: begin + if regparse^ = #0 then begin + Error (reeTrailingBackSlash); + EXIT; + end; + case regparse^ of // r.e.extensions + 'b': ret := EmitNode (BOUND); //###0.943 + 'B': ret := EmitNode (NOTBOUND); //###0.943 + 'A': ret := EmitNode (BOL); //###0.941 + 'Z': ret := EmitNode (EOL); //###0.941 + 'd': begin // r.e.extension - any digit ('0' .. '9') + ret := EmitNode (ANYDIGIT); + flagp := flagp or HASWIDTH or SIMPLE; + end; + 'D': begin // r.e.extension - not digit ('0' .. '9') + ret := EmitNode (NOTDIGIT); + flagp := flagp or HASWIDTH or SIMPLE; + end; + 's': begin // r.e.extension - any space char + {$IFDEF UseSetOfChar} + ret := EmitRange (ANYOF); + EmitRangeStr (SpaceChars); + EmitRangeC (#0); + {$ELSE} + ret := EmitNode (ANYSPACE); + {$ENDIF} + flagp := flagp or HASWIDTH or SIMPLE; + end; + 'S': begin // r.e.extension - not space char + {$IFDEF UseSetOfChar} + ret := EmitRange (ANYBUT); + EmitRangeStr (SpaceChars); + EmitRangeC (#0); + {$ELSE} + ret := EmitNode (NOTSPACE); + {$ENDIF} + flagp := flagp or HASWIDTH or SIMPLE; + end; + 'w': begin // r.e.extension - any english char / digit / '_' + {$IFDEF UseSetOfChar} + ret := EmitRange (ANYOF); + EmitRangeStr (WordChars); + EmitRangeC (#0); + {$ELSE} + ret := EmitNode (ANYLETTER); + {$ENDIF} + flagp := flagp or HASWIDTH or SIMPLE; + end; + 'W': begin // r.e.extension - not english char / digit / '_' + {$IFDEF UseSetOfChar} + ret := EmitRange (ANYBUT); + EmitRangeStr (WordChars); + EmitRangeC (#0); + {$ELSE} + ret := EmitNode (NOTLETTER); + {$ENDIF} + flagp := flagp or HASWIDTH or SIMPLE; + end; + '1' .. '9': begin //###0.936 + if (fCompModifiers and MaskModI) <> 0 + then ret := EmitNode (BSUBEXPCI) + else ret := EmitNode (BSUBEXP); + EmitC (REChar (ord (regparse^) - ord ('0'))); + flagp := flagp or HASWIDTH or SIMPLE; + end; + else EmitExactly (UnQuoteChar (regparse)); + end; { of case} + inc (regparse); + end; + else begin + dec (regparse); + if ((fCompModifiers and MaskModX) <> 0) and // check for eXtended syntax + ((regparse^ = '#') + or ({$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947 + {$ELSE}regparse^ in XIgnoredChars{$ENDIF})) then begin //###0.941 \x + if regparse^ = '#' then begin // Skip eXtended comment + // find comment terminator (group of \n and/or \r) + while (regparse^ <> #0) and (regparse^ <> #$d) and (regparse^ <> #$a) + do inc (regparse); + while (regparse^ = #$d) or (regparse^ = #$a) // skip comment terminator + do inc (regparse); // attempt to support different type of line separators + end + else begin // Skip the blanks! + while {$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947 + {$ELSE}regparse^ in XIgnoredChars{$ENDIF} + do inc (regparse); + end; + ret := EmitNode (COMMENT); // comment + end + else begin + len := strcspn (regparse, META); + if len <= 0 then + if regparse^ <> '{' then begin + Error (reeRarseAtomInternalDisaster); + EXIT; + end + else len := strcspn (regparse + 1, META) + 1; // bad {n,m} - compile as EXATLY + ender := (regparse + len)^; + if (len > 1) + and ((ender = '*') or (ender = '+') or (ender = '?') or (ender = '{')) + then dec (len); // Back off clear of ?+*{ operand. + flagp := flagp or HASWIDTH; + if len = 1 + then flagp := flagp or SIMPLE; + if (fCompModifiers and MaskModI) <> 0 + then ret := EmitNode (EXACTLYCI) + else ret := EmitNode (EXACTLY); + while (len > 0) + and (((fCompModifiers and MaskModX) = 0) or (regparse^ <> '#')) do begin + if ((fCompModifiers and MaskModX) = 0) or not ( //###0.941 + {$IFDEF UniCode}StrScan (XIgnoredChars, regparse^) <> nil //###0.947 + {$ELSE}regparse^ in XIgnoredChars{$ENDIF} ) + then EmitC (regparse^); + inc (regparse); + dec (len); + end; + EmitC (#0); + end; { of if not comment} + end; { of case else} + end; { of case} + + Result := ret; + end; { of function TRegExpr.ParseAtom +--------------------------------------------------------------} + +function TRegExpr.GetCompilerErrorPos : integer; + begin + Result := 0; + if (regexpbeg = nil) or (regparse = nil) + then EXIT; // not in compiling mode ? + Result := regparse - regexpbeg; + end; { of function TRegExpr.GetCompilerErrorPos +--------------------------------------------------------------} + + +{=============================================================} +{===================== Matching section ======================} +{=============================================================} + +{$IFNDEF UseSetOfChar} +function TRegExpr.StrScanCI (s : PRegExprChar; ch : REChar) : PRegExprChar; //###0.928 - now method of TRegExpr + begin + while (s^ <> #0) and (s^ <> ch) and (s^ <> InvertCase (ch)) + do inc (s); + if s^ <> #0 + then Result := s + else Result := nil; + end; { of function TRegExpr.StrScanCI +--------------------------------------------------------------} +{$ENDIF} + +function TRegExpr.regrepeat (p : PRegExprChar; AMax : integer) : integer; +// repeatedly match something simple, report how many + var + scan : PRegExprChar; + opnd : PRegExprChar; + TheMax : integer; + {Ch,} InvCh : REChar; //###0.931 + sestart, seend : PRegExprChar; //###0.936 + begin + Result := 0; + scan := reginput; + opnd := p + REOpSz + RENextOffSz; //OPERAND + TheMax := fInputEnd - scan; + if TheMax > AMax + then TheMax := AMax; + case PREOp (p)^ of + ANY: begin + // note - ANYML cannot be proceeded in regrepeat because can skip + // more than one char at once + Result := TheMax; + inc (scan, Result); + end; + EXACTLY: begin // in opnd can be only ONE char !!! +// Ch := opnd^; // store in register //###0.931 + while (Result < TheMax) and (opnd^ = scan^) do begin + inc (Result); + inc (scan); + end; + end; + EXACTLYCI: begin // in opnd can be only ONE char !!! +// Ch := opnd^; // store in register //###0.931 + while (Result < TheMax) and (opnd^ = scan^) do begin // prevent unneeded InvertCase //###0.931 + inc (Result); + inc (scan); + end; + if Result < TheMax then begin //###0.931 + InvCh := InvertCase (opnd^); // store in register + while (Result < TheMax) and + ((opnd^ = scan^) or (InvCh = scan^)) do begin + inc (Result); + inc (scan); + end; + end; + end; + BSUBEXP: begin //###0.936 + sestart := startp [ord (opnd^)]; + if sestart = nil + then EXIT; + seend := endp [ord (opnd^)]; + if seend = nil + then EXIT; + REPEAT + opnd := sestart; + while opnd < seend do begin + if (scan >= fInputEnd) or (scan^ <> opnd^) + then EXIT; + inc (scan); + inc (opnd); + end; + inc (Result); + reginput := scan; + UNTIL Result >= AMax; + end; + BSUBEXPCI: begin //###0.936 + sestart := startp [ord (opnd^)]; + if sestart = nil + then EXIT; + seend := endp [ord (opnd^)]; + if seend = nil + then EXIT; + REPEAT + opnd := sestart; + while opnd < seend do begin + if (scan >= fInputEnd) or + ((scan^ <> opnd^) and (scan^ <> InvertCase (opnd^))) + then EXIT; + inc (scan); + inc (opnd); + end; + inc (Result); + reginput := scan; + UNTIL Result >= AMax; + end; + ANYDIGIT: + while (Result < TheMax) and + (scan^ >= '0') and (scan^ <= '9') do begin + inc (Result); + inc (scan); + end; + NOTDIGIT: + while (Result < TheMax) and + ((scan^ < '0') or (scan^ > '9')) do begin + inc (Result); + inc (scan); + end; + {$IFNDEF UseSetOfChar} //###0.929 + ANYLETTER: + while (Result < TheMax) and + (Pos (scan^, fWordChars) > 0) //###0.940 + { ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9') + or (scan^ >= 'A') and (scan^ <= 'Z') or (scan^ = '_'))} do begin + inc (Result); + inc (scan); + end; + NOTLETTER: + while (Result < TheMax) and + (Pos (scan^, fWordChars) <= 0) //###0.940 + { not ((scan^ >= 'a') and (scan^ <= 'z') !! I've forgotten (>='0') and (<='9') + or (scan^ >= 'A') and (scan^ <= 'Z') + or (scan^ = '_'))} do begin + inc (Result); + inc (scan); + end; + ANYSPACE: + while (Result < TheMax) and + (Pos (scan^, fSpaceChars) > 0) do begin + inc (Result); + inc (scan); + end; + NOTSPACE: + while (Result < TheMax) and + (Pos (scan^, fSpaceChars) <= 0) do begin + inc (Result); + inc (scan); + end; + {$ENDIF} + ANYOFTINYSET: begin + while (Result < TheMax) and //!!!TinySet + ((scan^ = opnd^) or (scan^ = (opnd + 1)^) + or (scan^ = (opnd + 2)^)) do begin + inc (Result); + inc (scan); + end; + end; + ANYBUTTINYSET: begin + while (Result < TheMax) and //!!!TinySet + (scan^ <> opnd^) and (scan^ <> (opnd + 1)^) + and (scan^ <> (opnd + 2)^) do begin + inc (Result); + inc (scan); + end; + end; + {$IFDEF UseSetOfChar} //###0.929 + ANYOFFULLSET: begin + while (Result < TheMax) and + (scan^ in PSetOfREChar (opnd)^) do begin + inc (Result); + inc (scan); + end; + end; + {$ELSE} + ANYOF: + while (Result < TheMax) and + (StrScan (opnd, scan^) <> nil) do begin + inc (Result); + inc (scan); + end; + ANYBUT: + while (Result < TheMax) and + (StrScan (opnd, scan^) = nil) do begin + inc (Result); + inc (scan); + end; + ANYOFCI: + while (Result < TheMax) and (StrScanCI (opnd, scan^) <> nil) do begin + inc (Result); + inc (scan); + end; + ANYBUTCI: + while (Result < TheMax) and (StrScanCI (opnd, scan^) = nil) do begin + inc (Result); + inc (scan); + end; + {$ENDIF} + else begin // Oh dear. Called inappropriately. + Result := 0; // Best compromise. + Error (reeRegRepeatCalledInappropriately); + EXIT; + end; + end; { of case} + reginput := scan; + end; { of function TRegExpr.regrepeat +--------------------------------------------------------------} + +function TRegExpr.regnext (p : PRegExprChar) : PRegExprChar; +// dig the "next" pointer out of a node + var offset : TRENextOff; + begin + if p = @regdummy then begin + Result := nil; + EXIT; + end; + offset := PRENextOff (p + REOpSz)^; //###0.933 inlined NEXT + if offset = 0 + then Result := nil + else Result := p + offset; + end; { of function TRegExpr.regnext +--------------------------------------------------------------} + +function TRegExpr.MatchPrim (prog : PRegExprChar) : boolean; +// recursively matching routine +// Conceptually the strategy is simple: check to see whether the current +// node matches, call self recursively to see whether the rest matches, +// and then act accordingly. In practice we make some effort to avoid +// recursion, in particular by going through "ordinary" nodes (that don't +// need to know whether the rest of the match failed) by a loop instead of +// by recursion. + var + scan : PRegExprChar; // Current node. + next : PRegExprChar; // Next node. + len : integer; + opnd : PRegExprChar; + no : integer; + save : PRegExprChar; + nextch : REChar; + BracesMin, BracesMax : integer; // we use integer instead of TREBracesArg for better support */+ + {$IFDEF ComplexBraces} + SavedLoopStack : array [1 .. LoopStackMax] of integer; // :(( very bad for recursion + SavedLoopStackIdx : integer; //###0.925 + {$ENDIF} + begin + Result := false; + scan := prog; + + while scan <> nil do begin + len := PRENextOff (scan + 1)^; //###0.932 inlined regnext + if len = 0 + then next := nil + else next := scan + len; + + case scan^ of + NOTBOUND, //###0.943 //!!! think about UseSetOfChar !!! + BOUND: + if (scan^ = BOUND) + xor ( + ((reginput = fInputStart) or (Pos ((reginput - 1)^, fWordChars) <= 0)) + and (reginput^ <> #0) and (Pos (reginput^, fWordChars) > 0) + or + (reginput <> fInputStart) and (Pos ((reginput - 1)^, fWordChars) > 0) + and ((reginput^ = #0) or (Pos (reginput^, fWordChars) <= 0))) + then EXIT; + + BOL: if reginput <> fInputStart + then EXIT; + EOL: if reginput^ <> #0 + then EXIT; + BOLML: if reginput > fInputStart then begin + nextch := (reginput - 1)^; + if (nextch <> fLinePairedSeparatorTail) + or ((reginput - 1) <= fInputStart) + or ((reginput - 2)^ <> fLinePairedSeparatorHead) + then begin + if (nextch = fLinePairedSeparatorHead) + and (reginput^ = fLinePairedSeparatorTail) + then EXIT; // don't stop between paired separator + if + {$IFNDEF UniCode} + not (nextch in fLineSeparatorsSet) + {$ELSE} + (pos (nextch, fLineSeparators) <= 0) + {$ENDIF} + then EXIT; + end; + end; + EOLML: if reginput^ <> #0 then begin + nextch := reginput^; + if (nextch <> fLinePairedSeparatorHead) + or ((reginput + 1)^ <> fLinePairedSeparatorTail) + then begin + if (nextch = fLinePairedSeparatorTail) + and (reginput > fInputStart) + and ((reginput - 1)^ = fLinePairedSeparatorHead) + then EXIT; // don't stop between paired separator + if + {$IFNDEF UniCode} + not (nextch in fLineSeparatorsSet) + {$ELSE} + (pos (nextch, fLineSeparators) <= 0) + {$ENDIF} + then EXIT; + end; + end; + ANY: begin + if reginput^ = #0 + then EXIT; + inc (reginput); + end; + ANYML: begin //###0.941 + if (reginput^ = #0) + or ((reginput^ = fLinePairedSeparatorHead) + and ((reginput + 1)^ = fLinePairedSeparatorTail)) + or {$IFNDEF UniCode} (reginput^ in fLineSeparatorsSet) + {$ELSE} (pos (reginput^, fLineSeparators) > 0) {$ENDIF} + then EXIT; + inc (reginput); + end; + ANYDIGIT: begin + if (reginput^ = #0) or (reginput^ < '0') or (reginput^ > '9') + then EXIT; + inc (reginput); + end; + NOTDIGIT: begin + if (reginput^ = #0) or ((reginput^ >= '0') and (reginput^ <= '9')) + then EXIT; + inc (reginput); + end; + {$IFNDEF UseSetOfChar} //###0.929 + ANYLETTER: begin + if (reginput^ = #0) or (Pos (reginput^, fWordChars) <= 0) //###0.943 + then EXIT; + inc (reginput); + end; + NOTLETTER: begin + if (reginput^ = #0) or (Pos (reginput^, fWordChars) > 0) //###0.943 + then EXIT; + inc (reginput); + end; + ANYSPACE: begin + if (reginput^ = #0) or not (Pos (reginput^, fSpaceChars) > 0) //###0.943 + then EXIT; + inc (reginput); + end; + NOTSPACE: begin + if (reginput^ = #0) or (Pos (reginput^, fSpaceChars) > 0) //###0.943 + then EXIT; + inc (reginput); + end; + {$ENDIF} + EXACTLYCI: begin + opnd := scan + REOpSz + RENextOffSz; // OPERAND + // Inline the first character, for speed. + if (opnd^ <> reginput^) + and (InvertCase (opnd^) <> reginput^) + then EXIT; + len := strlen (opnd); + //###0.929 begin + no := len; + save := reginput; + while no > 1 do begin + inc (save); + inc (opnd); + if (opnd^ <> save^) + and (InvertCase (opnd^) <> save^) + then EXIT; + dec (no); + end; + //###0.929 end + inc (reginput, len); + end; + EXACTLY: begin + opnd := scan + REOpSz + RENextOffSz; // OPERAND + // Inline the first character, for speed. + if opnd^ <> reginput^ + then EXIT; + len := strlen (opnd); + //###0.929 begin + no := len; + save := reginput; + while no > 1 do begin + inc (save); + inc (opnd); + if opnd^ <> save^ + then EXIT; + dec (no); + end; + //###0.929 end + inc (reginput, len); + end; + BSUBEXP: begin //###0.936 + no := ord ((scan + REOpSz + RENextOffSz)^); + if startp [no] = nil + then EXIT; + if endp [no] = nil + then EXIT; + save := reginput; + opnd := startp [no]; + while opnd < endp [no] do begin + if (save >= fInputEnd) or (save^ <> opnd^) + then EXIT; + inc (save); + inc (opnd); + end; + reginput := save; + end; + BSUBEXPCI: begin //###0.936 + no := ord ((scan + REOpSz + RENextOffSz)^); + if startp [no] = nil + then EXIT; + if endp [no] = nil + then EXIT; + save := reginput; + opnd := startp [no]; + while opnd < endp [no] do begin + if (save >= fInputEnd) or + ((save^ <> opnd^) and (save^ <> InvertCase (opnd^))) + then EXIT; + inc (save); + inc (opnd); + end; + reginput := save; + end; + ANYOFTINYSET: begin + if (reginput^ = #0) or //!!!TinySet + ((reginput^ <> (scan + REOpSz + RENextOffSz)^) + and (reginput^ <> (scan + REOpSz + RENextOffSz + 1)^) + and (reginput^ <> (scan + REOpSz + RENextOffSz + 2)^)) + then EXIT; + inc (reginput); + end; + ANYBUTTINYSET: begin + if (reginput^ = #0) or //!!!TinySet + (reginput^ = (scan + REOpSz + RENextOffSz)^) + or (reginput^ = (scan + REOpSz + RENextOffSz + 1)^) + or (reginput^ = (scan + REOpSz + RENextOffSz + 2)^) + then EXIT; + inc (reginput); + end; + {$IFDEF UseSetOfChar} //###0.929 + ANYOFFULLSET: begin + if (reginput^ = #0) + or not (reginput^ in PSetOfREChar (scan + REOpSz + RENextOffSz)^) + then EXIT; + inc (reginput); + end; + {$ELSE} + ANYOF: begin + if (reginput^ = #0) or (StrScan (scan + REOpSz + RENextOffSz, reginput^) = nil) + then EXIT; + inc (reginput); + end; + ANYBUT: begin + if (reginput^ = #0) or (StrScan (scan + REOpSz + RENextOffSz, reginput^) <> nil) + then EXIT; + inc (reginput); + end; + ANYOFCI: begin + if (reginput^ = #0) or (StrScanCI (scan + REOpSz + RENextOffSz, reginput^) = nil) + then EXIT; + inc (reginput); + end; + ANYBUTCI: begin + if (reginput^ = #0) or (StrScanCI (scan + REOpSz + RENextOffSz, reginput^) <> nil) + then EXIT; + inc (reginput); + end; + {$ENDIF} + NOTHING: ; + COMMENT: ; + BACK: ; + Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1) : begin //###0.929 + no := ord (scan^) - ord (OPEN); +// save := reginput; + save := startp [no]; //###0.936 + startp [no] := reginput; //###0.936 + Result := MatchPrim (next); + if not Result //###0.936 + then startp [no] := save; +// if Result and (startp [no] = nil) +// then startp [no] := save; + // Don't set startp if some later invocation of the same + // parentheses already has. + EXIT; + end; + Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): begin //###0.929 + no := ord (scan^) - ord (CLOSE); +// save := reginput; + save := endp [no]; //###0.936 + endp [no] := reginput; //###0.936 + Result := MatchPrim (next); + if not Result //###0.936 + then endp [no] := save; +// if Result and (endp [no] = nil) +// then endp [no] := save; + // Don't set endp if some later invocation of the same + // parentheses already has. + EXIT; + end; + BRANCH: begin + if (next^ <> BRANCH) // No choice. + then next := scan + REOpSz + RENextOffSz // Avoid recursion + else begin + REPEAT + save := reginput; + Result := MatchPrim (scan + REOpSz + RENextOffSz); + if Result + then EXIT; + reginput := save; + scan := regnext (scan); + UNTIL (scan = nil) or (scan^ <> BRANCH); + EXIT; + end; + end; + {$IFDEF ComplexBraces} + LOOPENTRY: begin //###0.925 + no := LoopStackIdx; + inc (LoopStackIdx); + if LoopStackIdx > LoopStackMax then begin + Error (reeLoopStackExceeded); + EXIT; + end; + save := reginput; + LoopStack [LoopStackIdx] := 0; // init loop counter + Result := MatchPrim (next); // execute LOOP + LoopStackIdx := no; // cleanup + if Result + then EXIT; + reginput := save; + EXIT; + end; + LOOP, LOOPNG: begin //###0.940 + if LoopStackIdx <= 0 then begin + Error (reeLoopWithoutEntry); + EXIT; + end; + opnd := scan + PRENextOff (scan + REOpSz + RENextOffSz + 2 * REBracesArgSz)^; + BracesMin := PREBracesArg (scan + REOpSz + RENextOffSz)^; + BracesMax := PREBracesArg (scan + REOpSz + RENextOffSz + REBracesArgSz)^; + save := reginput; + if LoopStack [LoopStackIdx] >= BracesMin then begin // Min alredy matched - we can work + if scan^ = LOOP then begin + // greedy way - first try to max deep of greed ;) + if LoopStack [LoopStackIdx] < BracesMax then begin + inc (LoopStack [LoopStackIdx]); + no := LoopStackIdx; + Result := MatchPrim (opnd); + LoopStackIdx := no; + if Result + then EXIT; + reginput := save; + end; + dec (LoopStackIdx); // Fail. May be we are too greedy? ;) + Result := MatchPrim (next); + if not Result + then reginput := save; + EXIT; + end + else begin + // non-greedy - try just now + Result := MatchPrim (next); + if Result + then EXIT + else reginput := save; // failed - move next and try again + if LoopStack [LoopStackIdx] < BracesMax then begin + inc (LoopStack [LoopStackIdx]); + no := LoopStackIdx; + Result := MatchPrim (opnd); + LoopStackIdx := no; + if Result + then EXIT; + reginput := save; + end; + dec (LoopStackIdx); // Failed - back up + EXIT; + end + end + else begin // first match a min_cnt times + inc (LoopStack [LoopStackIdx]); + no := LoopStackIdx; + Result := MatchPrim (opnd); + LoopStackIdx := no; + if Result + then EXIT; + dec (LoopStack [LoopStackIdx]); + reginput := save; + EXIT; + end; + end; + {$ENDIF} + STAR, PLUS, BRACES, STARNG, PLUSNG, BRACESNG: begin + // Lookahead to avoid useless match attempts when we know + // what character comes next. + nextch := #0; + if next^ = EXACTLY + then nextch := (next + REOpSz + RENextOffSz)^; + BracesMax := MaxInt; // infinite loop for * and + //###0.92 + if (scan^ = STAR) or (scan^ = STARNG) + then BracesMin := 0 // STAR + else if (scan^ = PLUS) or (scan^ = PLUSNG) + then BracesMin := 1 // PLUS + else begin // BRACES + BracesMin := PREBracesArg (scan + REOpSz + RENextOffSz)^; + BracesMax := PREBracesArg (scan + REOpSz + RENextOffSz + REBracesArgSz)^; + end; + save := reginput; + opnd := scan + REOpSz + RENextOffSz; + if (scan^ = BRACES) or (scan^ = BRACESNG) + then inc (opnd, 2 * REBracesArgSz); + + if (scan^ = PLUSNG) or (scan^ = STARNG) or (scan^ = BRACESNG) then begin + // non-greedy mode + BracesMax := regrepeat (opnd, BracesMax); // don't repeat more than BracesMax + // Now we know real Max limit to move forward (for recursion 'back up') + // In some cases it can be faster to check only Min positions first, + // but after that we have to check every position separtely instead + // of fast scannig in loop. + no := BracesMin; + while no <= BracesMax do begin + reginput := save + no; + // If it could work, try it. + if (nextch = #0) or (reginput^ = nextch) then begin + {$IFDEF ComplexBraces} + System.Move (LoopStack, SavedLoopStack, SizeOf (LoopStack)); //###0.925 + SavedLoopStackIdx := LoopStackIdx; + {$ENDIF} + if MatchPrim (next) then begin + Result := true; + EXIT; + end; + {$IFDEF ComplexBraces} + System.Move (SavedLoopStack, LoopStack, SizeOf (LoopStack)); + LoopStackIdx := SavedLoopStackIdx; + {$ENDIF} + end; + inc (no); // Couldn't or didn't - move forward. + end; { of while} + EXIT; + end + else begin // greedy mode + no := regrepeat (opnd, BracesMax); // don't repeat more than max_cnt + while no >= BracesMin do begin + // If it could work, try it. + if (nextch = #0) or (reginput^ = nextch) then begin + {$IFDEF ComplexBraces} + System.Move (LoopStack, SavedLoopStack, SizeOf (LoopStack)); //###0.925 + SavedLoopStackIdx := LoopStackIdx; + {$ENDIF} + if MatchPrim (next) then begin + Result := true; + EXIT; + end; + {$IFDEF ComplexBraces} + System.Move (SavedLoopStack, LoopStack, SizeOf (LoopStack)); + LoopStackIdx := SavedLoopStackIdx; + {$ENDIF} + end; + dec (no); // Couldn't or didn't - back up. + reginput := save + no; + end; { of while} + EXIT; + end; + end; + EEND: begin + Result := true; // Success! + EXIT; + end; + else begin + Error (reeMatchPrimMemoryCorruption); + EXIT; + end; + end; { of case scan^} + scan := next; + end; { of while scan <> nil} + + // We get here only if there's trouble -- normally "case EEND" is the + // terminating point. + Error (reeMatchPrimCorruptedPointers); + end; { of function TRegExpr.MatchPrim +--------------------------------------------------------------} + +{$IFDEF UseFirstCharSet} //###0.929 +procedure TRegExpr.FillFirstCharSet (prog : PRegExprChar); + var + scan : PRegExprChar; // Current node. + next : PRegExprChar; // Next node. + opnd : PRegExprChar; + min_cnt : integer; + begin + scan := prog; + while scan <> nil do begin + next := regnext (scan); + case PREOp (scan)^ of + BSUBEXP, BSUBEXPCI: begin //###0.938 + FirstCharSet := [#0 .. #255]; // :((( we cannot + // optimize r.e. if it starts with back reference + EXIT; + end; + BOL, BOLML: ; // EXIT; //###0.937 + EOL, EOLML: begin //###0.948 was empty in 0.947, was EXIT in 0.937 + Include (FirstCharSet, #0); + if ModifierM + then begin + opnd := PRegExprChar (LineSeparators); + while opnd^ <> #0 do begin + Include (FirstCharSet, opnd^); + inc (opnd); + end; + end; + EXIT; + end; + BOUND, NOTBOUND: ; //###0.943 ?!! + ANY, ANYML: begin // we can better define ANYML !!! + FirstCharSet := [#0 .. #255]; //###0.930 + EXIT; + end; + ANYDIGIT: begin + FirstCharSet := FirstCharSet + ['0' .. '9']; + EXIT; + end; + NOTDIGIT: begin + FirstCharSet := FirstCharSet + ([#0 .. #255] - ['0' .. '9']); //###0.948 FirstCharSet was forgotten + EXIT; + end; + EXACTLYCI: begin + Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^); + Include (FirstCharSet, InvertCase ((scan + REOpSz + RENextOffSz)^)); + EXIT; + end; + EXACTLY: begin + Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^); + EXIT; + end; + ANYOFFULLSET: begin + FirstCharSet := FirstCharSet + PSetOfREChar (scan + REOpSz + RENextOffSz)^; + EXIT; + end; + ANYOFTINYSET: begin + //!!!TinySet + Include (FirstCharSet, (scan + REOpSz + RENextOffSz)^); + Include (FirstCharSet, (scan + REOpSz + RENextOffSz + 1)^); + Include (FirstCharSet, (scan + REOpSz + RENextOffSz + 2)^); + // ... // up to TinySetLen + EXIT; + end; + ANYBUTTINYSET: begin + //!!!TinySet + FirstCharSet := FirstCharSet + ([#0 .. #255] - [ //###0.948 FirstCharSet was forgotten + (scan + REOpSz + RENextOffSz)^, + (scan + REOpSz + RENextOffSz + 1)^, + (scan + REOpSz + RENextOffSz + 2)^]); + // ... // up to TinySetLen + EXIT; + end; + NOTHING: ; + COMMENT: ; + BACK: ; + Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1) : begin //###0.929 + FillFirstCharSet (next); + EXIT; + end; + Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): begin //###0.929 + FillFirstCharSet (next); + EXIT; + end; + BRANCH: begin + if (PREOp (next)^ <> BRANCH) // No choice. + then next := scan + REOpSz + RENextOffSz // Avoid recursion. + else begin + REPEAT + FillFirstCharSet (scan + REOpSz + RENextOffSz); + scan := regnext (scan); + UNTIL (scan = nil) or (PREOp (scan)^ <> BRANCH); + EXIT; + end; + end; + {$IFDEF ComplexBraces} + LOOPENTRY: begin //###0.925 +// LoopStack [LoopStackIdx] := 0; //###0.940 line removed + FillFirstCharSet (next); // execute LOOP + EXIT; + end; + LOOP, LOOPNG: begin //###0.940 + opnd := scan + PRENextOff (scan + REOpSz + RENextOffSz + REBracesArgSz * 2)^; + min_cnt := PREBracesArg (scan + REOpSz + RENextOffSz)^; + FillFirstCharSet (opnd); + if min_cnt = 0 + then FillFirstCharSet (next); + EXIT; + end; + {$ENDIF} + STAR, STARNG: //###0.940 + FillFirstCharSet (scan + REOpSz + RENextOffSz); + PLUS, PLUSNG: begin //###0.940 + FillFirstCharSet (scan + REOpSz + RENextOffSz); + EXIT; + end; + BRACES, BRACESNG: begin //###0.940 + opnd := scan + REOpSz + RENextOffSz + REBracesArgSz * 2; + min_cnt := PREBracesArg (scan + REOpSz + RENextOffSz)^; // BRACES + FillFirstCharSet (opnd); + if min_cnt > 0 + then EXIT; + end; + EEND: begin + FirstCharSet := [#0 .. #255]; //###0.948 + EXIT; + end; + else begin + Error (reeMatchPrimMemoryCorruption); + EXIT; + end; + end; { of case scan^} + scan := next; + end; { of while scan <> nil} + end; { of procedure FillFirstCharSet +--------------------------------------------------------------} +{$ENDIF} + +function TRegExpr.Exec (const AInputString : RegExprString) : boolean; + begin + InputString := AInputString; + Result := ExecPrim (1); + end; { of function TRegExpr.Exec +--------------------------------------------------------------} + +{$IFDEF OverMeth} +{$IFNDEF FPC} +function TRegExpr.Exec : boolean; + begin + Result := ExecPrim (1); + end; { of function TRegExpr.Exec +--------------------------------------------------------------} +{$ENDIF} +function TRegExpr.Exec (AOffset: integer) : boolean; + begin + Result := ExecPrim (AOffset); + end; { of function TRegExpr.Exec +--------------------------------------------------------------} +{$ENDIF} + +function TRegExpr.ExecPos (AOffset: integer {$IFDEF DefParam}= 1{$ENDIF}) : boolean; + begin + Result := ExecPrim (AOffset); + end; { of function TRegExpr.ExecPos +--------------------------------------------------------------} + +function TRegExpr.ExecPrim (AOffset: integer) : boolean; + procedure ClearMatchs; + // Clears matchs array + var i : integer; + begin + for i := 0 to NSUBEXP - 1 do begin + startp [i] := nil; + endp [i] := nil; + end; + end; { of procedure ClearMatchs; +..............................................................} + function RegMatch (str : PRegExprChar) : boolean; + // try match at specific point + begin + //###0.949 removed clearing of start\endp + reginput := str; + Result := MatchPrim (programm + REOpSz); + if Result then begin + startp [0] := str; + endp [0] := reginput; + end; + end; { of function RegMatch +..............................................................} + var + s : PRegExprChar; + StartPtr: PRegExprChar; + InputLen : integer; + begin + Result := false; // Be paranoid... + + ClearMatchs; //###0.949 + // ensure that Match cleared either if optimization tricks or some error + // will lead to leaving ExecPrim without actual search. That is + // importent for ExecNext logic and so on. + + if not IsProgrammOk //###0.929 + then EXIT; + + // Check InputString presence + if not Assigned (fInputString) then begin + Error (reeNoInpitStringSpecified); + EXIT; + end; + + InputLen := length (fInputString); + + //Check that the start position is not negative + if AOffset < 1 then begin + Error (reeOffsetMustBeGreaterThen0); + EXIT; + end; + // Check that the start position is not longer than the line + // If so then exit with nothing found + if AOffset > (InputLen + 1) // for matching empty string after last char. + then EXIT; + + StartPtr := fInputString + AOffset - 1; + + // If there is a "must appear" string, look for it. + if regmust <> nil then begin + s := StartPtr; + REPEAT + s := StrScan (s, regmust [0]); + if s <> nil then begin + if StrLComp (s, regmust, regmlen) = 0 + then BREAK; // Found it. + inc (s); + end; + UNTIL s = nil; + if s = nil // Not present. + then EXIT; + end; + + // Mark beginning of line for ^ . + fInputStart := fInputString; + + // Pointer to end of input stream - for + // pascal-style string processing (may include #0) + fInputEnd := fInputString + InputLen; + + {$IFDEF ComplexBraces} + // no loops started + LoopStackIdx := 0; //###0.925 + {$ENDIF} + + // Simplest case: anchored match need be tried only once. + if reganch <> #0 then begin + Result := RegMatch (StartPtr); + EXIT; + end; + + // Messy cases: unanchored match. + s := StartPtr; + if regstart <> #0 then // We know what char it must start with. + REPEAT + s := StrScan (s, regstart); + if s <> nil then begin + Result := RegMatch (s); + if Result + then EXIT + else ClearMatchs; //###0.949 + inc (s); + end; + UNTIL s = nil + else begin // We don't - general case. + repeat //###0.948 + {$IFDEF UseFirstCharSet} + if s^ in FirstCharSet + then Result := RegMatch (s); + {$ELSE} + Result := RegMatch (s); + {$ENDIF} + if Result or (s^ = #0) // Exit on a match or after testing the end-of-string. + then EXIT + else ClearMatchs; //###0.949 + inc (s); + until false; +(* optimized and fixed by Martin Fuller - empty strings + were not allowed to pass thru in UseFirstCharSet mode + {$IFDEF UseFirstCharSet} //###0.929 + while s^ <> #0 do begin + if s^ in FirstCharSet + then Result := RegMatch (s); + if Result + then EXIT; + inc (s); + end; + {$ELSE} + REPEAT + Result := RegMatch (s); + if Result + then EXIT; + inc (s); + UNTIL s^ = #0; + {$ENDIF} +*) + end; + // Failure + end; { of function TRegExpr.ExecPrim +--------------------------------------------------------------} + +function TRegExpr.ExecNext : boolean; + var offset : integer; + begin + Result := false; + if not Assigned (startp[0]) or not Assigned (endp[0]) then begin + Error (reeExecNextWithoutExec); + EXIT; + end; +// Offset := MatchPos [0] + MatchLen [0]; +// if MatchLen [0] = 0 + Offset := endp [0] - fInputString + 1; //###0.929 + if endp [0] = startp [0] //###0.929 + then inc (Offset); // prevent infinite looping if empty string match r.e. + Result := ExecPrim (Offset); + end; { of function TRegExpr.ExecNext +--------------------------------------------------------------} + +function TRegExpr.GetInputString : RegExprString; + begin + if not Assigned (fInputString) then begin + Error (reeGetInputStringWithoutInputString); + EXIT; + end; + Result := fInputString; + end; { of function TRegExpr.GetInputString +--------------------------------------------------------------} + +procedure TRegExpr.SetInputString (const AInputString : RegExprString); + var + Len : integer; + i : integer; + begin + // clear Match* - before next Exec* call it's undefined + for i := 0 to NSUBEXP - 1 do begin + startp [i] := nil; + endp [i] := nil; + end; + + // need reallocation of input string buffer ? + Len := length (AInputString); + if Assigned (fInputString) and (Length (fInputString) <> Len) then begin + FreeMem (fInputString); + fInputString := nil; + end; + // buffer [re]allocation + if not Assigned (fInputString) + then GetMem (fInputString, (Len + 1) * SizeOf (REChar)); + + // copy input string into buffer + {$IFDEF UniCode} + StrPCopy (fInputString, Copy (AInputString, 1, Len)); //###0.927 + {$ELSE} + StrLCopy (fInputString, PRegExprChar (AInputString), Len); + {$ENDIF} + + { + fInputString : string; + fInputStart, fInputEnd : PRegExprChar; + + SetInputString: + fInputString := AInputString; + UniqueString (fInputString); + fInputStart := PChar (fInputString); + Len := length (fInputString); + fInputEnd := PRegExprChar (integer (fInputStart) + Len); ?? + !! startp/endp âñå ðàâíî áóäåò îïàñíî èñïîëüçîâàòü ? + } + end; { of procedure TRegExpr.SetInputString +--------------------------------------------------------------} + +procedure TRegExpr.SetLineSeparators (const AStr : RegExprString); + begin + if AStr <> fLineSeparators then begin + fLineSeparators := AStr; + InvalidateProgramm; + end; + end; { of procedure TRegExpr.SetLineSeparators +--------------------------------------------------------------} + +procedure TRegExpr.SetLinePairedSeparator (const AStr : RegExprString); + begin + if length (AStr) = 2 then begin + if AStr [1] = AStr [2] then begin + // it's impossible for our 'one-point' checking to support + // two chars separator for identical chars + Error (reeBadLinePairedSeparator); + EXIT; + end; + if not fLinePairedSeparatorAssigned + or (AStr [1] <> fLinePairedSeparatorHead) + or (AStr [2] <> fLinePairedSeparatorTail) then begin + fLinePairedSeparatorAssigned := true; + fLinePairedSeparatorHead := AStr [1]; + fLinePairedSeparatorTail := AStr [2]; + InvalidateProgramm; + end; + end + else if length (AStr) = 0 then begin + if fLinePairedSeparatorAssigned then begin + fLinePairedSeparatorAssigned := false; + InvalidateProgramm; + end; + end + else Error (reeBadLinePairedSeparator); + end; { of procedure TRegExpr.SetLinePairedSeparator +--------------------------------------------------------------} + +function TRegExpr.GetLinePairedSeparator : RegExprString; + begin + if fLinePairedSeparatorAssigned then begin + {$IFDEF UniCode} + // Here is some UniCode 'magic' + // If You do know better decision to concatenate + // two WideChars, please, let me know! + Result := fLinePairedSeparatorHead; //###0.947 + Result := Result + fLinePairedSeparatorTail; + {$ELSE} + Result := fLinePairedSeparatorHead + fLinePairedSeparatorTail; + {$ENDIF} + end + else Result := ''; + end; { of function TRegExpr.GetLinePairedSeparator +--------------------------------------------------------------} + +function TRegExpr.Substitute (const ATemplate : RegExprString) : RegExprString; +// perform substitutions after a regexp match +// completely rewritten in 0.929 + var + TemplateLen : integer; + TemplateBeg, TemplateEnd : PRegExprChar; + p, p0, ResultPtr : PRegExprChar; + ResultLen : integer; + n : integer; + Ch : REChar; + function ParseVarName (var APtr : PRegExprChar) : integer; + // extract name of variable (digits, may be enclosed with + // curly braces) from APtr^, uses TemplateEnd !!! + const + Digits = ['0' .. '9']; + var + p : PRegExprChar; + Delimited : boolean; + begin + Result := 0; + p := APtr; + Delimited := (p < TemplateEnd) and (p^ = '{'); + if Delimited + then inc (p); // skip left curly brace + if (p < TemplateEnd) and (p^ = '&') + then inc (p) // this is '$&' or '${&}' + else + while (p < TemplateEnd) and + {$IFDEF UniCode} //###0.935 + (ord (p^) < 256) and (char (p^) in Digits) + {$ELSE} + (p^ in Digits) + {$ENDIF} + do begin + Result := Result * 10 + (ord (p^) - ord ('0')); //###0.939 + inc (p); + end; + if Delimited then + if (p < TemplateEnd) and (p^ = '}') + then inc (p) // skip right curly brace + else p := APtr; // isn't properly terminated + if p = APtr + then Result := -1; // no valid digits found or no right curly brace + APtr := p; + end; + begin + // Check programm and input string + if not IsProgrammOk + then EXIT; + if not Assigned (fInputString) then begin + Error (reeNoInpitStringSpecified); + EXIT; + end; + // Prepare for working + TemplateLen := length (ATemplate); + if TemplateLen = 0 then begin // prevent nil pointers + Result := ''; + EXIT; + end; + TemplateBeg := pointer (ATemplate); + TemplateEnd := TemplateBeg + TemplateLen; + // Count result length for speed optimization. + ResultLen := 0; + p := TemplateBeg; + while p < TemplateEnd do begin + Ch := p^; + inc (p); + if Ch = '$' + then n := ParseVarName (p) + else n := -1; + if n >= 0 then begin + if (n < NSUBEXP) and Assigned (startp [n]) and Assigned (endp [n]) + then inc (ResultLen, endp [n] - startp [n]); + end + else begin + if (Ch = EscChar) and (p < TemplateEnd) + then inc (p); // quoted or special char followed + inc (ResultLen); + end; + end; + // Get memory. We do it once and it significant speed up work ! + if ResultLen = 0 then begin + Result := ''; + EXIT; + end; + SetString (Result, nil, ResultLen); + // Fill Result + ResultPtr := pointer (Result); + p := TemplateBeg; + while p < TemplateEnd do begin + Ch := p^; + inc (p); + if Ch = '$' + then n := ParseVarName (p) + else n := -1; + if n >= 0 then begin + p0 := startp [n]; + if (n < NSUBEXP) and Assigned (p0) and Assigned (endp [n]) then + while p0 < endp [n] do begin + ResultPtr^ := p0^; + inc (ResultPtr); + inc (p0); + end; + end + else begin + if (Ch = EscChar) and (p < TemplateEnd) then begin // quoted or special char followed + Ch := p^; + inc (p); + end; + ResultPtr^ := Ch; + inc (ResultPtr); + end; + end; + end; { of function TRegExpr.Substitute +--------------------------------------------------------------} + +procedure TRegExpr.Split (AInputStr : RegExprString; APieces : TStrings); + var PrevPos : integer; + begin + PrevPos := 1; + if Exec (AInputStr) then + REPEAT + APieces.Add (System.Copy (AInputStr, PrevPos, MatchPos [0] - PrevPos)); + PrevPos := MatchPos [0] + MatchLen [0]; + UNTIL not ExecNext; + APieces.Add (System.Copy (AInputStr, PrevPos, MaxInt)); // Tail + end; { of procedure TRegExpr.Split +--------------------------------------------------------------} + +function TRegExpr.Replace (AInputStr : RegExprString; const AReplaceStr : RegExprString; + AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString; + var + PrevPos : integer; + begin + Result := ''; + PrevPos := 1; + if Exec (AInputStr) then + REPEAT + Result := Result + System.Copy (AInputStr, PrevPos, + MatchPos [0] - PrevPos); + if AUseSubstitution //###0.946 + then Result := Result + Substitute (AReplaceStr) + else Result := Result + AReplaceStr; + PrevPos := MatchPos [0] + MatchLen [0]; + UNTIL not ExecNext; + Result := Result + System.Copy (AInputStr, PrevPos, MaxInt); // Tail + end; { of function TRegExpr.Replace +--------------------------------------------------------------} + +function TRegExpr.ReplaceEx (AInputStr : RegExprString; + AReplaceFunc : TRegExprReplaceFunction) + : RegExprString; + var + PrevPos : integer; + begin + Result := ''; + PrevPos := 1; + if Exec (AInputStr) then + REPEAT + Result := Result + System.Copy (AInputStr, PrevPos, + MatchPos [0] - PrevPos) + + AReplaceFunc (Self); + PrevPos := MatchPos [0] + MatchLen [0]; + UNTIL not ExecNext; + Result := Result + System.Copy (AInputStr, PrevPos, MaxInt); // Tail + end; { of function TRegExpr.ReplaceEx +--------------------------------------------------------------} + + +{$IFDEF OverMeth} +function TRegExpr.Replace (AInputStr : RegExprString; + AReplaceFunc : TRegExprReplaceFunction) + : RegExprString; + begin + ReplaceEx (AInputStr, AReplaceFunc); + end; { of function TRegExpr.Replace +--------------------------------------------------------------} +{$ENDIF} + +{=============================================================} +{====================== Debug section ========================} +{=============================================================} + +{$IFDEF RegExpPCodeDump} +function TRegExpr.DumpOp (op : TREOp) : RegExprString; +// printable representation of opcode + begin + case op of + BOL: Result := 'BOL'; + EOL: Result := 'EOL'; + BOLML: Result := 'BOLML'; + EOLML: Result := 'EOLML'; + BOUND: Result := 'BOUND'; //###0.943 + NOTBOUND: Result := 'NOTBOUND'; //###0.943 + ANY: Result := 'ANY'; + ANYML: Result := 'ANYML'; //###0.941 + ANYLETTER: Result := 'ANYLETTER'; + NOTLETTER: Result := 'NOTLETTER'; + ANYDIGIT: Result := 'ANYDIGIT'; + NOTDIGIT: Result := 'NOTDIGIT'; + ANYSPACE: Result := 'ANYSPACE'; + NOTSPACE: Result := 'NOTSPACE'; + ANYOF: Result := 'ANYOF'; + ANYBUT: Result := 'ANYBUT'; + ANYOFCI: Result := 'ANYOF/CI'; + ANYBUTCI: Result := 'ANYBUT/CI'; + BRANCH: Result := 'BRANCH'; + EXACTLY: Result := 'EXACTLY'; + EXACTLYCI: Result := 'EXACTLY/CI'; + NOTHING: Result := 'NOTHING'; + COMMENT: Result := 'COMMENT'; + BACK: Result := 'BACK'; + EEND: Result := 'END'; + BSUBEXP: Result := 'BSUBEXP'; + BSUBEXPCI: Result := 'BSUBEXP/CI'; + Succ (OPEN) .. TREOp (Ord (OPEN) + NSUBEXP - 1): //###0.929 + Result := Format ('OPEN[%d]', [ord (op) - ord (OPEN)]); + Succ (CLOSE) .. TREOp (Ord (CLOSE) + NSUBEXP - 1): //###0.929 + Result := Format ('CLOSE[%d]', [ord (op) - ord (CLOSE)]); + STAR: Result := 'STAR'; + PLUS: Result := 'PLUS'; + BRACES: Result := 'BRACES'; + {$IFDEF ComplexBraces} + LOOPENTRY: Result := 'LOOPENTRY'; //###0.925 + LOOP: Result := 'LOOP'; //###0.925 + LOOPNG: Result := 'LOOPNG'; //###0.940 + {$ENDIF} + ANYOFTINYSET: Result:= 'ANYOFTINYSET'; + ANYBUTTINYSET:Result:= 'ANYBUTTINYSET'; + {$IFDEF UseSetOfChar} //###0.929 + ANYOFFULLSET: Result:= 'ANYOFFULLSET'; + {$ENDIF} + STARNG: Result := 'STARNG'; //###0.940 + PLUSNG: Result := 'PLUSNG'; //###0.940 + BRACESNG: Result := 'BRACESNG'; //###0.940 + else Error (reeDumpCorruptedOpcode); + end; {of case op} + Result := ':' + Result; + end; { of function TRegExpr.DumpOp +--------------------------------------------------------------} + +function TRegExpr.Dump : RegExprString; +// dump a regexp in vaguely comprehensible form + var + s : PRegExprChar; + op : TREOp; // Arbitrary non-END op. + next : PRegExprChar; + i : integer; + Diff : integer; +{$IFDEF UseSetOfChar} //###0.929 + Ch : REChar; +{$ENDIF} + begin + if not IsProgrammOk //###0.929 + then EXIT; + + op := EXACTLY; + Result := ''; + s := programm + REOpSz; + while op <> EEND do begin // While that wasn't END last time... + op := s^; + Result := Result + Format ('%2d%s', [s - programm, DumpOp (s^)]); // Where, what. + next := regnext (s); + if next = nil // Next ptr. + then Result := Result + ' (0)' + else begin + if next > s //###0.948 PWideChar subtraction workaround (see comments in Tail method for details) + then Diff := next - s + else Diff := - (s - next); + Result := Result + Format (' (%d) ', [(s - programm) + Diff]); + end; + inc (s, REOpSz + RENextOffSz); + if (op = ANYOF) or (op = ANYOFCI) or (op = ANYBUT) or (op = ANYBUTCI) + or (op = EXACTLY) or (op = EXACTLYCI) then begin + // Literal string, where present. + while s^ <> #0 do begin + Result := Result + s^; + inc (s); + end; + inc (s); + end; + if (op = ANYOFTINYSET) or (op = ANYBUTTINYSET) then begin + for i := 1 to TinySetLen do begin + Result := Result + s^; + inc (s); + end; + end; + if (op = BSUBEXP) or (op = BSUBEXPCI) then begin + Result := Result + ' \' + IntToStr (Ord (s^)); + inc (s); + end; + {$IFDEF UseSetOfChar} //###0.929 + if op = ANYOFFULLSET then begin + for Ch := #0 to #255 do + if Ch in PSetOfREChar (s)^ then + if Ch < ' ' + then Result := Result + '#' + IntToStr (Ord (Ch)) //###0.936 + else Result := Result + Ch; + inc (s, SizeOf (TSetOfREChar)); + end; + {$ENDIF} + if (op = BRACES) or (op = BRACESNG) then begin //###0.941 + // show min/max argument of BRACES operator + Result := Result + Format ('{%d,%d}', [PREBracesArg (s)^, PREBracesArg (s + REBracesArgSz)^]); + inc (s, REBracesArgSz * 2); + end; + {$IFDEF ComplexBraces} + if (op = LOOP) or (op = LOOPNG) then begin //###0.940 + Result := Result + Format (' -> (%d) {%d,%d}', [ + (s - programm - (REOpSz + RENextOffSz)) + PRENextOff (s + 2 * REBracesArgSz)^, + PREBracesArg (s)^, PREBracesArg (s + REBracesArgSz)^]); + inc (s, 2 * REBracesArgSz + RENextOffSz); + end; + {$ENDIF} + Result := Result + #$d#$a; + end; { of while} + + // Header fields of interest. + + if regstart <> #0 + then Result := Result + 'start ' + regstart; + if reganch <> #0 + then Result := Result + 'anchored '; + if regmust <> nil + then Result := Result + 'must have ' + regmust; + {$IFDEF UseFirstCharSet} //###0.929 + Result := Result + #$d#$a'FirstCharSet:'; + for Ch := #0 to #255 do + if Ch in FirstCharSet + then begin + if Ch < ' ' + then Result := Result + '#' + IntToStr(Ord(Ch)) //###0.948 + else Result := Result + Ch; + end; + {$ENDIF} + Result := Result + #$d#$a; + end; { of function TRegExpr.Dump +--------------------------------------------------------------} +{$ENDIF} + +{$IFDEF reRealExceptionAddr} +{$OPTIMIZATION ON} +// ReturnAddr works correctly only if compiler optimization is ON +// I placed this method at very end of unit because there are no +// way to restore compiler optimization flag ... +{$ENDIF} +procedure TRegExpr.Error (AErrorID : integer); +{$IFDEF reRealExceptionAddr} + function ReturnAddr : pointer; //###0.938 + asm + mov eax,[ebp+4] + end; +{$ENDIF} + var + e : ERegExpr; + begin + fLastError := AErrorID; // dummy stub - useless because will raise exception + if AErrorID < 1000 // compilation error ? + then e := ERegExpr.Create (ErrorMsg (AErrorID) // yes - show error pos + + ' (pos ' + IntToStr (CompilerErrorPos) + ')') + else e := ERegExpr.Create (ErrorMsg (AErrorID)); + e.ErrorCode := AErrorID; + e.CompilerErrorPos := CompilerErrorPos; + raise e + {$IFDEF reRealExceptionAddr} + At ReturnAddr; //###0.938 + {$ENDIF} + end; { of procedure TRegExpr.Error +--------------------------------------------------------------} + +(* + PCode persistence: + FirstCharSet + programm, regsize + regstart // -> programm + reganch // -> programm + regmust, regmlen // -> programm + fExprIsCompiled +*) + +// be carefull - placed here code will be always compiled with +// compiler optimization flag + +{$IFDEF FPC} +initialization + RegExprInvertCaseFunction := TRegExpr.InvertCaseFunction; + +{$ENDIF} +end. + diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm index fe5a834e..1ab018ae 100644 --- a/Source/Servidor/uDataModuleServer.dfm +++ b/Source/Servidor/uDataModuleServer.dfm @@ -36,21 +36,33 @@ object dmServer: TdmServer object ConnectionManager: TDAConnectionManager Connections = < item - Name = 'MySQL' + Name = 'IBX_FIB' ConnectionString = - 'ADO?AuxDriver=MSDASQL.1;Server=OSCommerce Desarrollo;UserID=root' + - ';Password=;' + 'FIB?Server=localhost;Database=C:\Codigo Tecsitel\Database\FACTUG' + + 'ES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO885' + + '9_1;' + ConnectionType = 'Interbase' + end + item + Name = 'IBX_IBO' + ConnectionString = + 'IBO?Server=localhost;Database=C:\Codigo Tecsitel\Database\FACTUG' + + 'ES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO885' + + '9_1' + ConnectionType = 'Interbase' end item Name = 'IBX' ConnectionString = - 'IBX?Server=localhost;Database=C:\Codigo (Tecsitel)\Database\FACT' + - 'UGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO8' + - '859_1;' + 'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Database\FACTUG' + + 'ES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO885' + + '9_1;' + ConnectionType = 'Interbase' Default = True end> DriverManager = DriverManager PoolingEnabled = True + PoolTransactionBehaviour = ptRollback Left = 40 Top = 80 end diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas index e50a1682..4cf409b8 100644 --- a/Source/Servidor/uDataModuleServer.pas +++ b/Source/Servidor/uDataModuleServer.pas @@ -147,7 +147,7 @@ end; function TdmServer.DarNuevaConexion: IDAConnection; begin with ConnectionManager do - Result := NewConnection(GetDefaultConnectionName, True); + Result := NewConnection(GetDefaultConnectionName, False); end; procedure TdmServer.IniciarLog; @@ -175,6 +175,12 @@ begin + ';UserID=' + FDBUser + ';Password=' + Decrypt(FDBPass) + ';Dialect=3;Charset=ISO8859_1;'; + +{ Result := 'FIB?Server=' + FDBServer + '/' + FDBPort + + ';Database=' + FDBPath + + ';UserID=' + FDBUser + + ';Password=' + Decrypt(FDBPass) + + ';Dialect=3;Charset=ISO8859_1;';} end; procedure TdmServer.LeerConfiguracion; @@ -266,9 +272,6 @@ begin ConnectionName := ConnectionManager.GetDefaultConnectionName; ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString; - with ConnectionManager.Connections.ConnectionByName('MySQL') do - ConnectionString := 'ADO?AuxDriver=MSDASQL.1;Server=' + FOSCServer + ';'; - ShowBalloonHint('Conectado a ' + ConnectionName, biInfo); CoInitialize(nil); diff --git a/Source/Servidor/uServerMainForm.pas b/Source/Servidor/uServerMainForm.pas index eb28cdd6..40523be4 100644 --- a/Source/Servidor/uServerMainForm.pas +++ b/Source/Servidor/uServerMainForm.pas @@ -6,8 +6,8 @@ uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, frxClass, frxPreview, - JvComponent, JvTrayIcon, ActnList, Menus, XPMan, JvExControls, - JvGradient, JvGIF, ExtCtrls, JvComponentBase, JvAppInst; + JvAppInst, JvComponentBase, JvTrayIcon, XPMan, ActnList, Menus, JvGIF, + ExtCtrls, JvExControls, JvGradient; type TfServerForm = class(TForm) diff --git a/Tools/fbclient.dll b/Tools/fbclient.dll new file mode 100644 index 00000000..97e68806 Binary files /dev/null and b/Tools/fbclient.dll differ diff --git a/Tools/isql.exe b/Tools/isql.exe new file mode 100644 index 00000000..a9946c0d Binary files /dev/null and b/Tools/isql.exe differ