Thema: Delphi Inkompatble Typen???

Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: Inkompatble Typen???

  Alt 9. Nov 2006, 17:14
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
Heiko
  Mit Zitat antworten Zitat