删除最后5个字符

Question

如何从字符串中删除最后5个字符？

procedure TForm1.Button15Click(Sender: TObject);
var
str:string;
begin
str:='012345678911234567892223456789';
showmessage(str);
end;

提前致谢

Answer 1

绝对最简单的方式，开销最小：

str := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
ShowMessage(str);
SetLength(str, Length(str) - 5);
ShowMessage(str);

这不涉及临时字符串的分配，不能访问浪费CPU时间的RTL中的任何内容，并且非常快速和高效。

Answer 2

使用stringhelper例程（虽然在D7中不可用）：

ShowMessage(str.Substring(0,str.Length-5));

在使用StrUtils单元的D7中：

ShowMessage(LeftStr(str,Length(str)-5));

Answer 3

一种方法是

str:= copy (str, 1, length (str) - 5)

另一个是

delete (str, length (str) - 4, 5)