Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
26. Aug 2012
Vielen Dank, hat super geklappt. :)
Ein paar Fragen bleiben mir nichtsdestotrotz:
1. Bei Button1.Click schreibst du "fsum:=0", ohne Edit2.Text:=FloatToStr(fsum), wie funktionniert das?
2. "Sender: TObject; var Key: Word; Shift: TShiftState"
--> Ist der Inhalt dieser Zeile pauschal gleich und "einfach hinzunehmen", oder sollte ich verstehen weshalb was wo steht? (das tu ich nämlich...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
25. Aug 2012
Wenn man sich zum addieren mit den Edits abwechselt und ein Label frs Resultat benutzt klappt's, wenn jedoch alles in 1 Edit eingegeben werden soll nicht. Ein kleines Manko der Methode ist, dass die letzte Zahl (nach der man den Fokus der Edit-Box normalerweise nicht mehr verliert) dann nicht mehr addiert wird, ist aber halt ne Kleinigkeit :D. Trotzdem guter Tip, danke dir! :)
Nein, das sollen...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by diavy,
24. Aug 2012
Hallo zusammen.
Meine Aufgabestellung ist folgendermaßen:
Schreibe ein Programm das die Summe einer Serie von eingegebenen Zahlen rechnet, benutze dafür 2 Edit-Boxen und einen Button zum "nullen" der Summe.
Zunächst hab ich es damit probiert:
...Edit1Change... (prozedur)
if Edit1.Text <> '' then Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+StrToInt(Edit1.Text))
und das gleiche...