删除字符, ( 积分: 100 )

A

anchony

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-20

• #1

字符串=1;2;3;4<br>删除所有;号,最后变成<br>字符串=1234<br>如何实现?

 

L

lngdtommy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-20

• #2

function&nbsp;DeleteString(MyString:String):String;<br>var&nbsp;<br>&nbsp;&nbsp;I:&nbsp;Integer;<br>begin<br>&nbsp;&nbsp;Result&nbsp;:=&nbsp;'';<br>&nbsp;&nbsp;I&nbsp;:=&nbsp;Length(MyString);<br>&nbsp;&nbsp;while&nbsp;I&nbsp;&gt;&nbsp;0&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;MyString&nbsp;&lt;&gt;&nbsp;':'&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;Result&nbsp;+&nbsp;MyString;<br>&nbsp;&nbsp;&nbsp;&nbsp;I&nbsp;:=&nbsp;I&nbsp;-&nbsp;1;<br>&nbsp;&nbsp;end;<br>&nbsp;&nbsp;if&nbsp;pos(':',MyString)&nbsp;=&nbsp;0&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;MyString;<br>end;

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-20

• #3

uses&nbsp;StrUtils;<br><br>str:='1;2;3;4';<br>AnsiReplaceStr(str,';','');

 

S

snail2233

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-20

• #4

var&nbsp;s:string<br>&nbsp;&nbsp;&nbsp;&nbsp;i:integer;<br>begin<br>&nbsp;&nbsp;s:='';<br>&nbsp;&nbsp;for&nbsp;i:=1&nbsp;to&nbsp;Length(MyString)&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;MyString&lt;&gt;&nbsp;';'&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;s:=s+MyString;<br>&nbsp;&nbsp;//最后的S就是你想要的<br>end;

 

S

SFG

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-20

• #5

用这个&nbsp;AnsiReplaceStr(strValue,';','');&nbsp;&nbsp;不用自己写也快