请问如何在一个串中删除一个子串? ( 积分: 50 )

  • 主题发起人 主题发起人 sgxz2000
  • 开始时间 开始时间
S

sgxz2000

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何在一个串中删除一个子串?例如在串ssddssas中删除子串dd!
 
请问如何在一个串中删除一个子串?例如在串ssddssas中删除子串dd!
 
var
s:string;
subs:string;
begin
s:='ssddssas';
subs:='dd';
s:=stringreplace(s,subs,'',[rfReplaceAll]);//你如只删除第一个匹配的子串,那么改最后那个参数就可以了
end;
 
Edit1.Text := StringReplace('ssddssas', 'dd', '', [rfReplaceAll]);
 
var
s:string;
subs:string;
begin
s:='ssddssas';
subs:='dd';
Delete(s,pos(subs,s),Length(subs));
Edit1.Text:=s;
 
oiwin的方法更好些
 
就是,使用delete函数,如果是插入的话用insert。在delphi的帮助中,可以找到这两个函数的具体表述。我刚刚写了个程序,就是用insert转换的。
 
只要不是很大的文本 hongxing_dl更简便
 
都是高手
没说的。
 
后退
顶部