From 1f072086f1e3a683f6649994e27c3a2daa1aee06 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 18 Dec 2018 08:51:04 +0000
Subject: [PATCH] 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       |  5 +++++
 components/rx/trunk/rxcontrols/rxapputils.pas | 10 ++++++++++
 2 files changed, 15 insertions(+)

diff --git a/components/rx/trunk/docs/rxapputils.xml b/components/rx/trunk/docs/rxapputils.xml
index dfe3b7259..164fbe8fa 100644
--- a/components/rx/trunk/docs/rxapputils.xml
+++ b/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>
diff --git a/components/rx/trunk/rxcontrols/rxapputils.pas b/components/rx/trunk/rxcontrols/rxapputils.pas
index 9aba89578..060843968 100644
--- a/components/rx/trunk/rxcontrols/rxapputils.pas
+++ b/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