额，大家都来看看我的问题，帮我看一下…… - pascal吧

level 2

DRma5 楼主

请问，有没有直接在运行时输入数据不需要回车就能直接读入的函数？
我还是举个例子吧：
（显示屏）
“请输入一个字符：”
（操作：输入“X”，不回车）
（显示屏）
“请输入一个字符：
X”

2018年02月12日 09点02分 1

level 9

函数：
function getch():char;cdecl;external 'msvcrt' name '_getch';
用法：
program example;
function getch():char;cdecl;external 'msvcrt' name '_getch';
var
c:char;
begin
c:=getch();
end.

2018年02月12日 11点02分 3

啤9🍺

狼妹还留守在吧中...感觉贴吧已经彻底废了...

2018年02月12日 15点02分

狼妹宋天琢

回复啤9🍺 :对不起，我的留守让贴吧彻底废了

2018年02月13日 03点02分

wfwhl12

@狼妹宋天琢物是人非。。

2018年02月13日 15点02分

level 2

DRma5 楼主

em,我解决了，不过我用的更复杂的方法……这个楼就成了拜年楼了，祝大家万事如意哦

2018年02月13日 09点02分 4