Hallo,
tja, wenn du das anständig formatieren würdest ..
Delphi-Quellcode:
procedure Test;
begin
case bla of
1:
begin
end; { 1 }
2:
begin
end; { 2 }
end; { case bla of }
end; { Test }
Du siehst, ein case will auch ein end haben.
Die begin/end bei den case-Zweigen schreibe ich übrigens immer,
weil oft nicht nur eine Code-Zeile reinkommt, sondern die Sache erweitert wird.
Dein Code für Tage im Monat würde ich übrigens auslagern,
den brauchst du vielleicht noch an anderen Stellen.
Delphi-Quellcode:
function DaysOfMonth (theYear, theMonth: Word): Byte;
begin
Result:= 0;
case theMonth of
4,6,9,11 : Result:= 30;
1,3,5,7,8,10,12: Result:= 31;
2:
begin
if (theYear mod 4=0) and ((theYear mod 100<>0) or (theYear mod 400=0))
then Result:= 29 { leap year }
else Result:= 28;
end;
end; { case theMonth of }
end; { DaysOfMonth }
Heiko