delphi 去除右边指定字符
var
  str:string;
begin
  str := 'abcdefghigklmn';
  Delete(str,Length(str)-4,5);
  ShowMessage(str);
end;