如何过滤中文字符串(44分)

Z

zqssoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #1

已知memo1控件中有一段中英文混合的文本，如
“我是一个中国人,how are you...”
请问如何才能将上述混合文本中的中文字符过滤掉，
只留下英文文本呢？
请各位指点一下小弟，最好给出实现代码，谢谢。

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #2

var
S: string;
I: Integer;
begin
S := '“我是一个中国人,how are you...”';
for I := 0 to Length(S) do //中文大于127
if Ord(S) <= 127 then Memo1.Text + Memo1.Text + (S)
end;

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #3

楼上说的对,中文字符的每个字节的ASCII码都是大于127的,凡是此类字符,一律排除即可,也包括一些全角字符的标点符号

 

D

dysenon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
I: Integer;
begin
S :='我是一个中国人how are you...';
for I := 0 to Length(S) do //中文大于127
if Ord(S) <= 127 then
Memo1.Text:= Memo1.Text + (S);
end;
end.
上面的要改一点,现在可以拉...

 

Z

zqssoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-29

• #5

接受答案了.