t_id
1559
t_adddate
2005/04/29
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950721654 | 1015786 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3898 } { Submitted by "alphax" on 2005-04-19 } { e-mail: acmui_2004@163.com } program Project1; {$APPTYPE CONSOLE} {$IFDEF FPC} {$MODE ObjFpc} {$ENDIF} uses SysUtils, Variants; var DT: TDateTime; V: Variant; begin DT := Now(); V := DT; if VarType(V)<>varDate then halt(1); writeln('ok'); end.