Hola
Ahora lo vamos a hacer mas bonito:
Coloca dos edit, un label, un combobox y un boton.
La propiedad Text del combobox la dejamos en blanco (borrala).
Dale click a la propiedad Items (tString), siempre del combobox, en la pantalla que te sale coloca, uno debajo del otro:
+
-
/
*
Ahora en el boton:
Código Delphi
[-]
var
Num1, num2, total : Integer;
begin
Num1:= StrToInt(Edit1.Text);
Num2:= StrToInt(Edit2.Text);
case ComboBox1.ItemIndex of
0 : begin
Total:= Num1 + Num2;
end;
1 : Begin
Total:= Num1 - Num2;
end;
2 : Begin
Total:= Num1 Div Num2;
end;
3 : Begin
Total:= Num1 * Num2;
end;
end;
Label1.Caption:= IntToStr(Total);
end;
Listo.
Esto es para numeros enteros si se quieren decimales las variables tienen que ser REAL y en vez de StrToIn, StrToFloat, ademas de FloatToStr en el caption.
Saludos