t_id
510
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
459435609 | 937501 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0337.pp } { } program vartest; {$ifdef fpc}{$mode objfpc}{$endif} uses Classes; type TMyComponent = class(TComponent) aaaaaaaaaa: TComponent; b: TComponent; private public constructor Create(AOwner: TComponent); override; end; constructor TMyComponent.Create(AOwner: TComponent); begin inherited Create(AOwner); aaaaaaaaaa := TComponent.Create(Self); end; var MyComponent: TMyComponent; begin MyComponent := TMyComponent.Create(nil); end.