Bin rechter Anfänger und hab ein Problem.
Über einen Button, der seinen Preis über eine Paradox-Datenbank bekommt soll dieser einen Preis zu der Variable "summe_bestellung" addieren, und mit dem Label anzeigen.
Bis dahin finzt es auch, nun soll man durch einen 2ten Button (Panel) das ganze durch Klick schrittweise wieder rückgängig machen können, funzt auch ... NUR ... funzt es nur mit Zahlen wie 1,00 oder 0,50 bei z.B. 0,80 zeigt mir das Panel beim Abziehen nicht o sondern 4,43980789632814E-14
an wer kann mir bitte helfen ?!
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:
| var
getr : String;
procedure TFrame4.Button1Click(Sender: TObject);
begin
// summe_bestellung + B1preis
getr := Table1.FieldByName('B1preis').AsString;
summe_bestellung := summe_bestellung + StrtoFloat(getr);
Form7.Label12.caption := FloatToStr(summe_bestellung);
// zähler Panel
AnzB1 := AnzB1 + 1;
Panel1.Caption := IntToStr(AnzB1);
If AnzB1 > 0 then
Panel1.Enabled := true ;
end;
procedure TFrame4.Panel1Click(Sender: TObject);
begin
// Preis wieder abziehen
summe_bestellung := summe_bestellung - StrtoFloat(getr);
Form7.Label12.caption := FloatToStr(summe_bestellung);
AnzB1 := AnzB1 - 1;
Panel1.Caption := IntToStr(AnzB1);
if AnzB1 <= 0 then
Panel1.Enabled := false;
end; |
(12.11.02 09:35 Tino) Code-Tags hinzugefügt.
