Delphi控制台输入输出程序

最新推荐文章于 2023-08-29 20:36:56 发布

转载最新推荐文章于 2023-08-29 20:36:56 发布 · 770 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/qqook/p/3474466.html

本文介绍了一个使用Delphi编写的控制台程序实例，演示了如何定义结构体并进行基本的输入输出操作。程序包括两个演示部分：DEMO1展示了如何初始化并输出结构体变量的内容；DEMO2为预留的扩展部分。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.