DELPHI结构体的定义和使用  

 

 

 

 

窗体设计如上面结构！

代码如下：

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  type    //一是注意定义位置;
    Tman=record
    name:string;
    id:string;
  end;

  type
    Tmarks=record
    person:Tman;
    math:real;
    english:real;
  end;

implementation

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);
var
  na,num:string;
  sx,yy:real;
  liuyi:Tmarks;//二是注意使用方式
begin
  liuyi.person.name:='XX;
  liuyi.person.id:='20012070105';
  liuyi.math:=89.5;
  liuyi.english:=92.7;
  edit1.Text:=liuyi.person.name;
  edit2.Text:=liuyi.person.id;
  edit3.Text:=floattostr(liuyi.math);
  edit4.Text:=floattostr(liuyi.english);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

end.