Higher-order functions: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,770: / Line 2,770: @@
-    FUNCTION    RandFillFloat ( x: variant ) : variant ;
+    FUNCTION    RandFillReal ( x: variant ) : variant ;
         VAR
-            tmp :   float = 100.0 ;
+            tmp :   real = 100.0 ;
         BEGIN result := ( Random (  ) ) * tmp  ; END ;