hi leute ich wüsste gerne wie ich ne schleife machen kann...
ich will nämlich das er etwas nachprüft und zwar immerwieder solange bis er bei 0 ist.
ich habe nämlich ein programm geschrieben in dem ich geld "einwerfe" und somit bezahle und nun krieg ich da eine ausgabe raus, die ich gern in die einzelnen münzen trennen würde...
bisher hab ich das so gemacht:
Delphi-Quellcode:
if (c>50) then
edit5.Text:=floattostr(e+1);
d:=(d-50);
if (c>20) and(c<50) then
edit6.Text:=floattostr(e+1);
d:=(d-20);
if (c>10) and(c<20) then
edit7.Text:=floattostr(e+1);
c:=(c-10);
if (c>5) and(c<10) then
edit8.Text:=floattostr(e+1);
c:=(c-5);
if (c>2) and(d<5) then
edit9.Text:=floattostr(e+1);
c:=(c-2);
if (c>1) and(c<2) then
edit10.Text:=floattostr(e+1);
c:=(c-1);
if (c>0.5) and(c<1) then
edit11.Text:=floattostr(e+1);
c:=(c-0.5);
if (c>0.2) and(c<0.5) then
edit12.Text:=floattostr(e+1);
c:=(c-0.2);
if (c>0.1) and(c<0.2) then
edit13.Text:=floattostr(e+1);
c:=(c-0.1);
und der scheint das irgendwie nicht richtig auszuführen...
oder hat emand nen anderen einfacheren oder besseren vorschlag?
thx im vorraus