Inkompatble Typen???

[hoika]

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