记录应用示例

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    ListBox4: TListBox;
    ListBox5: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
type                                              //声明记录类型
  shouru = record
    name: string;                                 //姓名
    sex: boolean;                                 //性别
    gz: real;                                     //工资
    jj: real;                                     //奖金
    sr: real;                                     //收入
  end;
  worker = array [1..6] of shouru;                //声明记录类型的数组
var
  wk: worker;                                     //定义记录类型的数组
  i: integer;
begin
  wk[1].name := '贾宝玉'; wk[1].sex := true; wk[1].gz := 1200; wk[1].jj := 800;
  wk[2].name := '林黛玉'; wk[2].sex := false; wk[2].gz := 1300; wk[2].jj := 900;
  wk[3].name := '薛宝钗'; wk[3].sex := false; wk[3].gz := 1000; wk[3].jj := 600;
  wk[4].name := '妙玉'; wk[4].sex := false; wk[4].gz := 1500; wk[4].jj := 1000;
  wk[5].name := '王熙凤'; wk[5].sex := false; wk[5].gz := 1000; wk[5].jj := 800;
  for i := 1 to 5 do
    begin
      listbox1.Items.Add(wk[i].name);             //添加姓名
      if wk[i].sex then                           //添加性别
        listbox2.Items.Add('男')
      else
        listbox2.Items.Add('女');
      listbox3.Items.Add(floattostr(wk[i].gz));   //添加工资
      listbox4.Items.Add(floattostr(wk[i].jj));   //添加奖金
      wk[i].sr := wk[i].gz + wk[i].jj;            //计算收入
      listbox5.Items.Add(floattostr(wk[i].sr));   //添加收入
    end;
end;

end.