【搞定】编号自增问题

zhanghaifeng

我想自己设一个参数，代码如下
procedure TBFDNUMBERPARAMS.ParamZDBHGetValue(Sender: TObject; var Value: Variant);
var  mm :string;
begin
  mm := IntToStr(yearof(Date()))+IntToStr(monthof(date()));
  value:=TcommonUtils.GetAutoIncreaseID(Self.Context,
  TBizParam(Sender).ID+mm, TBizParam(Sender).DisplayName);
  //可根据需要定制VALUE的格式
Value := mm+TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 10)
End;
　　在编译的时候报这样的错误
[错误]Biz:\OPERATION\COMMONFOLDER\COMMONPARAMFOLDER\BFDNUMBERPARAMS.PARAMGROUP.PAS(101, 9): Undeclared identifier "IntToStr"
帮忙看一下，我是初学的．怎么是未申明的标识符啊，

lixy

sysutils.inttostr

zhanghaifeng

[错误]Biz:\OPERATION\COMMONFOLDER\COMMONPARAMFOLDER\BFDNUMBERPARAMS.PARAMGROUP.PAS(101, 27): Undeclared identifier "year"

zhanghaifeng

又出现了这样的错误．误工

lixy

你在帮助里搜索year，看看属于什么空间的。

lixy

NameSpace: Business.System    ClassDelcare: Business.System.DateUtils
--------------------------------------------------------------------------------
static function YearOf(AValue: Double): Word;

System.DateUtils.yearof

zhanghaifeng

问题解决了，可以结贴了．