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