发表于 2009-1-5 19:48
| 
缁熻涓嫳鏂囧瓧涓暟
鍙戝竷: 2008-6-26 20:32 | 浣滆: admin | 鏌ョ湅: 10娆
width="84%">缁熻涓嫳鏂囧瓧涓暟
鎯冲湪鏂囨湰鎺т欢TMemo涓紝鍒嗗埆瀵逛腑銆佽嫳鏂囩殑瀛楃鏁拌繘琛岀粺璁★紝鎴戜滑鍙互閫氳繃鎶婂瓧绗﹁浆鎹负鏁板兼潵杩涜鍒ゆ柇锛孫rd()鍑芥暟鎶婂瓧绗﹁浆鎹负瀵瑰簲鐨勬暟鍊硷紝鍊33-126涓洪敭鐩樺彲浣跨敤瀛楃锛屽127浠ヤ笂鐨勪负鏈煡瀛楃锛屽嵆涓烘眽瀛
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,e,c:integer;
begin
s:=memo1.text;
e:=0;c:=0;
for i:=1 to length(s) do
begin
if (ord(s[i])>=33)and(ord(s[i])<=126) then
begin
inc(e);
label1.caption:='鑻辨枃涓暟锛'+inttostr(e);
end
else
if (ord(s[i])>=127) then
begin
inc(c);
label2.caption:='涓枃涓暟锛'+inttostr(c div 2);
end;
end;
end;
