t_id
717
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$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.