delphi中定义record记录类型和使用

 

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);
  Writeln('Sex:',people.Sex);
  Readln;
end.