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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
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.