t_id
1540
t_adddate
2005/03/29
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$mode delphi} uses ub0489; type oo = class function getmyint:integer; property someprop:integer read getmyint; end; function oo.getmyint:integer; begin result:=1; end; procedure test2; var ch:char; x : oo; begin test(x.someprop,ch,1); end; begin end.