Zitat von
blink182:
hiho
machs halt mit schleifen
Delphi-Quellcode:
while rueckgeld >=100 do
begin
edit100.text:=inttostr(strtoint(edit100)-1);
rueckgeld:=rueckgeld-100;
end
while rueckgeld >=50 do
begin
edit50.text:=inttostr(strtoint(edit50)-1);
rueckgeld:=rueckgeld-50;
end;
...
und später kannst du dann Wechselgeld neuberechnen
wechselgeld:=100*strtoint(edit100.text)+50*stroint(edit50.text)... Man könnte diese Struktur aber eventuell abwandeln, indem man in die while Schleifen erweitert zu
Delphi-Quellcode:
while (rueckgeld>=100) and (Anzahl_100ter > 0) do
...
Wenn alle Schleifen so erwitert werden, sollte er automatisch fehlende große Scheine durch kleinere ersetzen.