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);
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);
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);
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);