[ecfisa]

Empezado por Ray16

Otra cosa lo hice con un ComboBox y me funciona, como aplicaria la validacion al dividir entre cero

como adjuntaria ete codigo
if (numero2=0) then
begin
ShowMessage('Error Al Dividir entre cero');

end
else
begin
hacer division


Mil gracias

Hola Ray.

Exacto, vos mismo te diste la respuesta, una forma de hacerlo podría ser:

Código Delphi [-]
3: if StrToFloat(Edit2.Text) > 0 then
      edit3.Text:= floattostr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text))
    else
    begin
       ShowMessage('Error. División por cero');
       Edit2.SetFocus;
    end;

Es igual hacerlo con la comprobación inversa tál como lo pusiste en el pseudocódigo: if StrToFloat(Edit2.Text) = 0 then,
solamente cambia el órden de las acciones.


Saludos.