Keyboard input/Obtain a Y or N response: Difference between revisions
Keyboard input/Obtain a Y or N response (view source)
Revision as of 17:51, 1 September 2020
, 3 years agono edit summary
MaiconSoft (talk | contribs) No edit summary |
|||
Line 419:
<pre>Enter Y or N: abcN
Response: N</pre>
=={{header|Delphi}}==
{{libheader| System.Console}} Thanks for JensBorrisholt [https://github.com/JensBorrisholt/DelphiConsole].
<lang Delphi>
program Obtain_a_Y_or_N_response;
{$APPTYPE CONSOLE}
uses
System.Console;
function GetKey(acepted: string): Char;
var
key: Char;
begin
while True do
begin
if Console.KeyAvailable then
begin
key := UpCase(Console.ReadKey().KeyChar);
if pos(key, acepted) > 0 then
exit(key);
end;
end;
Result := #0; // Never Enter condition
end;
begin
Console.WriteLine('Press Y or N');
case GetKey('YN') of
'Y':
Console.WriteLine('You pressed Yes');
'N':
Console.WriteLine('You pressed No');
else
Console.WriteLine('We have a error');
end;
Readln;
end.</lang>
{{out}}
<pre>Press Y ou N
You pressed Yes</pre>
=={{header|EGL}}==
| |||