# | Line 1 | Line 1 | |
---|---|---|
1 | program testsuite; | |
2 | ||
3 | + | {$IFDEF FPC} |
4 | {$mode objfpc}{$H+} | |
5 | {$codepage utf8} | |
6 | + | {$ENDIF} |
7 | ||
8 | uses | |
9 | {$IFDEF UNIX} | |
# | Line 81 | Line 83 | begin | |
83 | ||
84 | {Ensure consistent date reporting across platforms} | |
85 | DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy'; | |
86 | + | DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS'; |
87 | DefaultFormatSettings.DateSeparator := '/'; | |
88 | ||
89 | writeln(OutFile,Title); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |