mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21:08:30 +02:00
70b8789262
+ automatically loaded helper unit * Makefiles adapted * mode switch * mode switches reorganized + TimeStamp support git-svn-id: trunk@32330 -
23 lines
350 B
ObjectPascal
23 lines
350 B
ObjectPascal
{$mode extendedpascal}
|
|
|
|
var
|
|
ts : TimeStamp;
|
|
|
|
begin
|
|
{ just test if the functions exist }
|
|
GetTimeStamp(ts);
|
|
if ts.DateValid then
|
|
begin
|
|
writeln(ts.year);
|
|
writeln(ts.month);
|
|
writeln(ts.day);
|
|
end;
|
|
if ts.TimeValid then
|
|
begin
|
|
writeln(ts.hour);
|
|
writeln(ts.minute);
|
|
writeln(ts.second);
|
|
end;
|
|
end.
|
|
|