如何将将一个字符串中标点符号全部删除

[JohnHeung]

比如一个字符串为：HA,N.G?Z4343HO
如何将标点删除只剩下字母和数字？
望赐教！

[chinaandys]

procedure TForm1.Button2Click(Sender: TObject);
var
S:string;
I:Integer;
str:string;
begin
S:='HA,N.G?Z4343HO';
str:='';
for I:=1 to Length(S) do
begin
if ( S[I] in ['0'..'9','A'..'Z','a'..'z']) then
Str:=str+S[I];
end;
showmessage(Str);
end;

[fyje]

判断字符串的字符Ascii码，如果不是字母和数字删掉就可以了

[海天候]

var
s:string;
i:integer;
fstr:string;
begin
s:='HA,N.G?Z4343HO';
fstr:='';

for i:=0 to length(s)-1 do
begin
if s[i]<>'.' then
fstr:=fstr+s[i];
end;

showmessage('result '+fstr);
end;

[zzlazio]

var
S:string;
I:Integer;
str:string;
begin
S:='HA,N.G?Z4343HO';
str:='';
for I:=1 to Length(S) do
begin
if ( S[I] in ['0'..'9','A'..'Z','a'..'z']) then
Str:=str+S[I];
end;
showmessage(Str);
end;

[JohnHeung]

如果字符串中包含汉字又如何处理？

[darkliu]

定义数组，将标点都列出，循环判断，不是标点Str:=str+S[I];

for I:=1 to Length(S) do
for j:=0 to x do
.....

[ly_liuyang]

用StringReplace处理就最简单的

http://lysoft.7u7.net