用delphi编写dos程序怎样使接收用户输入时的字符用字符'*'代替？

Question

用getKey()呀
然后回显"*"
好象是getKey，反正就是接受键盘输入的函数
for i := 0 to 7 do
begin
  str[i] := getKey()
  write("*");
end;

Answer 1

in turbo pascal there is a function:
Function readkey:integer;
you can try it in delphi6;

Answer 2

怎么delphi提示说没有getkey和readkey这样的函数

Answer 3

Delphi能写DOS程序啊？我怎么不知道？

Answer 4

同意here
不过在WINDOWS下
许多unit可能已被取了或合并了
readkey是在dos下crt中定义的函数

Answer 5

  那在window下如何实现？

Answer 6

是Console（控制台）吧，用Windows API SetConsoleMode禁止回显，用ReadConsole读