blob: 6688df22570426ce1cdcf92bd5d6b49ad6a1cb7c (
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
27
28
29
|
{$ifdef fpc}
{$mode delphi}
{$endif}
{$r-}
uses
SysUtils, Classes, TypInfo, Variants;
type
TBla = class(TPersistent)
private
fustr: unicodestring;
published
property ustr: unicodestring read fustr write fustr;
end;
var
b: tbla;
u: unicodestring;
begin
b:=tbla.create;
SetPropValue(b, 'ustr', 'abc');
if (b.ustr<>'abc') then
halt(1);
u:=getpropvalue(b,'ustr');
if (u<>'abc') then
halt(2);
end.
|
