Taschenrechner: Negative zahlen.

LastRide · Beiträge: 47

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.

markieren

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 · Beiträge: 682 Mac OS X Snow Leopard Xcode 3.1

Hallo!

Spontan würde ich auf einen fehlenden Begin-End-Block tippen:

markieren

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;

_________________
Ich streite einsam mich mit dieser Oberflächenwelt
Gutes sei ein löblich Brot von dem ich zehre - bis zum Tod [Das Ich - Im Ich]

LastRide · Beiträge: 47

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme