delphi基础(100)

T

tt20050702

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-27

• #1

请问各位高手，如何进行对文本框输入字符串中英文字母，数字，空格统计

 

S

smlabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-27

• #2

编码>128就是汉字(而且注意汉字是2个字节),英文'a'-'z', 'A'-'Z',数字'0'..'9';

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-02-27

• #3

procedure TForm1.Button2Click(Sender: TObject);var S:String; A1,A2,A3,I:Integer;begin S:=Edit1.Text; A1:=0; A2:=0; A3:=0; for i:=1 to Length(S) DO if (S in ['0'..'9']) Then Inc(A1) ELSE IF S In ['A'..'Z','a'..'z'] Then Inc(A2) ELSE IF S IN [' '] Then Inc(A3);end;smlabc给你回答了问题后，你不结贴，然后把原先的问题改为现在的问题了？

 

D

djrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-18

• #4

var WS: WideString;begin WS:= S; for i:= 1 to Length(WS) do begin if Length(AnsiString(WS))>1 then 双字节 end;

 

D

de410

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-18

• #5

2楼的方法不错~~