t_id
960
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525798587 | 948247 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2480 } { Submitted by "Sergey Kosarevsky" on 2003-05-01 } { e-mail: netsurfer@au.ru } {$mode objfpc} {$static on} Type tSingleton=Class Private _Instance:tSingleton;Static; Public Constructor Init; Class Function Instance:tSingleton; End; Function tSingleton.Instance:tSingleton; Begin If _Instance=Nil Then _Instance:=tSingleton.Init; Exit(_Instance); End; Constructor tSingleton.Init; Begin End; Begin End.