mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 16:49:20 +02:00
* small fixes to test really the int64 stuff
This commit is contained in:
parent
cee59f5e0d
commit
f6d0c598bf
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user