代码如下,你只需把要去掉的标点符号加入到str1中,利用下面的方法进行判定,结果保存
在str2中
procedure TForm1.Button1Click(Sender: TObject);
var
str,str1,str2:string;
i:integer;
begin
str:='i?love;delphi.are you?';
str1:='?;.';
str2:='';
for i:=1 to length(str)do
if not isdelimiter(str1,str,i) then
str2:=str2+str;
showmessage(str2);
end;