怎么把一个字符串是的多个‘,’去掉 for i:=1 to length(w) dobegin if w[i]=',' then Move(w[i+1]^,w[i],length(w)-i);end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 i:integer;i:=Pos(W,',');while i<>-1 dobegin Delete(w,i,i); i:=Pos(w,',');end; w := StringReplace(w, ',', '', [rfReplaceAll]); 错了i:integer;i:=Pos(W,',');while i<>-1 dobegin Delete(w,i,1); i:=Pos(w,',');end; delpphi实时监控数据库 Delphi的WinHttp控件的用法 远程播放语音的问题 delphi7打开和关闭时报"I/O error 103"为什么啊? QuickReport 怎么可以控制每页的显示数量? 还是关于报表的问题(FastReport)如何让用户自行调整报表的边距? 关于函数声明 func(var ptr: PType)里 的var 请教各位高手 请问在一个Form中打开另一个Form的方法以及需要传递参数时怎么办? delphi的问题(急........) Delphi 6 的 patch 出了 !!!!!!! 怎样缩短Socket连接的时间? 小小虾请教一个很笨的问题
while i<>-1 do
begin
Delete(w,i,i);
i:=Pos(w,',');
end;
i:integer;i:=Pos(W,',');
while i<>-1 do
begin
Delete(w,i,1);
i:=Pos(w,',');
end;