Funny-Aktenvernichter

[Tumm]

Delphi-Quellcode:

counter5 := StrToInt(points.Caption) + happy.Progress;
counter5 := StrToInt(points.Caption) - Papierkorb.Progress;
counter5 := counter5 + (binakten * 5);

Da das Programm mein erstes war hab ich noch nicht gewusst, dass ich auch wie in der normalen Mathematik Terme berechnen kann:

counter5 := StrToInt(points.Caption) + happy.Progress - Papierkorb.Progress + binakten*5 (Punkt vor Strich, nix Klammer)

Beschreibung der Komponenten:
Happy(Gauge) = Zufriedenheit
points(Label) = Punkteanzeige
papierkorb(Gauge) = Füllung des Papierkorbs
binakten(Variable, SmallInt) = Füllung des Papierkorbs