Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Edit felder addieren
Becks16 - Do 19.10.06 18:58
Titel: Edit felder addieren
hallo
habe da ein problem
und zwar möchte ich mehrere editfelder addieren funktioniert ja auch aber wenn mal in einem editfeld nichts drin ist funktioniert das nicht ...bekommt man das irgendwie hin das er trotzdem rechnet aber im editfeld soll er nix rein schreiben keine 0 oder so
hier mal der quelltext
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| procedure Tf_kachelkamin.btn_berechnenClick(Sender: TObject);
var a, b,d,e,f, c: real;
begin
a := StrToFloat(edit_preis.Text);
b := StrToFloat(edit_preiskachelkamin.Text);
d := StrToFloat(edit_preisschuerzen.Text);
e := StrToFloat(edit_preisregale.Text);
f := StrToFloat(edit_preisregale2.Text);
c := a+b+d+e+f;
edit_listenpreisgesamt.Text := FloatToStr(c);
if edit_verkaufspreis.Text = '' then ShowMessage ('Es ist nichts zu berechnen da ')
else begin
a := StrToFloat(edit_listenpreisgesamt.Text);
b := StrToFloat(edit_verkaufspreis.Text);
c := b*100/a-100;
edit_rabatt.Text := FloatToStr(c);
a := StrToFloat(edit_listenpreisgesamt.Text);
b := StrToFloat(edit_verkaufspreis.Text);
c := b-a;
edit_rabattgeld.Text := FloatToStr(c);
end;
end; |
vielen dank schon mal
mfg
Chatfix - Do 19.10.06 19:01
Mach doch eine if-abfrage für jedes Eingabefeld...
Marco D. - Do 19.10.06 19:02
Du prüfst ja auch nicht, ob die Edits alle leer sind. Du hast schon eine Abfrage drin:
Delphi-Quelltext
1:
| if edit_verkaufspreis.Text = '' then ... |
Genauso machst du das beim vor dem Einlesen der Werte (a := strtofloat(...)).
Becks16 - Do 19.10.06 19:11
ich hab das jetzt so
funktioniert aber nicht
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
| procedure Tf_kachelkamin.btn_berechnenClick(Sender: TObject);
var a, b,d,e,f, c: real;
begin
if edit_preis.Text = ''then begin
b := StrToFloat(edit_preiskachelkamin.Text);
d := StrToFloat(edit_preisschuerzen.Text);
e := StrToFloat(edit_preisregale.Text);
f := StrToFloat(edit_preisregale2.Text);
c := b+d+e+f;
edit_listenpreisgesamt.Text := FloatToStr(c);
end;
begin
a := StrToFloat(edit_preis.Text);
b := StrToFloat(edit_preiskachelkamin.Text);
d := StrToFloat(edit_preisschuerzen.Text);
e := StrToFloat(edit_preisregale.Text);
f := StrToFloat(edit_preisregale2.Text);
c := a+b+d+e+f;
edit_listenpreisgesamt.Text := FloatToStr(c);
if edit_verkaufspreis.Text = '' then ShowMessage ('Es ist nichts zu berechnen da ')
else begin
a := StrToFloat(edit_listenpreisgesamt.Text);
b := StrToFloat(edit_verkaufspreis.Text);
c := b*100/a-100;
edit_rabatt.Text := FloatToStr(c);
a := StrToFloat(edit_listenpreisgesamt.Text);
b := StrToFloat(edit_verkaufspreis.Text);
c := b-a;
edit_rabattgeld.Text := FloatToStr(c);
end;
end;
end; |
mfg
stifflersmom - Do 19.10.06 19:42
Die ganze Routine wird Dir wohl keiner schreiben,
aber wenn Du die folgenden Zeilen mal auf Deinen Code überträgst wirst Du es wohl selber hinkriegen
Delphi-Quelltext
1:
2:
3:
| if edit_preiskachelkamin.Text <> '' Then
b := StrToFloat(edit_preiskachelkamin.Text)
else b:=0; |
Moin
Becks16 - Do 19.10.06 19:58
hmmm krieg ich nicht hin dazu bin ich zu blöd
Marco D. - Do 19.10.06 19:59
 Becks16 hat folgendes geschrieben: |
| hmmm krieg ich nicht hin dazu bin ich zu blöd |
:mrgreen:
Poste mal, was du bis jetzt hast. Und hole dir mal ein Buch über Delphi. Oder schaue dir mal Christian's Crashkurs an. Bei dir mangelt es arg an den Grundlagen. ;)
Becks16 - Do 19.10.06 20:02
hier ist das hmm habe es erst mal aus einer anderen form genommen wo erst mal nur 2 felder sind
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure Tf_schornstein.btn_berechnenClick(Sender: TObject);
var a, b,d,e,f, c: real;
begin
if edit_preisschornstein.Text <> '' Then
a := StrToFloat(edit_preisschornstein.Text)
else a:=0;
b := StrToFloat(Edit1.Text);
c := b;
edit_listenpreisgesamt.Text := FloatToStr(c);
a := StrToFloat(edit_preisschornstein.Text);
b := StrToFloat(Edit1.Text);
c := a+b;
edit_listenpreisgesamt.Text := FloatToStr(c); |
Becks16 - Fr 20.10.06 09:05
so ich habe das jetzt hin bekommen
müsste so richtig sein also funktionieren tut das
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| if edit_preisschornstein.Text <> '' Then
a := StrToFloat(edit_preisschornstein.Text)
else a:=0;
if Edit1.Text <> '' Then
b := StrToFloat(Edit1.Text)
else b:=0;
c := a+b;
edit_listenpreisgesamt.Text := FloatToStr(c); |
mfg
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!