delphi 人性化 字符串处理

来源：百度知道 编辑：UC知道 时间：2024/05/02 15:42:01
怎么删除""之间的字符串
比如
"kiss（糖糖"000
"ò`把伱宠坏;"000
"）ㄣ莪aiの她"000
"淘气~~丸子``"000
"腾讯信息管理"000

删除两个"之间的内容呀，使用pos找到两个"的位置，删除既可，例子程序：

var s:string; i,j:integer;
begin
s:='例子"kiss（糖糖"000';
i:=pos('"',s);
s[i]:=#0;
j:=pos('"',s);
delete(s,i,j-i+1);
writeln(s);
end.