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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
{ JSON data viewer : collect data for new integer
Copyright (C) 2010 Michael Van Canneyt michael@freepascal.org
This source is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2 of the License, or (at your option)
any later version.
This code is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
details.
A copy of the GNU General Public License is available on the World Wide Web
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
to the Free Software Foundation, Inc., 51 Franklin Street - Fifth Floor,
Boston, MA 02110-1335, USA.
}
unit frmnewinteger;
{$mode objfpc}
interface
uses
SysUtils, Forms, Controls, Dialogs, ButtonPanel, StdCtrls, ExtCtrls, fpjson;
type
{ TNewNumberForm }
TNewNumberForm = class(TForm)
BPNewNumber: TButtonPanel;
EName: TEdit;
EValue: TEdit;
Label1: TLabel;
Label2: TLabel;
RGType: TRadioGroup;
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
private
function GetAllowName: Boolean;
function GetAsFloat: Double;
function GetAsInt64: Integer;
function GetAsInteger: Integer;
function GetMemberName: String;
function GetNumberType: TJSONNumberType;
procedure SetAllowName(const AValue: Boolean);
procedure SetMemberName(const AValue: String);
procedure SetNumberType(const AValue: TJSONNumberType);
public
Property AllowName: Boolean Read GetAllowName Write SetAllowName;
Property MemberName : String Read GetMemberName Write SetMemberName;
Property NumberType : TJSONNumberType Read GetNumberType Write SetNumberType;
Property AsInteger : Integer Read GetAsInteger;
Property AsInt64 : Integer Read GetAsInt64;
Property AsFLoat : Double Read GetAsFloat;
end;
var
NewNumberForm: TNewNumberForm;
implementation
{$R *.lfm}
{ TNewNumberForm }
procedure TNewNumberForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
CanClose:=(ModalResult<>mrOK);
If not CanClose then
try
Case NumberType of
ntFloat : GetAsFloat;
ntInteger : GetAsInteger;
ntInt64 : GetAsInt64;
end;
CanClose:=(Not AllowName) or (EName.Text<>'');
except
on E : Exception do
ShowMessage(E.Message)
end;
end;
function TNewNumberForm.GetAllowName: Boolean;
begin
Result:=EName.Enabled;
end;
function TNewNumberForm.GetAsFloat: Double;
begin
Result:=StrToFloat(EValue.Text);
end;
function TNewNumberForm.GetAsInt64: Integer;
begin
Result:=StrToInt64(EValue.Text);
end;
function TNewNumberForm.GetAsInteger: Integer;
begin
Result:=StrToInt(EValue.Text);
end;
function TNewNumberForm.GetMemberName: String;
begin
Result:=EName.Text;
end;
function TNewNumberForm.GetNumberType: TJSONNumberType;
begin
Result:=TJSONNumberType(RGType.ItemIndex);
end;
procedure TNewNumberForm.SetAllowName(const AValue: Boolean);
begin
EName.Enabled:=AValue;
end;
procedure TNewNumberForm.SetMemberName(const AValue: String);
begin
EName.Text:=AValue;
end;
procedure TNewNumberForm.SetNumberType(const AValue: TJSONNumberType);
begin
RGType.ItemIndex:=Ord(Avalue);
end;
end.
|
