Código Delphi [-] // Coloca esto en un procedimiento y lo llamas al principio de cada botón if (StrToIntDef(Edit2.Text), 0) = 0) then begin MessageDlg('ˇˇˇˇPEDAZO DE CENUTRIO!!!! Cómo vas a dividir por 0.', mtError, [mbOK], 0); Exit; end;
// Coloca esto en un procedimiento y lo llamas al principio de cada botón if (StrToIntDef(Edit2.Text), 0) = 0) then begin MessageDlg('ˇˇˇˇPEDAZO DE CENUTRIO!!!! Cómo vas a dividir por 0.', mtError, [mbOK], 0); Exit; end;