3
{ This program demonstrates the GetFloatProp function }
14
O:=TMyTestObject.Create;
15
Writeln('Real property : ');
16
PI:=GetPropInfo(O,'RealField');
17
Writeln('Value : ',O.RealField);
18
Writeln('Get (name) : ',GetFloatProp(O,'RealField'));
19
Writeln('Get (propinfo) : ',GetFloatProp(O,PI));
20
SetFloatProp(O,'RealField',system.Pi);
21
Writeln('Set (name,pi) : ',O.RealField);
22
SetFloatProp(O,PI,exp(1));
23
Writeln('Set (propinfo,e) : ',O.RealField);
24
Writeln('Extended property : ');
25
PI:=GetPropInfo(O,'ExtendedField');
26
Writeln('Value : ',O.ExtendedField);
27
Writeln('Get (name) : ',GetFloatProp(O,'ExtendedField'));
28
Writeln('Get (propinfo) : ',GetFloatProp(O,PI));
29
SetFloatProp(O,'ExtendedField',system.Pi);
30
Writeln('Set (name,pi) : ',O.ExtendedField);
31
SetFloatProp(O,PI,exp(1));
32
Writeln('Set (propinfo,e) : ',O.ExtendedField);
b'\\ No newline at end of file'