RxFPC:new function - rxIsValueInteger

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6761 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/docs/rxapputils.xml

@@ -12,6 +12,11 @@
       </element><element name="WarningBox.S"><short>Текст предупрежедения</short>
       </element><element name="ErrorBox.S"><short>Текст сообщения об ошибке</short>
       </element>
+    <element name="rxValueInteger"><short>Check value is integer</short>
+      </element><element name="RxGetKeyboardLayoutName"><short>function return current keyboard layout name</short>
+      </element><element name="InitRxLogs"><short>init handlers for rx loging functions</short>
+      </element><element name="RxDefaultLogFileName"><short>return default logfile name</short>
+      </element>
     </module>
   </package>
 </fpdoc-descriptions>

components/rx/trunk/rxcontrols/rxapputils.pas

@@ -100,6 +100,7 @@ procedure InitRxLogs;
 function RxGetKeyboardLayoutName:string;
 
 function RxMessageBeep(AStyle:TRxMsgBeepStyle):boolean;
+function rxIsValueInteger(AValue:string):boolean;
 
 implementation
 uses
@@ -318,6 +319,15 @@ begin
   {$ENDIF}
 end;
 
+function rxIsValueInteger(AValue: string): boolean;
+var
+  V:Int64;
+  C:integer;
+begin
+  Val(AValue, V, C);
+  Result:=C = 0;
+end;
+
 
 function GetDefaultSection(Component: TComponent): string;
 var