program WriteStruct; {$APPTYPE CONSOLE} uses SysUtils; //写入结构体 type TCustomer = record ID: ]; Code: ]; Name: ]; end; var Customers: ..] of TCustomer; i: Integer; myText: file of TCustomer; //file of type type必须是固定大小的,不能是对象, String, Variant等 customer:…