Programa de Matematicas

[[egostar]]

Empezado por Caral

He cambiado el codigo de egostar en el caso del Case Of por if then y funciona, no se la razon ?.

Bueno, el asunto de porque la suma no funciona correctamente es porque al inicio el ComboBox3.ItemIndex tiene un valor de -1, como no has cambiado el ComboBox3.Text este valor no lo reconoce como 0 que en realidad es el ItemIndex de Sumar, lo que hice es lo siguiente:

Código Delphi [-]
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  ComboBox3.ItemIndex := 0; // esto inicializa el combobox3 a 0
  TabSheet2.Caption:= 'Practicas de Sumas';
end;

Con esto ya debe de funcionar como lo soñe

Saludos