Einzelnen Beitrag anzeigen

Benutzerbild von Corpsman
Corpsman

Registriert seit: 8. Nov 2005
Ort: nähe Stuttgart
981 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Taschenrechner

  Alt 13. Nov 2008, 08:38
Also ich würde das ja ganz anders machen in etwa So

Das Prob ist natürlich das du als Anfänger da ein wenig überfordert bist.

Schematisch würde ich dir etwas in der Art Empfehlen :

Delphi-Quellcode:

// Globale Variable, sehr böse ;)
Aktuelles_Zwischenergebniss :Integer; // Double, was auch immer


Procedure PlusButton(sender ...);
var t:Selber Typ wie Aktuelles_Zwischenergebniss
begin

  t := strtotype (EEingabe.text)
  Aktuelles_Zwischenergebniss := Aktuelles_Zwischenergebniss + t;
  EEingabe.text := ''; // Wenn das Edit leer sein soll nach +
// oder
  EEingabe.text := typetostr(Aktuelles_Zwischenergebniss );

end;
So hast du Praktisch immer ein Ergebniss im Hintergrund, du must dir ja irgendwo deine alten Werte merken.

Eben genau wie bei einem Taschenrechner ..
Uwe
My Sitewww.Corpsman.de

My marble madness clone Balanced ( ca. 70,0 mb ) aktuell ver 2.01
  Mit Zitat antworten Zitat