blob: 8132793b987fa34164593de7ced8ddd51a38ab1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ %version=1.1 }
{$mode objfpc}
{$M+}
uses
typinfo;
type
tmyobject = class
protected
fs : single;
published
property s : single read fs write fs default 3.1415;
end;
var
myobject : tmyobject;
begin
myobject:=tmyobject.create;
SetFloatProp(myobject,'s',3);
if GetFloatProp(myobject,'s')<>3 then
begin
writeln('error');
halt(1);
end;
myobject.free;
end.
|
