摘要： 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 ┃' 阅读全文