paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 02:50:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 2004-05-29 15:52:33 +00:00
parent dea441a7dd
commit 1d1df129f6
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/tbs/tb0467.pp
View File

@ -1,9 +1,11 @@
{ %version=1.1 } { %version=1.1 }
{$mode objfpc} {$mode objfpc}
{$M+}
uses uses
typinfo; typinfo;
type type
tmyobject = class tmyobject = class
protected
fs : single; fs : single;
published published
property s : single read fs write fs default 3.1415; property s : single read fs write fs default 3.1415;
@ -14,6 +16,11 @@ var
begin begin
myobject:=tmyobject.create; myobject:=tmyobject.create;
writeln(GetFloatProp(myobject,'S')); SetFloatProp(myobject,'s',3);
if GetFloatProp(myobject,'s')<>3 then
begin
writeln('error');
halt(1);
end;
myobject.free; myobject.free;
end. end.