Inkompatble Typen???

[Sankar]

Oh stimmt ja Vielen Dank!!

Mal noch eine andere Frage.

Delphi-Quellcode:

begin
  monat:=strtoint(Edt_monat.text);
  jahr:=strtoint(Edt_jahr.text);
  Edt_tage.text:=inttostr(tage);


 case monat of

  1,3,5,7,8,10,12:tage:= 31;
  4,6,9,11:tage:=30;
  end;

Warum verlangt Delphi dort ein "end;", wenn dadurch doch die Prozedure zu früh beendet wird und somit man 2 klicks auf den Button braucht damit er das Ergebnis ausrechnet? Lass ich das "end;" weg so bringt er mir die Fehlermeldung: @ erwartet, aber If erhalten in Zeile 49.

Zeile49:
 If ((Jzahl mod 4) = 0) then zusätzlich noch folgende fehlermeldungen:
zeile77:E2026 Konstantenausdruck erwartet
zeile78:E2018 Record,Objekt oder Klassentyp erforderlich
zeile80:E2029 END, erwartet aber Dateiende gefunden

Zeile 77 und 78 steht jeweils ein "end;" und zeile 80 steht nichts dain zeile 79 "end." steht.
Werde daraus absolut nicht schlau. Hoffe du kannstm ir da weiterhelfen.

mfg Sankar