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!,