【结贴】怎么使用除法这个函数啊！！

bfaomei · 发表于 2009-7-21 14:22:07

i，j ：integer；
在代码中写 i / j 报错是不是在代码中有专门的函数处理除法运算啊！！

shangxy · 发表于 2009-7-21 14:31:56

i div j 整除
i mod j 取余

bfaomei · 发表于 2009-7-21 14:41:17

DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('SPEED').AsFloat= i div j; 不对啊总是报下面的错：[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 85): line 1376: unexpected token: =
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 87): line 1376: expecting "end", found 'i'
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 89): line 1376: unexpected token: div
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 93): line 1376: expecting "end", found 'j'
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1380, 13): line 1380: expecting '.', found ';'

shangxy · 发表于 2009-7-21 14:53:13

DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('SPEED').AsFloat := i / j;

bfaomei · 发表于 2009-7-21 14:57:00

这样也不行啊

shangxy · 发表于 2009-7-21 14:57:34

把错误贴出来看看，你得贴错误啊

bfaomei · 发表于 2009-7-21 14:58:04

[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 85): line 1376: unexpected token: =
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 87): line 1376: expecting "end", found 'i'
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 89): line 1376: unexpected token: /
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1376, 91): line 1376: expecting "end", found 'j'
[错误]Biz:\HR\SALES_REVIEW\SALES_REVIEW_INFO.INFO.DIR\SALES_REVIEW_DOC.FormDoc.pas(1380, 13): line 1380: expecting '.', found ';'

shangxy · 发表于 2009-7-21 14:58:51

贴这段的完整代码

bfaomei · 发表于 2009-7-21 15:01:50

if (FuncBroker.Func.ID <>'SALES_REVIEW_APPLY') then
      begin
      IF  DataSetBrokerEMPLOYEE_REVIEW_REQ_DTS.DataSet.Active =false then
         begin
               DataSetBrokerEMPLOYEE_REVIEW_REQ_DTS.DataSet.Open;
         end;
         if (not DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('userid').IsNull) and (not DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_1').IsNull) and (not DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_2').IsNull) and (not DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_3').IsNull) and (not DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_4').IsNull) and (not DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_5').IsNull) and (not DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_6').IsNull) then
         begin
               sQuery.Close;
               sQuery.CommandText:='SELECT USERID, AMT_TRAIL1, AMT_TRAIL2, AMT_TRAIL3, AMT_TRAIL4, AMT_TRAIL5, AMT_TRAIL6, THRIRD_QTY, SECOND_QTY, DEEP_QTY FROM STAFF_ADJUST WHERE STAFF_ADJUST.AUDIT_RESULT = ''同意'' AND STAFF_ADJUST.ADJ_TYPE = ''入职'''+' and userid='+DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('userid').AsString;
               sQuery.Open;
               i:=sQuery.FieldByName('AMT_TRAIL1').AsInteger
               +sQuery.FieldByName('AMT_TRAIL2').AsInteger
               +sQuery.FieldByName('AMT_TRAIL3').AsInteger
               +sQuery.FieldByName('AMT_TRAIL4').AsInteger
               +sQuery.FieldByName('AMT_TRAIL5').AsInteger
               +sQuery.FieldByName('AMT_TRAIL6').AsInteger;
               j:= DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_1').AsInteger
               +DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_2').AsInteger
               +DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_3').AsInteger
               +DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_4').AsInteger
               +DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_5').AsInteger
               +DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('ACT_INDEX_6').AsInteger ;
               //sQuery.FieldByName('THRIRD_QTY').AsInteger
               // +sQuery.FieldByName('SECOND_QTY').AsInteger
               // +sQuery.FieldByName('DEEP_QTY').AsInteger;
               DataSetBrokerSALES_REVIEW_DTM.DataSet.FieldByName('SPEED').AsFloat= i / j;
            // jsDialogs.ShowMsg(i.ToString,'');
            // jsDialogs.ShowMsg(j.ToString,'');
         end;
      end;

shangxy · 发表于 2009-7-21 15:06:08

冒号呢？

		自动登录	找回密码
密码			立即注册