unit unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms;type //这里定义你要的结构体 name = record //结构体名称 rDate : string; rTime : string; end;type //这个是通常自己写pas主体的 地方 private publicend