comparar con el mod
 

Hola, soy inexperto en esto del delphi, y tengo una duda, tengo el siguiente código:

Código Delphi [-]
Case cmbalarma.ItemIndex of
0: if ((strtoint(edtcronometro.Text) mod spnalarma.Value)=0) then
 begin
 //suena la alarma
  windows.Beep(200,200);
 end;
1: if (strtoint(edtcronometro.text)>=(60*spnalarma.Value)) then
begin
if ((strtoint(edtcronometro.Text) mod spnalarma.Value)=0) then
 begin
 //suena la alarma
  windows.Beep(200,200);
 end;
end;
end;

El programa consiste en que tengo un edit, y hago que en el evento on change de dicho edit, cada vez que me cambia el valor me compare a ver si en la división del edit entre el spinedit si el resto me da 0 que me haga un sonido

El problema está en que me hace exactamente lo mismo en una que en otra opción

Ejemplo: si el spinedit es un 3 y en el edit pone 3, 6, 9, 12... me sonará en caso de que sea el item del combobox sea 0
si el spinedit pone 3, pero el item del combobox es 0, deberá sonar cuando en el edit ponga 180, 180*2, 180*3...

espero que alguien me pueda ayudar, GRACIAS :rolleyes:

En este cáso esta utilizando el operador aritmético mod (módulo / resto / residuo), para saber si un número es múltiplo de otro, simplemente averiguando si el resto es 0.
Sabemos que 4 es múltiplo de 2 porque 4 / 2 no deja residuo pero 5 / 2 si deja 1 de resto.

Saludos!