【结贴】删除字符串**

crskyp · 发表于 2007-8-21 13:55:12

删除一个字符串中的某一个子串,用那个函数

lisb · 发表于 2007-8-21 14:02:26

StringUtils = class(System.Object)
public
  static function Copy(S: string; Index: Longint; Count: Longint): string;
  static function CopyAnsi(S: string; Index: Longint; Count: Longint): string;
static procedure Delete(S: string; Index: Longint; Count: Longint);
  static procedure DeleteAnsi(S: string; Index: Longint; Count: Longint);
  static function Pos(SubStr: string; S: string): Longint;
  static function PosAnsi(SubStr: string; S: string): Longint;
  static function PosIgnoreCase(SubStr: string; S: string): Longint;
end;

crskyp · 发表于 2007-8-21 14:05:36

如果,我没法确定这个子串的位置呢?

jiahaiminghr · 发表于 2007-8-21 14:20:58

tatic function Pos(SubStr: string; S: string): Longint;

crskyp · 发表于 2007-8-21 15:03:35

Business.System .StringReplace(S: string; OldPattern: string; NewPattern: string; Flags: TReplaceFlags): string
Flags: TReplaceFlags 这个Flags这个值怎么得到,

crskyp · 发表于 2007-8-21 15:35:16

快快帮忙解决.
我想用 rfReplaceAll 参数

yancm · 发表于 2007-8-21 16:17:45

Flags: TReplaceFlags 这个Flags这个值怎么得到,
自己设。
分两种取值。rfReplaceAll, rfIgnoreCase
这些在delphi帮助或者studio help中都可以查到。楼主以后碰到问题可以先在帮助中找一下。

crskyp · 发表于 2007-8-21 16:25:49

不是的,如果直接写rfReplaceAll,平台不认,
如果写成business.System.TReplaceFlagsEnum.rfReplaceAll
它核Flags不是一个类型的,编译出错.

lisb · 发表于 2007-8-21 16:41:33

procedure TMainForm.Button5Click(Sender: TObject);
var
  xm : string;
begin
  xm := '123abc456efg123 ';
  xm := SysUtils.StringReplace(xm, '123', '000', [TReplaceFlagsEnum.rfReplaceAll]);
  //或 xm := xm.Replace('123','000');
  dialogs.ShowMessage(xm);

end;

crskyp · 发表于 2007-8-21 16:57:43

我知道怎么回事啦,谢谢了.

		自动登录	找回密码
密码			立即注册