User input/Graphical: Difference between revisions

Content added Content deleted
(Added Delphi example)
m (fixed prompt text)
Line 352:
{$APPTYPE CONSOLE}
 
uses SysUtils, Dialogs;▼
uses
▲ SysUtils, Dialogs;
 
var
Line 363 ⟶ 362:
 
repeat
s := InputBox('User input/Graphical', 'Enter athe stringnumber 75000', '75000');
lIntegerValue := StrToIntDef(s, 0);
if lIntegerValue <> 75000 then
Retrieved from "https://rosettacode.org/wiki/User_input/Graphical"