Topic: число кратное трём
здравейте,моля за помощ как да съставя формулата:
procedure CalculateTotal50;
begin
if ValidFloat(frmZakaz.edZ.Text) then
begin
frmZakaz.edtotal.Text := StrToFloat(frmZak.edZ.Text) -2;
if (frmZakaz.edtotal.text) * число кратное трём =0 then frmZakaz.edtotal.visible := False;
if (frmZakaz.edtotal.text) * число кратное трём <>0 then frmZakaz.edtotal.visible := True;
end;