Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Taschenrechner: Negative zahlen.
LastRide - So 15.06.08 13:15
Titel: Taschenrechner: Negative zahlen.
Momentan stehe ich jedoch vor einem anderen Problem und zwar ist die Eingabe von negativen Zahlen nicht mehr möglich da für die Taste ja auch die Subtraktionsfunktion aufbaut ich hoffe jemand weiß Rat wie ich es schaffe ein - in mein Edit Feld zu bekommen.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| begin
If (Edit2.Text='') then
Edit2.Text := ('-')
else
Edit1.Text := Edit2.Text;
Edit3.Text := ('-');
Edit2.Text := (''); |
MfG LastRide
Dunkel - So 15.06.08 13:30
Titel: Re: Taschenrechner: Negative zahlen.
Hallo!
Spontan würde ich auf einen fehlenden Begin-End-Block tippen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| If (Edit2.Text='') then
Edit2.Text := ('-')
else
begin
Edit1.Text := Edit2.Text;
Edit3.Text := ('-');
Edit2.Text := ('');
end; |
LastRide - So 15.06.08 13:35
Hi,
Ja das war schonmal zum beseitigen des ersten Problems jedoch wenn ich dann zweimal Hintereinander den Button drücke habe ich in meinem "Zwischenspeicher" jeweils ein Minus gibt es da irgendeinen Trick das das nicht passiert ?
MfG LastRide
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!