1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
{*******************************************************}
{ }
{ Add FastReport Numeric Lbrary }
{ }
{ Copyright (c) 2001 by Stalker SoftWare }
{ }
{*******************************************************}
unit frFuncNum;
interface
{$A+,B-,E-,R-}
{.$I FR.inc}
uses
SysUtils;
// StLib
function frIsRangeNum( nBeg, nEnd, nValue: Extended ) :Boolean;
function frValidInt(cInt :String) :Boolean;
function frValidFloat(cFlt :String) :Boolean;
function frStrToFloatDef(cFlt:String; nFltDef :Extended) :Extended;
implementation
{----------------------------------------------------------------}
{ Return True if specified number found in range }
{ nBeg - Begin range }
{ nEnd - End range }
{ nValue - Checked number }
{----------------------------------------------------------------}
function frIsRangeNum( nBeg, nEnd, nValue: Extended ) :Boolean;
begin
if (nValue >= nBeg) and (nValue <= nEnd) then
Result := True
else
Result := False
end; { IsRangeNum }
{--------------------------------------------------------------------}
{ Return True, if cInt really integer }
{--------------------------------------------------------------------}
function frValidInt(cInt :String) :Boolean;
begin
Result := True;
try
StrToInt(cInt);
except
Result := False;
end; { try }
end; { ValidInt }
{--------------------------------------------------------------------}
{ Return True, if cFlt really float }
{--------------------------------------------------------------------}
function frValidFloat(cFlt :String) :Boolean;
begin
Result := True;
try
StrToFloat(cFlt);
except
Result := False;
end; { try }
end; { frValidFloat }
{--------------------------------------------------------------------}
{ Convert string into Float. }
{--------------------------------------------------------------------}
function frStrToFloatDef(cFlt:String; nFltDef :Extended) :Extended;
begin
try
Result := StrToFloat(cFlt);
except
Result := nFltDef;
end; { try }
end; { frStrToFloatDef }
end.
|
