Переглянути джерело

* small fixes to test really the int64 stuff

florian 24 роки тому
батько
коміт
f6d0c598bf
1 змінених файлів з 4 додано та 4 видалено
  1. 4 4
      docs/typinfex/ex15.pp

+ 4 - 4
docs/typinfex/ex15.pp

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