1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm2.ExpressoClick(Sender: TObject);

var t : tobject;// das braucht man halt wenn man es so schreibt
begin

loeschen;// das ist ne procedure von mir folgt unten
r := r+ (p5);// r ist der generele gesamtpreis des aktuellen Kunden  ,p5 ist der preis des artickesl
edit1.text  := floattostr (r)+' €' ;// edit 1 ist das anzeige feld des gesamt preises.
ListBox1.AddItem ((n5),t);list box ist der (einkaufsbon) und n5 der name des produckts
i := i +1;//i ist der Produckt zähler wert bezieht sich auf das ganze Programm
edit3.Text := inttostr (i); //edit 3 ist die anzeigetafel von i (siehe oben);

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TForm2.Button3Click(Sender: TObject);
var x,y,z : real;//integers
rr:real;
s:string;
i:integer;

begin

try// kann man auch weglassen
begin

s:= edit2.text;// lade s von gegebenem Geld

i:=pos('€',s); //die positon von den € zeichen in s wir ausgelesen

If i > 0 then// was das ist weiß ich auch nicht mehr aber hier wird €€ und was danach kommt abgehangn und in rr gespeichert
  begin
  s:=copy(s,1,i-1);
  end ;
rr:=strtofloat(s);


Label1.Caption := 'Rückgeld:' ;// der label taext Gesammt wir geändert
x := (r);// so hir hir das rück geld berechnet
y := (rr);
z := y-x;

IF z <0 then
begin
 showmessage ('Es wurde zu wenig geld eingezahlt');//fehler wenn zu wenig gel gegeben wurde 
 exit;
 end;
edit1.text  :=  floattostr(z)+' €'; // noch € anhängen
end;


except
showmessage ('Es ist ein Fehler aufgetreten  bitte überprüfen sie ihre Eingabe');// häng zusammen mit dem try oben
end;

end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
r:=0;// gessammt wir auf 0 gesetzt
Listbox1.Clear;// einkaufs zettel wird verworfen
edit1.Text:='';//die 2 felder gesammtpeist und wo man das gegebene eingibt wenden geleert
edit2.Text:='';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.loeschen();
begin
If label1.Caption ='Rückgeld:'then begin// angaben werden zurück gestelt ( beim ersen artickel des neuen kunden
    label1.Caption :='Gesamt:' ;
    edit1.Text := '';
    edit2.text :='' ;
    r := 0.00 ;
    Listbox1.Clear;
end;
end;