【结】资源集里面定义常量怎么不能引用

燕七

资源集里面定义常量怎么不能引用
unit COMMONRES;

interface

uses
  Business.System, Business.Model,Business.Data,Business.Forms,SystemCore;

const
  const_num = 1


这个在另外一个窗体不能引用，会提示说没有定义标识符
我已经在项目中引用啦

lixy

在const上面加个implementation 试试

燕七

unit COMMONRES;

interface

uses
  Business.System, Business.Model,Business.Data,Business.Forms,SystemCore;

const
  const_num = 1

type
  //存储参数的记录
  TParamInfo=Record
    recno:String;
    displayName:String;
    value:String;
    value2:String;
    value3:String;
    sort:String;
    remark:String;
  end;
  //存储套帐信息的记录
  TAccInfo=Record
    userid:String;
    userName:String;
    account:String;
    server:String;
    remark:String;
    connStr:String;
    URL:String;
  end;
  //自定义一个信息和信息处理类 消息内容是一个字符串Msg
  TMyMessage = class(TBizMessage)
  private
    FMsg: String;
  public
    constructor Create(AMsg: String);
    static function Name: String;
    property msg: String read FMsg;
  end;

  //定义消息接收类TMyMessageHandler，重载DoExecute方法，在这个方法中处理消息
  TMyMessageHandler = class(TBizMessageHandler)
  private

  public
    Flabel: TLabel;
    procedure DoExecute(AMessage: TBizMessage; const AParam: THandleParam;
      var Handled: Boolean); override;
  end;

  TCOMMONRES = class(TBizLibrary)
  private
    {private declarations}
  public
    //字符串扩充
    //功能：返回定长字符串，在S左边加上系列字符C，产生长度为Len的字符串。
    //例如 s = '1', C = '0', Len = 10, 则Result ＝ ‘0000000001’
    static function StringOfChar(Ch: Char; Count: Integer): string;
    static function StrToRightLenStr(S: string;C: Char;Len: Integer): string;
    //获取操作人员ID,姓名
    static function GetOperatorID(AContext: TContext): String;
    static function GetOperatorName(AContext: TContext): String;
    //获取帐套信息
    //功能传入参数为人员ID,公共字段 Gaccount，Gserver，Gremark，GconnStr存储查询后的结果
    static function GetAccInfo(AContext: TContext):TAccInfo;
    //根据名称 取 表参数控制JC_PARAM的值
    static function GetParamByName(AConStr:String;AName:String):TParamInfo;
    //初始化窗体的bizImageList
    static procedure iniImageList(vbizImageList:TBizImageList);
    //获取单据号
    static function GetBillNo(ConStr:String;BillID:string):string;
    //取小数位数
    static function ngRound(value:double; decimal: integer): double;
    static function ngRecordCopy(vSourceDS, vDestDS: TDataSet): Boolean;
  end;



implementation

燕七

不行的  把这个CONST放在implementation后面   那岂不是定义这个单元的私有常量

lixy

在资源集的类里写静态方法（用来返回常量）的方式来实现。
当然也可以用参数来实现，就看你自己了

燕七

可以用参数来实现？  怎么实现？业务参数？

lixy

在资源集的类里写静态方法（用来返回常量）的方式来实现。这个简单些。
参数指的是指业务参数

燕七

那你们定义全局变量怎么定义   用静态方法 ?  太麻烦了

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=3492
3楼。
全局的，设置业务参数的隔离级为全局

燕七

type
  TrfidCMD = (rcUnknown, rcEcho, rcLogOn, rcLogOff, rcSetTime, rcSetUser, rcSetLanguage, rcSetPassword, rcLed,
              rcBeep, rcClearScreen, rcTextOut, rcCollectData, rcDeleteData , rcFormatData, rcGetData, rcCancelGet);

const
  rfidCMDCaptions: array [TrfidCMD] of string =
             ('Unknown', 'Echo', 'Log On', 'Log Off', 'Set Time', 'Set User', 'Set Language', 'Set Password', 'Led',
              'Beep', 'Clear Screen', 'Text Out', 'Collect Data', 'Delete Data', 'Format Data', 'Get Data', '');

  rfidCMDFormat: array [TrfidCMD] of string =
             ('', 'No Param', 'Worker No, RFID (234561 3EAF5)', 'No Param', 'YMDHNS (%08%07%15%11%20%10)', 'Worker No (234561)', '%0 - Eng, %1 - GB (%1)', 'Set Password (000000)', 'LED NO, ACT (%1%1)',
              'N, GAP (%03%10)', 'X1Y1X2Y2 (%00%01%10%03)', 'XYDATA (%11%02 TEST)', 'No Param', 'RFID NO (3EC13F)','Format Data','%Timeout in Sec (%6)','No Param');

我向这样定义  要在哪里定义才可以？