Inhalte von Edit-Feldern zusammenzählen

[Micha]

Sowas simples weiß bestimmt jemand:


Ich habe zwei Edit-Feldern, in denen Zahlen im Format 00,0 stehen.

Wie kann ich diese in einem dritten Edit-Feld zusammenzählen lassen?

Vielen Dank im Voraus.

[Sharky]

Zitat:

Zitat von Micha

Sowas simples weiß bestimmt jemand:


Ich habe zwei Edit-Feldern, in denen Zahlen im Format 00,0 stehen.

Wie kann ich diese in einem dritten Edit-Feld zusammenzählen lassen?

Vielen Dank im Voraus.

Stichwort:

Text zu Zahl : StrToFloat
Zusammenzählen : +
Zahl zu Text: FloatToStr oder FloatToStrF

:lol:

[Micha]

Oh, sorry.
Des versteh ich jetz nicht ganz.

Ich kenn mich eben in Delphi noch net recht aus.

Meinst du, du kannst es mir nochmal ausführlicher hinschreiben?!
Wär echt super.

Dankeschööön.

[heiopei]

Hallo Micha,

also ich würd des so machen:

Delphi-Quellcode:

...
var
  zahl1, zahl2: Real;
begin
  zahl1 := StrToFloat(Edit1.Text);
  zahl2 := StrToFloat(Edit2.Text);
  Edit3.Text := FloatToStr(zahl1 + zahl2);
end;
...

tschüss,
heiopei

[Micha]

Spitze.

Damit kann ich doch was anfangen.

DANKE.

[Sharky]

Zitat:

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 :D

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.