Zahlen als Wort auflisten (0-100)

[sandaliye]

Hab sowas gemacht aber er will das ich das nicht alles per Hand einschreibe, wie soll ich das machen !!!!!!

Wir sollen irgendwie auch mod und div verwenden °!°

Delphi-Quellcode:

procedure TForm1.Panel1Click(Sender: TObject);
begin
begin
   for  zahl:= 0 to 100 do
   begin
        Panel1.Caption := 'Starte';
   case zahl of
        0: ganzesWort:=' Null';
        1: ganzesWort:=' Eins';
        2: ganzesWort:=' Zwei';
        3: ganzesWort:=' Drei';
        4: ganzesWort:=' Vier';
        5: ganzesWort:=' Fünf';
        6: ganzesWort:=' Sechs';
        7: ganzesWort:=' Sieben';
        8: ganzesWort:=' Acht';
        9: ganzesWort:=' Neun';
        10: ganzesWort:=' Zehn';
        11: ganzesWort:=' Elf';
        12: ganzesWort:=' Zwölf';
        13: ganzesWort:=' Dreizehn';
        14: ganzesWort:=' Vierzehn';
        15: ganzesWort:=' Fünfzehn';
        16: ganzesWort:=' Sechzehn';
        17: ganzesWort:=' Siebzehn';
        18: ganzesWort:=' Achtzehn';
        19: ganzesWort:=' Neunzehn';
        20: ganzesWort:=' Zwanzig';
        21: ganzesWort:=' Einundwanzig';
        22: ganzesWort:=' Zweiundzwanzig';
        23: ganzesWort:=' Dreiundzwanzig';
        24: ganzesWort:=' Vierundzwanzig';
        25: ganzesWort:=' Fünfundzwanzig';
        26: ganzesWort:=' Sechsundzwanzig';
        27: ganzesWort:=' Siebenundzwanzig';
        28: ganzesWort:=' Achtundzwanzig';
        29: ganzesWort:=' Neunundzwanzig';
        30: ganzesWort:=' Dreißig';
        31: ganzesWort:=' Einunddreißig';
        32: ganzesWort:=' Zweiunddreißig';
        33: ganzesWort:=' Dreiunddreißig';
        34: ganzesWort:=' Vierunddreißig';
        35: ganzesWort:=' Fünfunddreißig';
        36: ganzesWort:=' Sechsunddreißig';
        37: ganzesWort:=' Siebenunddreißig';
        38: ganzesWort:=' Achtunddreißig';
        39: ganzesWort:=' Neununddreißig';
        40: ganzesWort:=' Vierzig';
        41: ganzesWort:=' Einundvierzig';
        42: ganzesWort:=' Zweiundvierzig';
        43: ganzesWort:=' Dreiundvierzig';
        44: ganzesWort:=' Vierundvierzig';
        45: ganzesWort:=' Fünfundvierzig';
        46: ganzesWort:=' Sechsundvierzig';
        47: ganzesWort:=' Siebenundvierzig';
        48: ganzesWort:=' Achtundvierzig';
        49: ganzesWort:=' Neunundvierzig';
        50: ganzesWort:=' Fünfzig';
        51: ganzesWort:=' Einundfünfzig';
        52: ganzesWort:=' Zweiundfünfzig';
        53: ganzesWort:=' Dreiundfünfzig';
        54: ganzesWort:=' Vierundfünfzig';
        55: ganzesWort:=' Fünfundfünfzig';
        56: ganzesWort:=' Sechsundfünfzig';
        57: ganzesWort:=' Siebenundfünfzig';
        58: ganzesWort:=' Achtundfünfzig';
        59: ganzesWort:=' Neunundfünfzig';
        60: ganzesWort:=' Sechzig';
        61: ganzesWort:=' Einundsechzig';
        62: ganzesWort:=' Zweiundsechzig';
        63: ganzesWort:=' Dreiundsechzig';
        64: ganzesWort:=' Vierundsechzig';
        65: ganzesWort:=' Fünfundsechzig';
        66: ganzesWort:=' Sechsundsechzig';
        67: ganzesWort:=' Siebenundsechzig';
        68: ganzesWort:=' Achtundsechzig';
        69: ganzesWort:=' Neunundsechzig';
        70: ganzesWort:=' Siebzig';
        71: ganzesWort:=' Einundsiebzig';
        72: ganzesWort:=' Zweiundsiebzig';
        73: ganzesWort:=' Dreiundsiebzig';
        74: ganzesWort:=' Vierundsiebzig';
        75: ganzesWort:=' Fünfundsiebzig';
        76: ganzesWort:=' Sechsundsiebzig';
        77: ganzesWort:=' Siebenundsiebzig';
        78: ganzesWort:=' Achtundsiebzig';
        79: ganzesWort:=' Neunundsiebzig';
        80: ganzesWort:=' Achtzig';
        81: ganzesWort:=' Einundachtzig';
        82: ganzesWort:=' Zweiundachtzig';
        83: ganzesWort:=' Dreiundachtzig';
        84: ganzesWort:=' Vierundachtzig';
        85: ganzesWort:=' Fünfundachtzig';
        86: ganzesWort:=' Sechsundachtzig';
        87: ganzesWort:=' Siebenundachtzig';
        88: ganzesWort:=' Achtundachtzig';
        89: ganzesWort:=' Neunundachtzig';
        90: ganzesWort:=' Neunzig';
        91: ganzesWort:=' Einundneunzig';
        92: ganzesWort:=' Zweiundneunzig';
        93: ganzesWort:=' Dreiundneunzig';
        94: ganzesWort:=' Vierundneunzig';
        95: ganzesWort:=' Fünfundneunzig';
        96: ganzesWort:=' Sechsundneunzig';
        97: ganzesWort:=' Siebenundneunzig';
        98: ganzesWort:=' Achtundneunzig';
        99: ganzesWort:=' Neunundneunzig';
        100: ganzesWort:=' Hundert';

        end;


        memo1.lines.add(inttostr(zahl) + ' ' +   ganzesWort);
        sleep(100);
end;
end;
end;
procedure TForm1.Panel2Click(Sender: TObject);
begin
memo1.lines.clear;
end;