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

* small fixes to test really the int64 stuff

Browse Source
This commit is contained in:
florian 2001-11-18 18:27:15 +00:00
parent cee59f5e0d
commit f6d0c598bf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/typinfex/ex15.pp
View File

@ -14,12 +14,12 @@ begin
O:=TMyTestObject.Create; O:=TMyTestObject.Create;
Writeln('Int64 property : '); Writeln('Int64 property : ');
PI:=GetPropInfo(O,'Int64Field'); PI:=GetPropInfo(O,'Int64Field');
Writeln('Value : ',O.RealField); Writeln('Value : ',O.Int64Field);
Writeln('Get (name) : ',GetInt64Prop(O,'Int64Field')); Writeln('Get (name) : ',GetInt64Prop(O,'Int64Field'));
Writeln('Get (propinfo) : ',GetInt64Prop(O,PI)); Writeln('Get (propinfo) : ',GetInt64Prop(O,PI));
SetInt64Prop(O,'RealField',12345); SetInt64Prop(O,'Int64Field',12345);
Writeln('Set (name,12345) : ',O.Int64Field); Writeln('Set (name,12345) : ',O.Int64Field);
SetFloatProp(O,PI,54321); SetInt64Prop(O,PI,54321);
Writeln('Set (propinfo,54321) : ',O.Int64Field); Writeln('Set (propinfo,54321) : ',O.Int64Field);
O.Free; O.Free;
end. end.