User input/Graphical: Difference between revisions

Content added Content deleted

Inline

@@ Line 352: / Line 352: @@
 {$APPTYPE CONSOLE}
+uses SysUtils, Dialogs;
-uses
-  SysUtils, Dialogs;
 var
@@ Line 363: / Line 362: @@
   repeat
-    s := InputBox('User input/Graphical', 'Enter a string', '75000');
+    s := InputBox('User input/Graphical', 'Enter the number 75000', '75000');
     lIntegerValue := StrToIntDef(s, 0);
     if lIntegerValue <> 75000 then