system单元的几个字符串处理方法

system单元的几个字符串处理方法

1.insert方法
var
  ss,s: WideString;
begin
  ss := '万一的博客';
  s := ' Delphi ';
  Insert(s, ss, 4);
  ShowMessage(ss);  {万一的 Delphi 博客}
end;

2.delete方法
var
  s: string;
begin
  s := 'Delphi 2007';
  Delete(s, 2, 4);
  ShowMessage(s); {Di 2007}
end;

3.copy方法
var
  ss,s: string;
begin
  ss := 'CodeGear Delphi 2007';
  s := Copy(ss,5,4);
  ShowMessage(s);   {Gear}
end;

4.pos方法
var
  ss,s: string;
  i: Integer;
begin
  ss := 'CodeGear Delphi 2007';
  s := 'Gear';
  i := Pos(s,ss);
  ShowMessage(IntToStr(i));  {5}