HI. Ich habe ein Hauptprogramm namens datum. In dieses Programm habe ich die
Unit Eingabe eingebunden.
Hier die
Unit Eingabe:
Delphi-Quellcode:
unit Eingabe;
interface
uses sysutils, crt;
procedure Schaltjahr;
implementation
begin
procedure Eingabe.Schaltjahr;
var Datum :
String;
Jahr, Monat, Tag, Jahrhundert : Integer;
begin
Clrscr;
write('
Bitte geben Sie das gewuenschte Datum ein: ');
readln(Datum);
writeln(Datum);
readln;
tag := StrToInt(copy(Datum,1,2));
monat:= StrToInt(copy(Datum,4,2));
jahrhundert := StrToInt(copy(Datum,7,2));
jahr:= StrToInt(copy(Datum,9,2));
if jahr
mod 4 = 0
then begin
write('
Der ' + Datum + '
liegt in einem Schaltjahr!')
end
else begin
write('
Der ' + Datum + '
liegt nicht in einem Schaltjahr!')
end;
writeln; writeln;
writeln('
Druecken sie "Z" fuer Zurueck zum Menue oder "E" um das Programm zu verlassen.');
readln(wahl);
case wahl
of
//'Z' :
'
e' : Exit;
end;
end;
end.
Ich arbeite mit dev-pascal, das wir dieses Programm verwenden müssen. Allerdings nimmt der Kompiler die Funktion nicht an. Kann mir da jemand helfen???
Wie kann ich die funktin dann im Programm Datum aufrufen??