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