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;
原文：http://www.cnblogs.com/delphiclub/p/4167995.html