pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:new function - rxIsValueInteger

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6761 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-12-18 08:51:04 +00:00
parent 02281cd15f
commit 1f072086f1
2 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/trunk/rxcontrols/rxapputils.pas
View File

@ -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