首页 | 文章资讯 | 最近更新
   
您当前的位置: 白叶荣下载站_破解软件_游戏攻略_手机软件文章资讯编程技巧Delphi → 文章内容

vRet字符型量代码

 if(vRet = TRUE) then
        begin
          Total := Total +1;
          item := lvData.Items.Add;
          temp := format('%d', [vTMachineNumber]);
          item.Caption := temp;
          temp := format('%d', [vSEnrollNumber]);
          item.SubItems.Add( temp );
          temp := format('%d', [vSMachineNumber]);
          item.SubItems.Add( temp );
          temp := format('%d', [vGEnrollNumber]);
          item.SubItems.Add( temp );
          temp := format('%d', [vGMachineNumber]);
          item.SubItems.Add( temp );
          case vManipulation of
            1..3: temp := format('%d -- Enroll User', [vManipulation]);
            4: temp := format('%d -- Enroll Manager', [vManipulation]);
            5: temp := format('%d -- Delete Fp Data', [vManipulation]);
            6: temp := format('%d -- Delete Password', [vManipulation]);
            7: temp := format('%d -- Delete All LogData', [vManipulation]);
            8: temp := format('%d -- Modify System Info', [vManipulation]);
            9: temp := format('%d -- Modify System Time', [vManipulation]);
            10: temp := format('%d -- Modify Log Setting', [vManipulation]);
            11: temp := format('%d -- Modify Comm Setting', [vManipulation]);

[] [返回上一页]
相关文章
- - 联系我们 - 下载说明 - 友情连接 - 网站地图