DELPHI结构体的定义和使用

来源：互联网发布：阿里云子账号登陆地址编辑：程序博客网时间：2024/06/07 09:40

在C#用Struct非常方便，但Delphi竟然没有Struct。最后发现了Record，转载此文章以备使用。

窗体设计如上面结构！

代码如下：

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.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
na,num:string;
sx,yy:real;
liuyi:Tmarks;
begin
liuyi.person.name:='乱了营亚';
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.