摘要： program Project2;{$APPTYPE CONSOLE}uses SysUtils;//定义一个结构类型type Tpeople = record Name :string; Age:Integer; Sex:string;end;var people:Tpeople;begin with people do begin Name := '小明'; Age := 25; Sex := '男'; end; Writeln('Name:',people.Name); Writeln('Age:',people.Age); 阅读全文