Cita:
Empezado por Ray16
Un millon de gracias, lo he hecho con numeros reales en vez de entero
lo tengo de esta forma y funcionan todas las operaciones...
if (Edit1.Text > '') and (Edit2.Text > '') then // Esto me limpiara los edit
case ListBox1.ItemIndex of
0: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
1: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
2: edit3.Text:= floattostr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
3: ;
solo me falta la división cuando la pongo me da error, me lo marca en rojo
si lo ponga de esta forma : incluyendo la division...
if (Edit1.Text > '') and (Edit2.Text > '') then // Esto me limpiara los edit
case ListBox1.ItemIndex of
0: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
1: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
2: edit3.Text:= floattostr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
3: edit3.Text:= floattostr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
me marca esta ultima linea en rojo, y para la division por cero quiero validarlo de esta forma.
if (numero2=0) then
begin
ShowMessage('Error Al Dividir entre cero');
end
else
begin
hacer la division.
Gracias por la ayuda Ecfisa, pude hacer las operaciones, ahora solo falta la division...
Gracias!,
|
Otra cosa lo hice con un ComboBox y me funciona, como aplicaria la validacion al dividir entre cero
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (Edit1.Text > '') and (Edit2.Text > '') then // Esto me limpiara los edit
case ComboBox1.ItemIndex of
0: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text));
1: edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)-StrToFloat(Edit2.Text));
2: edit3.Text:= floattostr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
3: edit3.Text:= floattostr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
como adjuntaria ete codigo
if (numero2=0) then
begin
ShowMessage('Error Al Dividir entre cero');
end
else
begin
hacer division
Mil gracias