Hallo liebe
DP-User
Ich bin dabei ein Programm zu schreiben, in dem man Preise eingeben kann und für jeden ungeraden Centbetrag als Schnapszahl also 11,33,55,77,99 ein Geschenk erhält. Die Preise die man eingibt sollen bestmöglichst zusammengefügt werden um mehr Geschenke zu bekommen. Jetzt bin ich soweit, dass ich die Preise eingeben kann, die in einer Listbox gespeichert werden und soweit erstmal zur Übersicht als Gesamtpreis ausgegeben werden. Wie geht das jetzt aber das der Quasi jedes Element aus der Listbox vergleicht und die so zusammenfügt wie oben beschrieben? Am Ende soll für mich einfach nur die Anzahl der Geschenke in einem Label ausgegeben werden. Habt ihr eine Ahnung wie das geht?
Hier mal der bisherige Code:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
ListBox1: TListBox;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
cent,summe:real;
begin
cent:=strtofloat(edit1.text);
listbox1.Items.Add(floattostr(cent));
for i:=0
to ListBox1.Items.Count -1
do
summe := strtofloat(ListBox1.Items[i]) + summe;
Label2.Caption := floattostr(summe);
end;
end.
Und hier noch ein Bild vom Prog:
http://img101.imageshack.us/img101/6632/progio2.jpg
In diesem Fall könnte man jetzt 3,89 und 1,10 zusammenfügen zu 4,99 und erhält ein Geschenk. Ebenso 7,54 und 6,01 zu 13,55 und erhält noch ein Geschenk. Kann da jemand vllt helfen dieses Problem zu lösen? Ich habe mir schon den Crashkurs angeschaut, bin aber auch nicht besonders schlau draus geworden. Wäre echt nett. Danke.