首页 > 代码库 > 记录类型的定义和应用

记录类型的定义和应用

1.记录类型的定义

type

  info = record

  name :string;

  age    :integer;

  addr  :string;

end;

2.记录类型应用


procedure TForm1.Button1Click(Sender: TObject);
type
  myinfo = record
  name : string;
  age  : Integer;
  addr : string;
end;
var
  info : myinfo;
begin
  info.name:=‘longker‘;
  info.age :=29;
  info.addr:=‘GuiLin‘;
end;

procedure TForm1.Button2Click(Sender: TObject);
type
  myinfo = record
  name : string;
  age  : Integer;
  addr : string;
end;
var
  info : myinfo;
begin
  with info do
  begin
    name:=‘longker‘;
    age :=29;
    addr:=‘GuiLin‘;
  end;
  //Edit1.Text:=info.name;
end;

 

记录类型的定义和应用