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)...