Sumar en Delphi Con ListBox

[ecfisa]

Hola Ray16.

Primero la ayuda que pediste:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if (Edit1.Text > '') and (Edit2.Text > '') then // si los edits no estan vacíos
  case ListBox1.ItemIndex of
    0: Panel1.Caption:= FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));
    1:; // Restar
    2:; // Multiplicar
    3:; // Dividir    Ojo con la division por cero !!
  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.