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}