Question

Delphi 字符串去掉最后一个字符

如何去掉最后一个字符

Answer 1

var
s : string;
begin
s := '1234567890';

caption := copy(s, 1, Length(s)-1);

end;
// 或者

var
s : string;
begin
s := '1234567890';
delete(s, Length(s),1);

// s = 123456789
caption := s;

end;

Answer 2

delete(str,length(str),1)

Answer 3

vstr:=copy(vstr,1,length(vstr)-1)