什么鸟平台
function demo(value:string):string;
const
strEnd :String= '用LENGTH()得到常量的STRING的长度就编译不过去';
begin
result := StringUtils.Copy(value,1,StringUtils.Pos(strEnd,value) - Length(strEnd));
end;
用LENGTH()得到常量的STRING的长度就编译不过去,给个解释。。。
[错误]Biz:\ZHAJ_DS\XTYXK\CQBGA\CREATEREPORT.Library.pas(50, 3): Assertion failure (E:\DEVELOP\TIB3\SRC\COMMONLANGUAGE\Compiler\CLCPascal.pas, line 805)
如果用var定义strEnd变量就可以通过。。。无语了。。。 |