创建控制台程序

xwk

于 2006-12-12 10:45:00 发布

阅读量928

点赞数

分类专栏： Delphi 文章标签： input login string

本文链接：https://blog.youkuaiyun.com/xwk/article/details/1439484

版权

Delphi 专栏收录该内容

6 篇文章

订阅专栏

var
       
       
    userName, userPwd: string;
       
       
    login: Boolean;
       
       
begin
       
       
    try
       
       
        while (not login) do  //登录
          
          
        begin
       
       
            Write('login: ');
       
       
            Readln(UserName);
       
       
            SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), ENABLE_LINE_INPUT
       
       
                or ENABLE_PROCESSED_INPUT); //隐藏输入
          
          
            Write('Password: ');
       
       
            Readln(userPwd);
       
       
            Writeln('');
       
       
            if (UserName = 'mtcl') and (userPwd = 'mtcl') then
       
       
            begin
       
       
                login := True; //跳出循环,表示登录成功,可在后面显示form
         
         
            end
       
       
            else
       
       
            begin //登录失败
          
          
                Writeln('Login incorrect');
       
       
                Writeln('');
       
       
                SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), ENABLE_LINE_INPUT or
       
       
                    ENABLE_PROCESSED_INPUT or ENABLE_ECHO_INPUT); //显示输入
          
          
            end;
       
       
        end;
       
       
    finally
       
       
            FreeConsole;
       
       
    end;
       
       
end;