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;