paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 06:08:16 +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 }
{$mode objfpc}
{$M+}
uses
typinfo;
type
tmyobject = class
protected
fs : single;
published
property s : single read fs write fs default 3.1415;
@ -14,6 +16,11 @@ var
begin
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;
end.