Forum: Object-Pascal / Delphi-Language
by Deep-Sea,
3. Mär 2011
War das jetzt auf mein "in eine Funktion auslagern" bezogen? Wenn ja: Nein, so hatte ICH mir das nicht vorgestellt. Eher so:
procedure TForm1.WechselgeldAusgeben(var ABetrag: Currency; AMuenzwert: Currency);
begin
While ABetrag >= AMuenzwert do
begin
ABetrag := ABetrag - AMuenzwert;
If AMuenzwert >= 1 then ListBox1.Items.Add(Format('%d-Euro-Stück', ))
else...
Forum: Object-Pascal / Delphi-Language
by Deep-Sea,
3. Mär 2011
@Jumpy:
Mh, sollte gehen. Aber was hat man davon? Es sind immer noch zig Redundanzen drin. Darum sagte ich ja auch auslagern in eine Funktion ^^
Forum: Object-Pascal / Delphi-Language
by Deep-Sea,
3. Mär 2011
Um genau zu sein ist Currency eine Festkommazahl. In Delphi intern ist es ein normaler 64-bit Integer (bei dem die vier niederwertigsten Stellen als Nachkommastellen angesehen werden).
Und wie gesagt: Die Schleifen bieten sich geradezu an, in eine Funktion ausgelagert zu werden. Und auch die Strings wie "2-Euro-Stück" könnte man automatisch erzeugen. :-D
Forum: Object-Pascal / Delphi-Language
by Deep-Sea,
2. Mär 2011
Oder halt Currency als Datentyp nutzen?! :-D
PS: Man könnte die fast immer gleiche Schleife auch in eine Funktion auslagern ... macht's vlt. übersichtlicher.