如何清除字符串的标点？

Question

任意字符串，去掉其中的标点，只保留内容？

Answer 1

function filterstr(posstr,str:string):string;
var
  i:integer;
  str1:string;
begin
  for i:=1 to length(str) do
  begin
     if str[i]<>posstr[1] then
        str1:=str1+str[i];
  end;
  result:=str1;
end;
用递归调该函数，就可以把你想去的标点都去掉

Answer 2

procedure ChangeStr(var Astring : string;tempchar : char);
var
  i : integer;
  tempstr : string;
begin
  tempstr := '';
  i := 1;
  while i <= length(Astring) do
  begin
    if Astring[i] <> tempchar then
      tempstr := tempstr + Astring[i]
    else
      tempstr := tempstr + ' ';
    inc(i);
  end;
  Astring := tempstr;
end;

Answer 3

可以将Tempchar 替换为空格！当然也可以为空！也可以为任何东东！只要你乐意！

Answer 4

晕死了，大家没有想一下判断ascii码值吗？我想标点是在一个范围内的？