Improved prompting

restemplate.pas

@@ -28,7 +28,7 @@ uses
   JTemplate,
   fpjson, jsonparser,
   DOM, XMLRead, XMLWrite,
-  RegExpr, crt;
+  RegExpr, crt, UCRTHelper;
 
 type
   TContentType = (ctOther, ctJSON, ctXML);
@@ -112,17 +112,11 @@ procedure CmdAskUser(AName: String);
 var
   value, default: String;
 begin
-  Write(AName);
   default := sessionIni.ReadString(templateName, AName, '');
-  if default <> '' then
-    Write(' [', default, ']: ')
-  else
-    Write(': ');
-
-  ReadLn(value);
+  value := Prompt(AName, default);
 
   if value = '' then
-    value := default;
+    Halt(3); //Cancelled
 
   parser.Fields.Add(AName, value);