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 单元下的公用函数目录
举例:
转载于:https://www.cnblogs.com/del/archive/2008/03/31/1131820.html