Optimized prompt output upon cancel
This commit is contained in:
parent
46a87b3e0c
commit
02625fca66
|
@ -54,11 +54,10 @@ begin
|
||||||
Write(ADefault);
|
Write(ADefault);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if c = #13 then
|
|
||||||
Writeln;
|
|
||||||
|
|
||||||
if c = ^C then
|
if c = ^C then
|
||||||
Result := ''; //Pretend that nothing happened.
|
Result := ''; //Pretend that nothing happened.
|
||||||
|
|
||||||
|
Writeln; //Always end the line
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
Loading…
Reference in New Issue