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

[解决办法]
var
Str : string;
begin
Str := 'ABCDEFG ';
Str := Copy(Str, 1, Length(Str)-4);
Showmessage(Str);
end;