Summe von Editfelder für Addition

[Sharky]

Hai omega,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS".

Ich habe das eben mal mit diesem Code gelöst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  e4,
  e5,
  e6,
  e7,
  e8  : Integer;
  summe : Integer;
  zahl1,
  zahl2 : Integer;
begin
  try
    zahl1 := StrToInt (Edit2.Text);
    zahl2 := StrToInt (Edit3.Text);
    e4 := StrToInt (Edit4.Text) * 10000;
    e5 := StrToInt (Edit5.Text) *  1000;
    e6 := StrToInt (Edit6.Text) *   100;
    e7 := StrToInt (Edit7.Text) *    10;
    e8 := StrToInt (Edit8.Text) *     1;
    summe := e4 + e5 + e6 + e7 + e8;
    if (summe = (zahl1 + zahl2)) then
    begin
      ShowMessage ('Richtig');
    end
    else
    begin
      ShowMessage ('Falsch');
    end;
  except
      ShowMessage ('Fehler bei der Eingabe');
  end;
end;