StrUtils.LeftStr、StrUtils.RightStr - 提取左右字符串

举例:

---

var
  ss,s: string;
begin
  ss := 'CodeGear Delphi 2007';
  s := RightStr(ss,4);
  ShowMessage(s);  {2007}

  s := LeftStr(ss,4);
  ShowMessage(s);  {Code}
end;

StrUtils 单元下的公用函数目录

---