Inhalte von Edit-Feldern zusammenzählen

[Sharky]

Zitat von Micha:

....Ich kenn mich eben in Delphi noch net recht aus.
....

Ein Blick in die OH sollte da aber helfen.

Aber gut, ich bin ja nicht so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wert1,
  wert2,
  wert3 : Extended;

begin
  wert1 := 0;
  wert2 := 0;
  if (Edit1.Text<> '') then  // Zur sicherheit testen ob im Edit etwas steht.
   begin
    wert1 := StrToFloat (Edit1.Text);
   end;
  if (Edit2.Text<> '') then
   begin
    wert2 := StrToFloat (Edit2.Text);
   end;
  wert3 := wert1 +  wert2;
  Edit3.Text := FloatToStr (wert3);
end;

Hier gibt es natürlich jede Menge Fehlerquellen. Der Anwender kann in das Edit ja auch Text schreiben.

Also, entweder nimmst Du ein MASK-EDIT oder Du beschränkst die Eingabe auf Ziffern und das Dezimaltrennzeichen. Wie das geht findest Du hier im Forum mit der Suchfunktion.