?
Pack Dir mal ein TMemo und einen TButton auf eine Form und schreib das hier in die ButtonClick-Methode;
Memo1->Lines->Clear();
// zum Rechnen verwende ich lieber Integer, deswegen alle Werte in Cents
int iWerte[10] = {1000, 500, 200, 100, 50, 20, 10, 5, 2, 1};
int iAktuell; // aktuell ausgewählter Wert aus dem Array
int iSchleife = 0; // Schleifenzählvariable für Zugriff auf Array
int iZaehler; // Zähler für Anzahl der Werteinheiten (Scheine und Münzen
int iBetrag = 12422; // hier käme dann der Wert aus dem Edit hin
Memo1->Lines->Add("Aufzuteilender Betrag; " + AnsiString(((double) iBetrag / 100)));
while (iBetrag > 0)
{
iZaehler = 0; // muss für jeden Neudurchlauf auf 0 gesetzt werden
iAktuell = iWerte[iSchleife]; // im ersten durchlauf wird hier 1000 bei iAktuell gesetzt
while (iBetrag >= iAktuell) // solange der Gesamtbetrag größer als die aktuelle Werteinheit ist
{
++iZaehler; // Zähler für Werteinheit erhöhen
iBetrag -= iAktuell; // aktuellen Wert vom Gesamtbetrag abziehen
}
if (iZaehler)
Memo1->Lines->Add(AnsiString(iZaehler) + " x " + AnsiString(((double) iAktuell / 100))); // Ausgabe
++iSchleife; // Schleifenzähler für Zugriff auf Array erhöhen
}
Das sollte als Beispiel genügen.