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://my.oschina.net/hermer/blog/319655