Hola Ray16.
Primero la ayuda que pediste:
Código Delphi
[-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if (Edit1.Text > '') and (Edit2.Text > '') then case ListBox1.ItemIndex of
0: Panel1.Caption:= FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));
1:; 2:; 3:; end;
end;
Segundo este código no hace ninguna comprobación de conversión. O sea que si pones '15' en el primer edit
y 'abc' en el segundo, cuando realize la operación te dará error.
También podrias agregar un else poniendo un mensaje de advertencia si algún edit esta vacío... queda en tus manos.
Nota: Si alterás el orden del ListBox (suma,resta, multiplicación, división) respetá el nuevo órden en la evaluación del case/of,
si no podría suceder que 2 x 1 sea igual a 3...
Saludos.