有一个字符串,长度未知,要去掉字符串最后一个字符该怎么做????

Question

SetLength(Str,Length(Str)-1);
Str := Copy(Str, 1, Length(Str) -1)

Answer 1

用length函数可以返回字符串长度

Answer 2

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

Answer 3

能不能不用copy函数,用copy函数我知道怎么做就是觉得有点麻烦,所以想找其他的方法!简单点的!

Answer 4

有没有不用copy的函数,用copy我知道怎么做就是嫌麻烦才问这个问题的!

Answer 5

delete ,还有上面用的SetLength将字符长度重新更改。

Answer 6

可以用函数Delete(var S: string; Index, Count:Integer);

Answer 7

s,str,laststr:string;//s 未知长度的字符串
i:integer;
.....
begin
  str:=s;
  for i:=1 to length(str)-1 do
   laststr:=laststr+str[i];
end;
   
  

Answer 8

笨到家了我：P
var
s,laststr:string;//s 未知长度的字符串
i:integer;
.....
begin
  for i:=1 to length(s)-1 do
  laststr:=laststr+s[i];
end;

Answer 9

如copy_paste(paste)所说地那样
SetLength(Str,Length(Str)-1);不就可以了嘛！

Answer 10

就这：
a:=copy(b,1,length(b)-1);

Answer 11

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