Delphi控制台输入输出程序

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

//定义一个结构类型
type Tpeople = record
  Name :string;
  Age:Integer;
  Sex:string;
end;

procedure init();
begin
  Writeln('┏━━━━━┳━━━━━┳━━━━━┓');
  Writeln('┣━━━━━┻━━━━━┻━━━━━┫');
  Writeln('┃    Delphi控制台输入输出测试程序  ┃');
  Writeln('┃           (a:)运行DEMO1          ┃');
  Writeln('┃           (b:)运行DEMO2          ┃');
  Writeln('┃           (q:)退出程序           ┃');
  Writeln('┣━━━━━┳━━━━━┳━━━━━┫');
  Writeln('┗━━━━━┻━━━━━┻━━━━━┛');
end;

procedure demo1();
var
  people:Tpeople;
begin
  with  people do
  begin
     Name := '小明';
     Age := 25;
     Sex := '男';
  end;
  Writeln('Name:',people.Name);
  Writeln('Age:',people.Age);
  Writeln('Sex:',people.Sex);
  //Readln;
end;

procedure demo2();
var
  o:string;
begin
  Writeln('这是DEMO2');
end;

procedure testConsole();
var s:string;
begin
  write('请输入命令: ');
  Readln(s);

  while true do
  begin
    if s = EmptyStr then
    begin
      write('请输入命令: ');
      Readln(s);
    end
    else
    begin
      s := LowerCase(s);
      case s[1] of
      'a':
         begin
           demo1();
         end;
      'b':
        begin
           demo2();
        end;
      'q':
        begin
          break;
        end;
      else
        writeln('输入的命令不存在！');
      end;
      write('请输入命令: ');
      Readln(s);
    end;
  end;
end;

begin
  init();
  testConsole();
end.

 

转载于:https://www.cnblogs.com/qqook/p/3474466.html