删除最后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中的任何内容,并且非常快速和高效.