L lmxcyx Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-19 #2 var str:String; posit:Integer; begin str:='it''s'; posit:=Pos('''',Str); while (posit>0) do begin Delete(Str,Posit,1); posit:=Pos('''',Str); end; showmessage(Str); end;
var str:String; posit:Integer; begin str:='it''s'; posit:=Pos('''',Str); while (posit>0) do begin Delete(Str,Posit,1); posit:=Pos('''',Str); end; showmessage(Str); end;
G gcyzyw Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-19 #3 主要是先将字符串中的单引号代替为其它字符,就好说了,就可以引用楼上的方法了
超 超级牛X Unregistered / Unconfirmed GUEST, unregistred user! 2006-06-19 #4 StringReplace(Str,'''','',[rfReplaceAll])
