t_id
716
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
443652450 | 934966 | True | False | Successfully run |
Record count: 1
{$mode objfpc} // Compile it using the Delphi extensions // directive. type TObjectB = class private procedure SetValue(v: integer); public fx: integer; Constructor Create; Destructor Destroy; property x: integer read fx write SetValue; end; var Obj: TObjectB; Constructor TObjectB.Create; begin fx := 0; end; Destructor TObjectB.Destroy; begin end; procedure TObjectB.SetValue(v: integer); begin fx := v + 2; end; begin writeln('This will be printed'); Obj := TObjectB.Create; writeln('This won''t.'); end.