Hallo zusammen
ich bekomme immer ein problem wenn ich versuche eine gettime function zu compilieren zbsp:
da erhalte ich den compiler fehler:
Type mismatch...
was meint ihr dazu? ich benutze virtual pascal 2.1 in dos umgebung
freundlicher gruss anthro
ich bekomme immer ein problem wenn ich versuche eine gettime function zu compilieren zbsp:
Code:
program uhr;
uses crt, dos;
var std, min, sek, s100, jahr, mon, tag, wtag : word;
function fnull(zahl : word) : string;
var temp : string;
begin
str(zahl,temp);
if zahl<10 then temp:='0'+temp;
fnull:=temp;
end;
begin
clrscr;
repeat
getdate(jahr, mon, tag, wtag);
gettime(std, min, sek, s100);
gotoxy(30,12);
write(fnull(tag)+'.'+fnull(mon)+'.',jahr,
', '+fnull(std)+':'+fnull(min)+':'+fnull(sek));
until keypressed;
end.
Type mismatch...
was meint ihr dazu? ich benutze virtual pascal 2.1 in dos umgebung
freundlicher gruss anthro