-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathAcrylicUIRegExTester.pas
110 lines (73 loc) · 2.58 KB
/
AcrylicUIRegExTester.pas
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
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
unit
AcrylicUIRegExTester;
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
interface
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
uses
Windows,
SysUtils,
Classes,
Controls,
Forms,
StdCtrls,
AcrylicUIUtils;
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
type
TRegExTesterForm = class(TForm)
lblDomainName: TLabel;
txtDomainName: TEdit;
lblRegEx: TLabel;
txtRegEx: TEdit;
lblResult: TLabel;
btnTest: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure btnTestClick(Sender: TObject);
end;
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
var
RegExTesterForm: TRegExTesterForm;
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
implementation
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
{$R *.dfm}
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
procedure TRegExTesterForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = 27) then Self.ModalResult := mrCancel;
end;
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
procedure TRegExTesterForm.btnTestClick(Sender: TObject);
begin
try
if AcrylicUIUtils.TestRegEx(txtDomainName.Text, txtRegEx.Text) then begin
lblResult.Caption := 'Match: YES.';
end else begin
lblResult.Caption := 'Match: NO.';
end;
except
lblResult.Caption := 'Invalid regular expression specified.';
end;
end;
// --------------------------------------------------------------------------
//
// --------------------------------------------------------------------------
end.