delphi 删除字符串的中文字 汉字

比如
edit1.text:=123a,.bcsa24/;kkl21的洒水车现在1232421 ;
我现在要通过点击一个按钮来删除除了数字以外的 符号、 字母、 汉字、 只保留数字
该怎么来写这个按钮。

var
s,tmpStr:string;
I:Integer;
begin
s:=edt1.Text;
for I=1 to Length(s) do
if s[I] in ['0'..'9'] then
tmpStr:=tmpStr+s[I];
ShowMessage(tmpStr);
end;

//原理就是逐一取出字符串中的每个字节，判断其是否在'0'..'9' 内，此方法对有中文的都可以，

如果你是想数组中包含某字符串的话不如使用 if pos(name,a[0]) >0 then 这样的语句

只能逐字符检测并保存在一个字串变量中了. var zfc1:string; zfc:string; i:word;//如果edit1.text的长度大于3600,则需要使用i:integer. begin zfc:=''; zfc1:=edit1.text; for i:=1 to length(zfc1) do begin if zfc1[i] in ['0'..'9'] then zfc:=zfc+zfc1[i]; end; edit1.text:=zfc; end; 在D7中试了一下上述代码,很好用