blob: 3ee9c10334f6a63a0a77fde2515c4ca21f6b896c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{$ifdef fpc}
{$mode delphi}
{$endif}
{$r-}
uses
SysUtils, Classes, TypInfo, Variants;
type
TBla = class(TPersistent)
private
fBool: Boolean;
fint: integer;
published
property Bool: Boolean read fBool write fBool;
property int: integer read fint write fint;
end;
begin
SetPropValue(TBla.Create, 'Bool', 'true');
end.
|
