cjzh:=strtoint(VarToStr(adoqu_js.fieldvalues['cj']));

解决方案 »

  1.   

    var cjlx:string;
        cjzh,ms,zms:integer;
         
       while not Eof do
             begin
                   cjlx:=adoqu_js.fieldvalues['cj'];
                  if (cjlx='A') or (cjlx='P') then
                       begin
                       cjzh:=0;
                       ms:=0;
                        end
                   else
                   begin
                    ms:=1;
                   cjzh:=StrToInt(TRIM(adoqu_js.fieldvalues['cj'])); //
                   end;
                   zms:=zms+ms;
                   zcj:=zcj+cjzh;
                  adoqu_js.Next;
              end;
              edit2.Text := inttostr(zcj);
      

  2.   

    var cjlx:string;
        cjzh,ms,zms:integer;
         
       while not Eof do
             begin
                   cjlx:=adoqu_js.fieldvalues['cj'];
                  if (cjlx='A') or (cjlx='P') then
                       begin
                       cjzh:=0;
                       ms:=0;
                        end
                   else
                   begin
                    ms:=1;
                   cjzh:=StrToInt(TRIM(adoqu_js.fieldvalues['cj'])); //
                   end;
                   zms:=zms+ms;
                   zcj:=zcj+cjzh;
                  adoqu_js.Next;
              end;
              edit2.Text := inttostr(zcj);