t_id
1513
t_adddate
2005/03/06
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950721227 | 1015783 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3751 } { Submitted by "Nicola Lugato" on 2005-03-05 } { e-mail: msx_80@hotmail.com } {$mode delphi} program turn; uses cthreads, classes, sysutils; type Tmy = class(TThread) constructor Create(suspended:boolean); Procedure Execute;override; end; constructor TMy.Create(suspended:boolean); begin FreeOnTerminate:=true; inherited Create(suspended); end; Procedure TMy.Execute; begin writeln('Just print and exit!'); end; var m:TMy; begin m:=Tmy.create(true); m.resume; sleep(1000); end.