On Sun, 14 Sep 2008 07:42:12 +0200 "Carsten Bager" <[EMAIL PROTECTED]> wrote:
> > Zitat von Carsten Bager <[EMAIL PROTECTED]>: > > > > > When I do this > > > > > > Free Pascal Compiler version 2.2.2 [2008/07/29] for i386 > > > > Which OS? > Linux AFAIK the unit Dos should not be used under Linux. Mattias > > > --------------------- > > > Program tt; > > > uses dos, > > > sysutils; > > > > > > function strPackTime(t:longWord):shortstring; > > > var > > > dt:Datetime; > > > begin > > > UnpackTime(t,dt); > > > strPackTime:=intToStr(dt.day)+'/'+ > > > intToStr(dt.month)+'-'+ > > > intToStr(dt.year)+ > > > intToStr(dt.hour)+':'+ > > > intToStr(dt.min)+':'+ > > > intToStr(dt.sec)+' '; > > > end; > > > > > > Begin > > > WriteLn(strPackTime(DateTimeToFileDate(now))); > > > > > > WriteLn(DateTimeToStr(FileDateToDateTime(DateTimeToFileDate(now)))) > > > ; > > > End. > > > --------------------------------- > > > > > > I get this result > > > > > > 9/6-20160:28:22 > > > 11-9-08 13:39:55 > > > > > > What am I doing wrong. > > > > > > Mattias > > > > _______________________________________________ > > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > > > > > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
