字符串的问题

Question

为什么strsql:=LeftStr(Pchar(strsql),StrLen(Pchar(strsql))-4) 去不掉strsql的 最后4个字符?

Answer 1

不明白你为什么要把一个字符串转换成指针,然后做为LeftStr函数的第一个参数

Answer 2

var
  Str : string;
begin
  Str := 'ABCDEFG';
  Str := Copy(Str, 1, Length(Str)-4);
  Showmessage(Str);
end;

Answer 3

方法二:var
  Str : string;
begin
  Str := 'ABCDEFG';
  SetLength(Str, Length(Str)-4);
  Showmessage(Str);
end;

Answer 4

方法三:var
  Str : string;
begin
  Str := 'ABCDEFGHIJK';
  Str[Length(Str)-3] := #0;
  Showmessage(Str);
end;

Answer 5

方法四(你的方法):var
  Str : string;
begin
  Str := 'ABCDEFGHIJK';
  Str := LeftStr(Str, Length(Str)-4);
  Showmessage(Str);
end;以上方法都未经验证,自己试验.