Hab folgendes Problem:
Auf Knopfdruck wird aus einem Edit-Feld eine Variabe ausgelesen. Diese Variable soll insgesamt 6 mal inkrementiert werden, und auf 7 Panels jeweils ein fortlaufendes Datum anzeigen.
Quasi ein Terminkalender.
Ich nutze also folgende Prozedure:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| Datum := StrToDate(edit1.text);
panel1.caption := days[DayOfWeek(Datum)] + ' - ' + DateToStr(Datum);
Datum := Datum + 1;
panel2.caption := days[DayOfWeek(Datum)] + ' - ' + DateToStr(Datum);
Datum := Datum + 1;
panel3.caption := days[DayOfWeek(Datum)] + ' - ' + DateToStr(Datum);
Datum := Datum + 1;
panel4.caption := days[DayOfWeek(Datum)] + ' - ' + DateToStr(Datum);
Datum := Datum + 1;
panel5.caption := days[DayOfWeek(Datum)] + ' - ' + DateToStr(Datum);
Datum := Datum + 1;
panel6.caption := days[DayOfWeek(Datum)] + ' - ' + DateToStr(Datum);
Datum := Datum + 1;
panel7.caption := days[DayOfWeek(Datum)] + ' - ' + DateToStr(Datum); |
"days" wird im OnCreate-Ereigniss meiner Form folgendermassen deklariert:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| days : array[1..7] of String;
days[1] := 'Montag';
days[2] := 'Dienstag';
days[3] := 'Mittwoch';
days[4] := 'Donnerstag';
days[5] := 'Freitag';
days[6] := 'Samstag';
days[7] := 'Sonntag'; |
Tja, und drücke ich jetzt auf den Button, nachdem ich das heutige Datum, also 23.06.2003, eingeben habe, fängt er an, die Panels zu füllen.
Soweit so gut. Aber er ordnet dem 23.06.2003 Dienstag zu.
Falsch.
Weiß einer woran das liegen könnte?
vielen Dank schonma
mfG
//EDIT
ich glaub ich hab ne Vermutung: Delphi behandelt den Sonntag als 1. Tag der Woche, und ich glaube das konnte man irgendwo einstellen.... aber wo?
