Delphi代碼編寫實現計算中文文字的筆劃，指定一個漢字，可計算出該文字有筆劃是多少，如輸入“明”字，計算後會得到筆畫為：8劃。覺得在使用Delphi編寫一些教學軟件的時候，或許可以用上這個模塊，代碼如下示：
001
unit Unit1;
002
interface
003
uses
004
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
005
Dialogs, StdCtrls;
006
type
007
TForm1 = class(TForm)
008
Edit1: TEdit;
009
Button1: TButton;
010
Label1: TLabel;
011
Label2: TLabel;
012
Label3: TLabel;
013
procedure Button1Click(Sender: TObject);
014
private
015
function GetStroke(chnstr:string):integer;
016
{ Private declarations }
017
public
018
{ Public declarations }
019
end;
020
var
021
Form1: TForm1;
022
implementation
023
{$R *.dfm}
024
{ TForm1 }
025
function TForm1.GetStroke(chnstr: string): integer;
026
const
027
StrokeTable=
028
#10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+
029
#10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+
030
#12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+
031
#7#10#7#21#10#8#5#9#6#13#8#8#9#13#12#10+
032
#13#7#10#10#8#8#7#8#7#19#5#4#8#6#9#10+
033
#14#14#9#12#15#10#15#12#12#8#9#5#15#10#16#13+
034
#9#12#8#8#8#7#15#10#13#19#8#13#12#8#5#12+
035
#9#4#9#10#7#8#12#12#10#8#8#5#11#11#11#9+
036
#9#18#9#12#14#4#13#10#8#14#13#14#6#10#9#4+
037
#7#13#6#11#14#5#13#16#17#16#9#18#5#12#8#9+
038
#9#8#4#16#16#17#12#9#11#15#8#19#15#7#15#11+
039
#12#16#13#10#13#7#6#9#5#8#9#9#10#6#9#11+
040
#15#8#10#8#12#9#13#10#14#7#8#11#11#14#12#8+
041
#7#10#2#10#7#11#4#5#7#19#10#8#17#11#12#7+
042
#3#7#13#15#8#11#11#14#16#8#10#9#11#11#7#7+
043
#10#4#7#17#16#16#15#11#9#8#12#8#5#9#7#19+
044
#12#3#9#9#9#14#12#14#7#9#8#8#10#10#12#11+
045
#11#12#11#13#11#6#11#19#8#11#6#9#11#4#11#7+
046
#2#12#8#11#10#12#7#9#12#15#15#11#7#8#4#7+
047
#15#12#7#15#10#6#7#6#11#7#7#7#12#8#15#10+
048
#9#16#6#7#8#12#12#15#8#8#10#10#10#6#13#9+
049
#11#6#7#6#6#10#8#8#4#7#10#5#9#6#6#6+
050
#11#8#8#13#12#14#13#13#13#4#11#14#4#10#7#5+
051
#16#12#18#12#13#12#9#13#10#12#24#13#13#5#12#3+
052
#9#13#6#11#12#7#9#12#15#7#6#6#7#8#11#13+
053
#8#9#13#15#10#11#7#21#18#11#11#9#14#14#13#13+
054
#10#7#6#8#12#6#15#12#7#5#4#5#11#11#15#14+
055
#9#19#16#12#14#11#13#10#13#14#11#14#7#6#3#14+
056
#15#12#11#10#13#12#6#12#14#5#3#7#4#12#17#9+
057
#9#5#9#11#9#11#9#10#8#4#8#10#11#9#5#12+
058
#7#11#11#8#11#11#6#9#10#9#10#2#10#17#10#7+
059
#11#6#8#15#11#12#11#15#11#8#19#6#12#12#17#14+
060
#4#12#7#14#8#10#11#7#10#14#14#7#8#6#12#11+
061
#9#7#10#12#16#11#13#13#9#8#16#9#5#7#7#8+
062
#11#12#11#13#13#5#16#10#2#11#6#8#10#12#10#14+
063
#15#8#11#13#2#7#5#7#8#12#13#8#4#6#5#5+
064
#12#15#6#9#8#9#7#9#11#7#4#9#7#10#12#10+
065
#13#9#12#9#10#11#13#12#7#14#7#9#12#7#14#12+
066
#14#9#11#12#11#7#4#5#15#7#19#12#10#7#9#9+
067
#12#11#9#6#6#9#13#6#13#11#8#12#11#13#10#12+
068
#9#15#6#10#10#4#7#12#11#10#10#6#2#6#5#9+
069
#9#2#9#5#9#12#6#4#9#8#9#18#6#12#18#15+
070
#8#8#17#3#10#4#7#8#8#5#7#7#7#7#4#8+
071
#8#6#7#6#6#7#8#11#8#11#3#8#10#10#7#8+
072
#8#8#9#7#11#7#8#4#7#7#12#7#10#8#6#8+
073
#12#12#4#9#8#13#10#12#4#9#11#10#5#13#6#8+
074
#4#7#7#4#15#8#14#7#8#13#12#9#11#6#9#8+
075
#10#11#13#11#5#7#7#11#10#10#8#11#12#8#14#9+
076
#11#18#12#9#12#5#8#4#13#6#12#4#7#6#13#8+
077
#15#14#8#7#13#9#11#12#3#5#7#9#9#7#10#13+
078
#8#11#21#4#6#9#9#7#7#7#12#7#16#10#10#14+
079
#10#16#13#15#15#7#10#14#12#4#11#10#8#12#9#12+
080
#10#12#9#12#11#3#6#9#10#13#10#7#8#19#10#10+
081
#11#3#7#5#10#11#8#10#4#9#3#6#7#9#7#6+
082
#9#4#7#8#8#9#8#8#11#12#11#8#14#7#8#8+
083
#8#13#5#11#9#7#8#9#10#8#12#8#5#9#14#9+
084
#13#8#8#8#12#6#8#9#6#14#11#23#11#20#8#6+
085
#3#10#13#8#6#11#5#7#9#6#9#8#9#10#8#13+
086
#9#8#12#13#12#12#10#8#8#14#6#9#15#9#10#10+
087
#6#10#9#12#15#7#12#7#11#12#8#12#7#16#16#10+
088
#7#16#10#11#6#5#5#8#10#17#17#14#11#9#6#10+
089
#5#10#8#12#10#11#10#5#8#7#6#11#13#9#8#11+
090
#14#14#15#9#15#12#11#9#9#9#10#7#15#16#9#8+
091
#9#10#9#11#9#7#5#6#12#9#12#7#9#10#6#8+
092
#5#8#13#10#12#9#15#8#15#12#8#8#11#7#4#7+
093
#4#7#9#6#12#12#8#6#4#8#13#9#7#11#7#6+
094
#8#10#7#12#10#11#10#12#13#11#10#9#4#9#12#11+
095
#16#15#17#9#11#12#13#10#13#9#11#6#9#12#17#9+
096
#12#6#13#10#15#5#12#11#10#11#6#10#5#6#9#9+
097
#9#8#11#13#9#11#17#9#6#4#10#8#12#16#8#11+
098
#5#6#11#6#13#15#10#14#6#5#9#16#4#7#10#11+
099
#12#6#7#12#13#20#12#3#9#10#6#7#13#6#9#2+
100
#10#3#13#7#16#8#6#11#8#11#9#11#11#4#5#9+
101
#7#7#7#10#6#14#9#6#8#10#5#9#12#10#5#10+
102
#11#15#6#9#8#13#7#10#7#6#11#7#13#10#8#8+
103
#6#12#9#11#9#14#12#8#10#13#9#11#11#9#14#13+
104
#12#9#4#13#15#6#10#10#9#8#11#12#12#8#15#9+
105
#9#10#6#19#12#10#9#6#6#13#8#15#12#17#12#10+
106
#6#8#9#9#9#20#12#11#11#8#11#9#7#9#16#9+
107
#13#11#14#10#10#5#12#12#11#9#11#12#6#14#7#5+
108
#10#8#11#13#14#9#9#13#8#7#17#7#9#10#4#9+
109
#9#8#3#12#4#8#4#9#18#10#13#4#13#7#13#10+
110
#13#7#10#10#6#7#9#14#8#13#12#16#8#11#14#13+
111
#8#4#19#12#11#14#14#12#16#8#10#13#11#10#8#9+
112
#12#12#7#5#7#9#3#7#2#10#11#11#5#6#13#8+
113
#12#8#17#8#8#10#8#8#11#7#8#9#9#8#14#7+
114
#11#4#8#11#15#13#10#5#11#8#10#10#12#10#10#11+
115
#8#10#15#23#7#11#10#17#9#6#6#9#7#11#9#6+
116
#7#10#9#12#10#9#10#12#8#5#9#4#12#13#8#12+
117
#5#12#11#7#9#9#11#14#17#6#7#4#8#6#9#10+
118
#15#8#8#9#12#15#14#9#7#9#5#12#7#8#9#10+
119
#8#11#9#10#7#7#8#10#4#11#7#3#6#11#9#10+
120
#13#8#14#7#12#6#9#9#13#10#7#13#8#7#10#12+
121
#6#12#7#10#8#11#7#7#3#11#8#13#12#9#13#11+
122
#12#12#12#8#8#10#7#9#6#13#12#8#8#12#14#12+
123
#14#11#10#7#13#13#11#9#8#16#12#5#15#14#12#9+
124
#16#12#9#13#11#12#10#11#8#10#10#10#7#7#6#8+
125
#9#13#10#10#11#5#13#18#16#15#11#17#9#16#6#9+
126
#8#12#13#7#9#11#11#15#16#10#10#13#11#7#7#15+
127
#5#10#9#6#10#7#5#5#10#4#7#12#8#9#12#5+
128
#11#7#8#2#14#10#9#12#10#7#18#13#8#10#8#11+
129
#11#12#10#9#8#13#10#11#13#7#7#11#12#12#9#10+
130
#15#11#14#7#16#14#5#15#2#14#17#14#10#6#12#10+
131
#6#11#12#8#17#16#9#7#20#11#15#10#7#8#9#11+
132
#13#13#10#7#11#10#7#10#8#11#5#5#13#11#14#12+
133
#13#10#6#15#10#9#4#5#11#8#11#16#11#8#8#7+
134
#13#9#12#12#14#8#7#5#11#7#8#11#7#8#12#19+
135
#13#21#13#10#11#16#11#8#7#15#7#6#11#8#10#15+
136
#12#12#10#12#9#11#13#11#9#10#9#13#7#7#11#11+
137
#7#8#6#4#7#7#6#11#17#8#11#13#14#14#13#12+
138
#9#9#9#6#11#7#8#9#3#9#14#6#10#6#7#8+
139
#6#9#15#14#12#13#14#11#14#14#13#6#9#8#8#6+
140
#10#11#8#13#4#5#10#5#8#9#12#14#9#3#8#8+
141
#11#14#15#13#7#9#12#14#7#9#9#12#8#12#3#7+
142
#5#11#13#17#13#13#11#11#8#11#16#19#17#9#11#8+
143
#6#10#8#8#14#11#12#12#10#11#11#7#9#10#12#9+
144
#8#11#13#17#9#12#8#7#14#5#5#8#5#11#10#9+
145
#8#16#8#11#6#8#13#13#14#19#14#14#16#15#20#8+
146
#5#10#15#16#8#13#13#8#11#6#9#8#7#7#8#5+
147
#13#14#13#12#14#4#5#13#8#16#10#9#7#9#6#9+
148
#7#6#2#5#9#8#9#7#10#22#9#10#9#8#11#8+
149
#10#4#14#10#8#16#10#8#5#7#7#10#13#9#13#14+
150
#8#6#15#15#11#8#10#14#5#7#10#10#19#11#15#15+
151
#10#11#9#8#16#5#8#8#4#7#9#7#10#9#6#7+
152
#5#7#9#3#13#9#8#9#17#20#10#10#8#9#8#18+
153
#7#11#7#11#9#8#8#8#12#8#11#12#11#12#9#19+
154
#15#11#15#9#10#7#9#6#8#10#16#9#7#8#7#9+
155
#10#12#8#8#9#11#14#12#10#10#8#7#12#9#10#8+
156
#11#15#12#13#12#13#16#16#8#12#11#13#8#9#21#7+
157
#8#15#12#9#11#12#10#5#4#12#15#7#20#15#11#4+
158
#12#15#14#16#11#14#16#9#13#8#9#13#6#8#8#11+
159
#5#8#10#7#9#8#8#11#11#10#14#8#11#10#5#12+
160
#4#10#12#11#13#10#6#10#12#10#14#19#18#12#12#10+
161
#11#8#2#10#14#9#7#8#12#8#7#11#11#10#6#14+
162
#8#6#11#10#6#3#6#7#9#9#16#4#6#7#7#8+
163
#5#11#9#9#9#6#8#10#3#6#13#5#12#11#16#10+
164
#10#9#15#13#8#15#11#12#4#14#8#7#12#7#14#14+
165
#12#7#16#14#14#10#10#17#6#8#5#16#15#12#10#9+
166
#10#4#8#5#8#9#9#9#9#10#12#13#7#15#12#13+
167
#7#8#9#9#10#10#11#16#12#12#11#8#10#6#12#7+
168
#9#5#7#11#7#5#9#8#12#4#11#6#11#8#7#11+
169
#8#11#17#15#5#11#23#6#16#9#6#11#10#4#8#4+
170
#10#8#16#7#13#14#12#11#12#13#12#16#5#9#22#20+
171
#20#20#5#9#7#9#12#10#4#4#2#7#7#6#4#3+
172
#7#6#5#4#4#6#9#13#9#16#14#13#10#9#4#12+
173
#9#6#9#20#16#17#6#10#8#6#2#15#8#6#15#13+
174
#12#7#10#8#10#15#9#11#13#17#13#14#3#8#6#12+
175
#10#13#8#12#12#6#12#13#6#10#12#14#10#9#6#8+
176
#7#7#13#11#13#12#10#9#8#7#3#7#14#8#5#8+
177
#16#17#16#12#6#10#15#14#6#11#12#10#3#8#14#11+
178
#10#12#10#6#3#14#4#10#7#8#11#11#11#6#8#11+
179
#13#10#13#10#7#6#10#5#8#7#7#11#10#8#9#7+
180
#8#11#9#8#13#11#7#5#12#9#4#11#9#11#12#9+
181
#5#6#5#9#9#12#8#3#8#2#5#9#7#4#9#9+
182
#8#7#5#5#8#9#8#8#6#5#3#5#9#8#9#14+
183
#10#8#9#13#16#9#5#8#12#8#4#5#9#9#8#8+
184
#6#4#9#6#7#11#11#8#14#11#15#8#11#10#7#13+
185
#8#12#11#12#4#12#11#15#16#12#17#13#13#12#13#12+
186
#5#8#9#7#6#9#14#11#13#14#10#8#9#14#10#5+
187
#5#10#9#17#4#11#10#4#13#12#7#17#9#12#9#11+
188
#10#8#12#15#15#9#7#5#5#6#13#6#13#5#7#6+
189
#8#3#8#10#8#10#9#7#6#9#12#15#16#14#7#12+
190
#9#10#10#12#14#13#13#11#7#8#14#13#14#9#11#11+
191
#10#21#13#6#17#12#14#10#6#10#10#13#11#10#14#11+
192
#10#12#8#13#5#5#6#12#16#9#17#15#9#8#8#5+
193
#10#11#4#8#7#7#13#8#15#13#7#17#13#15#14#10+
194
#8#12#10#14#11#5#9#6#13#13#11#12#15#10#16#10+
195
#15#11#15#10#11#10#13#10#11#10#9#11#10#5#10#10+
196
#18#13#10#13#11#10#15#12#12#15#16#12#7#12#17#11+
197
#10#9#8#4#11#13#5#11#9#14#12#9#7#8#11#13+
198
#9#10#8#4#7#9#5#6#11#9#9#9#12#10#10#13+
199
#17#6#11#7#12#11#10#12#9#12#11#7#5#10#5#7+
200
#9#8#10#10#10#11#3#6#8#12#6#11#13#13#13#13+
201
#9#7#4#17#8#6#11#10#7#6#8#12#7#8#11#9+
202
#9#12#9#9#4#10#9#5#15#9#12#8#10#3#11#7+
203
#13#10#11#12#11#8#11#3#12#7#4#3#8#6#8#8+
204
#11#7#6#9#20#13#6#4#7#10#7#11#11#4#14#11+
205
#7#11#8#6#6#7#7#5#14#8#9#9#12#17#7#12+
206
#11#11#15#3#14#12#10#4#9#7#7#14#10#6#13#10+
207
#8#9#13#10#12#7#14#8#12#7#7#7#9#4#6#9+
208
#9#4#7#11#7#7#4#8#4#10#4#14#6#9#7#5+
209
#13#11#8#4#5#10#9#8#14#8#6#11#8#12#15#6+
210
#13#10#12#10#7#11#15#3#11#14#11#13#6#12#17#11+
211
#10#3#13#12#11#9#7#12#6#8#15#9#7#17#14#13+
212
#9#8#9#3#12#10#6#11#13#6#5#14#6#9#8#11+
213
#11#7#9#8#13#9#9#8#13#7#13#11#12#9#10#8+
214
#8#9#11#22#9#15#17#12#3#12#10#8#13#9#8#9+
215
#9#15#13#6#11#11#12#15#9#10#18#12#10#10#11#10+
216
#3#7#10#7#11#10#10#13#8#13#15#15#6#9#13#6+
217
#11#8#11#5#11#9#19#16#8#8#12#10#16#7#12#8+
218
#7#13#7#4#9#11#9#13#12#12#6#6#9#7#6#6+
219
#16#8#7#8#8#5#4#10#6#7#12#14#6#9#10#6+
220
#13#12#7#10#10#14#6#14#11#14#9#10#6#13#11#9+
221
#6#7#10#9#12#12#11#11#7#12#9#11#11#5#9#19+
222
#10#9#13#16#8#5#11#6#9#14#12#6#8#6#6#6+
223
#10#6#5#5#9#6#6#8#9#10#7#3#7#4#10#11+
224
#13#11#12#9#6#6#11#9#11#10#11#10#7#9#12#8+
225
#6#7#15#11#8#8#8#11#11#9#14#10#12#16#6#9+
226
#12#10#9#12#10#11#10#9#5#10#10#7#6#8#8#6+
227
#9#6#10#6#11#9#10#14#16#13#7#14#13#6#13#11+
228
#12#9#9#10#9#9#20#12#15#8#6#11#7#3#6#11+
229
#5#5#6#12#8#11#1#12#7#12#11#8#6#6#13#6+
230
#12#11#5#10#14#7#8#9#18#12#9#10#3#1#7#4+
231
#4#7#8#7#6#3#7#17#11#13#9#6#13#13#15#4+
232
#3#10#13#8#5#10#7#6#17#11#8#9#9#6#10#9+
233
#6#9#7#11#11#11#7#4#4#11#5#8#15#11#18#7+
234
#14#10#11#11#9#14#7#17#9#15#13#10#9#9#8#7+
235
#17#10#11#13#14#13#8#8#10#5#11#9#5#9#6#11+
236
#7#4#5#7#10#7#8#12#7#6#4#5#7#12#9#2+
237
#5#6#11#3#8#13#13#13#14#7#9#12#8#12#12#11+
238
#11#4#10#8#3#6#9#6#9#6#5#11#6#8#6#12+
239
#12#10#12#13#11#9#8#13#10#12#12#10#15#5#10#11+
240
#10#4#9#10#10#12#14#7#7#10#13#13#12#7#8#14+
241
#9#9#4#6#12#11#9#8#12#4#10#10#10#4#9#4+
242
#9#4#7#15#11#10#13#5#5#10#6#10#9#7#10#10+
243
#6#6#9#19#12#16#10#10#12#14#17#12#19#8#6#16+
244
#9#20#16#10#7#7#17#8#8#6#8#10#9#15#15#12+
245
#16#4#12#12#5#5#11#8#9#9#14#8#5#9#7#14+
246
#10#6#10#10#14#18#9#13#11#8#10#8#14#11#10#22+
247
#9#5#9#10#12#11#15#11#14#14#7#12#10#7#3#7+
248
#8#5#8#16#13#8#9#7#8#9#13#13#6#14#5#14+
249
#7#10#12#16#8#13#14#7#10#9#13#10#13#10#16#6+
250
#7#8#8#10#7#15#10#15#6#13#9#11#8#9#6#8+
251
#16#9#5#9#9#10#8#7#6#8#4#7#14#8#8#10+
252
#5#3#8#11#8#12#12#6#10#8#7#9#4#11#5#6+
253
#7#7#10#11#6#10#13#8#9#8#12#10#13#8#8#11+
254
#12#8#11#4#9#8#9#10#8#9#8#9#6#6#6#8+
255
#6#9#7#12#9#7#8#8#10#8#9#17#10#10#12#6+
256
#11#10#8#10#6#10#12#8#17#15#5#11#9#7#11#8+
257
#12#12#7#8#9#8#7#4#9#4#9#8#15#14#15#10+
258
#6#12#6#15#6#7#12#13#9#14#7#11#10#10#10#8+
259
#8#10#12#8#10#11#11#7#9#9#9#10#9#12#11#7+
260
#12#5#9#13#3#6#11#6#18#12#15#8#11#9#7#7+
261
#7#9#12#10#7#8#11#9#7#7#8#10#20#16#15#12+
262
#13#12#15#9#5#7#9#11#7#7#10#0#0#0#0#0+
263
#3#3#3#4#4#4#5#6#6#10#10#16#0#9#0#2+
264
#3#4#4#5#5#6#9#11#14#14#19#0#8#14#2#6+
265
#4#7#7#11#14#4#6#10#11#12#14#15#16#0#5#8+
266
#11#11#15#8#7#0#4#6#7#8#8#8#9#10#10#10+
267
#13#13#14#14#15#16#0#8#0#4#4#4#5#5#5#5+
268
#6#6#6#6#6#6#6#6#6#7#7#7#7#7#7#7+
269
#7#7#8#8#8#8#8#8#8#8#8#8#8#8#9#9+
270
#9#9#9#9#9#9#9#10#10#10#10#10#10#10#10#10+
271
#10#10#10#10#11#11#11#11#11#11#11#12#12#12#13#14+
272
#14#14#14#14#14#15#15#5#6#7#7#8#17#6#8#4+
273
#12#16#17#18#21#0#9#9#11#6#6#7#0#8#10#10+
274
#11#12#12#12#13#16#19#19#0#6#8#8#10#0#10#10+
275
#0#5#5#5#6#6#6#7#7#7#7#7#7#8#8#8+
276
#8#8#8#8#8#8#8#8#9#9#9#9#10#10#10#10+
277
#10#10#10#11#11#11#11#11#11#11#11#11#11#11#12#12+
278
#12#12#12#13#13#14#14#14#15#15#19#0#8#0#5#5+
279
#6#6#7#7#7#7#8#9#9#10#10#10#11#11#11#16+
280
#5#5#5#5#6#6#7#7#7#7#7#7#8#8#8#8+
281
#8#8#8#9#9#9#9#9#10#10#11#11#13#13#13#14+
282
#14#16#19#20#5#7#5#7#7#8#10#10#11#15#9#17+
283
#20#0#0#6#10#2#5#10#12#7#9#9#14#16#16#17+
284
#6#6#6#6#6#6#6#7#7#7#8#8#8#8#8#8+
285
#8#8#8#8#9#9#9#9#9#9#9#9#9#10#10#10+
286
#10#10#10#11#11#11#11#11#11#11#11#11#11#12#12#12+
287
#12#13#13#14#14#14#15#20#21#22#0#5#5#6#6#6+
288
#6#6#6#6#7#7#7#7#7#7#7#7#7#7#7#7+
289
#7#7#7#7#7#7#7#7#7#7#7#8#8#8#8#8+
290
#8#8#8#8#8#8#8#8#8#8#8#8#8#8#9#9+
291
#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9+
292
#9#9#9#9#9#9#9#9#9#9#9#9#9#10#10#10+
293
#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+
294
#10#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11+
295
#11#11#11#11#11#11#11#11#11#11#11#12#12#12#12#12+
296
#12#12#12#12#12#12#12#12#12#12#12#12#12#13#13#13+
297
#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14#14+
298
#14#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15+
299
#15#16#16#16#16#16#16#16#16#16#17#17#17#17#17#18+
300
#19#19#19#20#20#22#0#9#6#7#9#9#10#10#11#0+
301
#6#7#13#0#6#7#8#8#8#8#9#9#9#10#10#10+
302
#11#11#11#11#11#11#11#11#11#11#11#11#12#12#12#12+
303
#12#12#12#12#12#12#13#13#13#13#13#13#13#13#14#14+
304
#14#14#14#15#15#15#15#16#16#16#17#17#19#23#25#3+
305
#7#8#12#5#5#5#5#5#5#6#6#6#7#7#7#7+
306
#7#7#7#7#7#7#7#8#8#8#8#8#8#8#8#8+
307
#8#8#9#9#9#9#9#9#9#9#9#9#9#9#9#9+
308
#9#9#9#9#9#9#9#9#9#9#10#10#10#10#10#10+
309
#10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+
310
#11#11#11#11#11#11#11#11#12#12#12#12#12#12#12#12+
311
#12#12#12#12#12#12#12#12#12#13#13#13#13#13#13#13+
312
#13#13#13#13#13#13#13#13#13#13#13#13#13#13#14#14+
313
#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15#15+
314
#15#15#16#16#16#16#16#16#17#17#19#25#0#6#6#7+
315
#7#8#9#10#11#11#16#7#8#8#8#10#11#11#11#12+
316
#14#14#15#15#6#6#7#7#7#7#7#7#7#7#7#8+
317
#8#8#8#8#8#8#8#8#8#9#9#9#9#10#10#11+
318
#11#11#11#11#11#11#12#12#12#12#12#12#12#12#12#12+
319
#13#13#13#14#15#15#17#17#19#3#7#8#9#9#9#10+
320
#11#11#12#13#15#16#24#0#0#5#6#6#6#7#7#8+
321
#8#8#9#9#9#9#10#10#10#10#10#10#10#11#11#11+
322
#11#11#11#11#12#12#12#12#12#12#14#14#15#15#16#17+
323
#20#6#14#12#14#0#0#6#7#7#7#7#7#8#9#10+
324
#10#11#12#12#13#13#14#15#15#25#5#7#7#8#9#9+
325
#11#11#11#11#12#13#14#15#16#16#17#0#5#6#6#7+
326
#7#7#7#7#7#7#7#7#7#7#8#8#8#8#8#8+
327
#8#8#8#8#8#9#9#9#9#9#9#9#10#10#10#10+
328
#10#10#10#10#11#11#11#11#11#11#11#11#12#12#12#12+
329
#12#12#12#13#13#14#15#15#15#16#16#18#8#17#4#6+
330
#7#7#7#7#9#9#10#10#10#11#11#11#11#11#11#12+
331
#12#13#13#13#14#0#4#8#0#6#6#6#7#7#7#7+
332
#7#7#7#7#7#7#7#7#8#8#8#8#8#8#8#8+
333
#8#8#8#8#8#8#8#8#9#9#9#9#9#9#9#9+
334
#9#9#9#9#9#9#9#9#9#9#10#10#10#10#10#10+
335
#10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+
336
#11#11#11#11#12#12#12#12#12#12#12#12#12#12#12#12+
337
#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13#13+
338
#13#14#14#14#14#14#14#14#14#14#14#14#14#14#14#15+
339
#15#15#15#15#15#16#16#16#16#16#16#17#17#17#17#17+
340
#19#19#19#20#20#21#24#0#5#8#8#9#10#12#13#14+
341
#14#15#16#16#17#17#0#7#7#8#8#8#8#8#8#8+
342
#9#9#10#10#10#10#10#10#11#11#11#11#12#12#12#12+
343
#13#13#13#13#15#15#16#16#17#17#18#0#11#9#12#5+
344
#9#10#10#12#14#15#21#8#8#9#11#12#22#0#6#6+
345
#7#7#7#7#7#7#7#7#7#7#8#8#8#8#9#9+
346
#9#9#9#9#9#10#10#10#10#10#10#10#10#11#11#11+
347
#11#11#11#11#12#12#12#12#13#13#13#13#13#13#14#14+
348
#14#14#14#14#14#15#16#16#17#17#20#5#9#7#8#12+
349
#3#3#8#8#8#8#8#8#8#8#9#9#9#10#11#11+
350
#11#11#12#12#13#13#13#14#14#15#19#20#0#6#6#6+
351
#6#6#7#7#7#8#8#8#8#8#8#8#9#9#9#10+
352
#10#10#11#11#11#11#11#11#11#11#11#11#11#12#12#12+
353
#12#12#12#12#12#12#12#13#13#13#13#13#13#13#13#14+
354
#14#14#14#14#15#15#15#16#16#16#16#19#3#15#3#8+
355
#10#6#6#8#8#8#9#9#9#9#9#9#9#9#10#10+
356
#10#10#10#10#10#10#10#11#12#12#12#12#12#12#12#12+
357
#12#12#13#13#13#13#13#14#14#15#15#15#15#15#15#15+
358
#16#17#17#17#18#20#19#13#13#14#7#7#7#7#7#8+
359
#8#8#8#8#8#8#8#8#8#8#8#8#9#9#9#9+
360
#9#9#9#9#9#9#9#9#9#9#9#9#9#9#9#10+
361
#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+
362
#10#10#11#11#11#11#11#11#11#12#12#12#12#12#12#12+
363
#12#12#12#12#12#13#13#13#13#13#13#13#13#13#13#13+
364
#13#13#13#13#13#13#13#13#14#14#14#14#14#14#14#14+
365
#14#14#14#14#14#15#15#15#15#15#15#15#14#16#16#16+
366
#16#16#16#16#16#16#16#16#17#17#17#17#18#13#14#8+
367
#9#9#9#11#11#11#12#12#14#16#7#8#9#9#9#9+
368
#9#9#9#9#9#10#10#10#10#11#12#12#12#12#13#15+
369
#16#10#5#8#11#12#12#13#13#13#14#14#8#9#12#16+
370
#16#17#4#6#6#7#8#8#8#8#8#8#8#9#9#9+
371
#9#9#9#10#10#10#10#10#10#11#11#12#13#13#14#14+
372
#16#18#18#20#21#9#9#9#9#10#10#10#10#11#11#11+
373
#12#12#14#9#10#11#12#13#14#15#15#9#16#6#8#9+
374
#11#11#12#12#12#13#14#10#11#12#14#17#10#10#12#12+
375
#12#13#16#16#16#22#5#6#7#7#9#10#10#11#13#0+
376
#11#13#12#13#15#9#15#6#7#7#7#8#8#8#8#8+
377
#8#8#8#9#9#9#9#9#9#9#9#9#9#9#9#9+
378
#10#10#10#10#10#10#10#10#10#11#11#11#11#11#11#12+
379
#12#12#12#12#12#12#13#13#13#13#13#13#13#13#14#14+
380
#14#15#15#16#17#17#17#17#17#16#7#11#12#13#13#16+
381
#9#9#12#13#16#16#4#13#13#17#12#15#16#8#10#10+
382
#10#11#11#13#14#7#8#8#8#9#9#9#9#9#10#10+
383
#11#11#11#12#12#13#13#13#13#13#13#13#13#14#15#15+
384
#15#15#16#16#16#18#21#30#0#11#13#16#8#8#9#11+
385
#12#0#7#8#8#9#9#9#9#9#9#9#10#10#12#12+
386
#13#14#16#21#7#7#9#10#10#10#10#10#10#11#13#13+
387
#14#16#16#17#17#25#0#6#8#9#12#7#8#8#9#9+
388
#9#9#9#9#9#10#10#10#10#10#10#10#10#10#10#11+
389
#11#11#11#11#11#11#11#12#13#13#13#13#13#14#14#14+
390
#14#14#15#15#15#16#16#17#17#18#19#18#21#11#12#17+
391
#19#8#9#9#9#9#9#10#10#10#11#11#11#11#12#12+
392
#12#12#13#13#13#13#14#14#14#14#15#15#16#16#16#17+
393
#18#7#8#9#9#9#10#12#13#17#9#10#10#12#13#14+
394
#14#16#17#17#10#16#23#0#6#6#7#7#7#8#8#8+
395
#8#8#8#9#9#9#9#9#9#9#9#9#9#10#10#10+
396
#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10#10+
397
#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11+
398
#11#11#11#11#11#11#11#11#11#11#12#12#12#12#12#12+
399
#12#12#12#12#12#12#12#12#12#12#12#13#13#13#13#13+
400
#13#13#13#13#13#13#13#14#14#14#14#14#14#14#14#14+
401
#14#14#14#15#15#15#15#15#15#15#15#16#16#16#16#16+
402
#16#16#16#17#17#17#17#17#17#17#17#17#17#18#18#18+
403
#19#20#14#9#12#13#9#9#10#10#11#12#12#12#13#13+
404
#15#15#16#17#18#22#9#11#12#13#17#10#11#7#7#8+
405
#9#9#10#10#10#10#10#10#11#11#11#11#11#12#12#12+
406
#12#12#12#13#13#13#13#13#14#14#14#14#14#15#15#16+
407
#16#16#17#17#17#17#19#18#22#0#7#7#8#8#9#9+
408
#10#10#10#10#10#10#10#10#11#11#12#12#12#12#12#12+
409
#13#13#13#13#13#13#13#14#14#14#14#14#14#14#15#15+
410
#15#15#16#16#16#16#16#16#16#16#17#18#18#18#18#21+
411
#23#11#12#8#8#9#9#10#11#13#13#14#14#14#15#0+
412
#8#9#9#9#9#10#11#11#11#11#12#12#12#12#13#13+
413
#13#13#13#13#14#14#14#14#14#15#15#16#17#19#24#5+
414
#9#11#12#9#6#9#10#11#12#13#14#15#15#16#16#22+
415
#12#8#11#11#11#12#15#16#12#9#10#10#12#12#12#12+
416
#13#15#15#16#16#16#18#20#21#0#10#7#8#9#9#9+
417
#9#10#10#10#10#10#10#10#10#10#10#11#11#11#11#11+
418
#11#11#11#11#11#11#12#12#12#12#12#12#12#12#12#12+
419
#12#12#13#13#13#13#13#13#13#13#14#14#14#14#14#14+
420
#14#14#14#14#14#14#14#14#15#15#15#15#15#15#15#15+
421
#15#15#15#15#15#15#16#16#16#16#16#16#16#16#16#16+
422
#17#17#17#17#17#17#17#17#17#17#17#18#18#18#18#19+
423
#19#19#19#20#21#24#26#6#14#17#17#10#8#9#9#9+
424
#10#10#10#10#10#11#11#11#11#11#11#11#11#11#11#11+
425
#11#12#12#12#12#12#12#13#13#13#13#13#13#14#14#14+
426
#14#14#14#14#14#14#14#14#14#15#15#15#15#16#16#16+
427
#16#16#17#17#17#17#17#17#18#18#18#19#19#19#8#9+
428
#11#12#10#10#9#9#9#10#10#10#10#11#11#11#11#12+
429
#13#13#14#15#17#18#19#10#10#11#13#13#19#11#11#13+
430
#15#15#16#9#10#10#11#11#12#12#13#14#14#14#15#15+
431
#15#15#15#16#18#6#14#9#11#12#14#14#15#15#16#17+
432
#6#12#14#14#17#25#11#19#9#12#13#13#23#11#15#10+
433
#11#9#10#10#10#12#12#12#13#13#13#14#14#14#14#14+
434
#15#15#16#16#16#17#17#18#19#19#19#20#20#21#7#16+
435
#10#13#14#18#18#10#10#11#11#11#12#12#12#12#12#12+
436
#12#12#13#13#13#13#13#13#13#14#14#15#15#15#15#15+
437
#15#15#15#16#16#16#16#16#16#16#16#17#17#17#19#19+
438
#19#19#19#20#21#22#22#23#24#7#12#13#13#17#17#11+
439
#11#12#12#13#13#14#15#13#18#12#11#12#12#14#14#15+
440
#16#16#19#19#20#22#10#13#13#13#14#14#15#15#17#8+
441
#12#20#8#10#10#13#14#18#18#14#14#15#16#17#18#18+
442
#21#24#12#12#13#13#13#13#13#13#13#13#14#14#14#14+
443
#14#14#14#14#15#15#15#15#15#15#15#15#15#15#16#16+
444
#16#16#16#16#16#16#16#16#16#16#17#17#17#17#17#17+
445
#17#17#18#18#18#18#18#19#19#19#19#19#19#20#20#20+
446
#21#14#14#15#15#16#18#18#18#19#19#13#13#14#14#14+
447
#15#15#17#17#18#18#19#19#22#14#14#15#16#16#17#19+
448
#12#15#18#22#22#10#13#14#15#15#16#16#16#18#19#20+
449
#23#25#14#15#17#13#16#16#17#19#19#21#23#17#17#17+
450
#18#18#19#20#20#20#20#21#17#18#20#23#23#16#17#23;
451
var
452
bign:integer;
453
Stroke:integer;
454
str:string;
455
ischina:integer;
456
ch1:char;
457
ch2:char;
458
len:integer;
459
begin
460
str:=chnstr;
461
ischina:=1;
462
Stroke:=0;
463
len:=length(str);
464
while ischina<=len do
465
begin
466
ch1:=str[ischina];
467
ischina:=ischina+1;
468
if (ord(ch1)>=176) and (ischina<=len) then
469
begin
470
ch2:=str[ischina];
471
bign:=(ord(ch1)-176)*94+(ord(ch2)-160);
472
Stroke:=ord(StrokeTable[bign]);
473
end
474
else
475
Stroke:=0;
476
break;
477
end;
478
result:=Stroke;
479
end;
480
procedure TForm1.Button1Click(Sender: TObject);
481
var
482
i:integer;
483
begin
484
i:=GetStroke(trim(edit1.Text));
485
label3.Caption := IntToStr(i)+' 劃';
486
end;
487
end.
編譯後的運行效果，如下圖所示：
