delphi中记录数组的使用练习

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  dll_IniForm = function (): Boolean; stdcall;
    {
    在Uni_FUnction.TDllFileRec中引用
    }
  dll_ActiveForm = function (): Boolean; stdcall;
    {
    在Uni_FUnction.TDllFileRec中引用
    }
  dll_LocateBill = function (): Boolean; stdcall;
  { 动态库文件记录类型数组初始化 }
   TDllFileRec = record
    iNo: Integer; //编号
    sFile,        //目录
    vModCode: String;//模型代码
    bValidity,       //验证
    bCanLoad         //是否可加载
    : Boolean;
    fCurrVersion,    //当前版本
    fNewVersion: real; //新版本
    lFileSize: LongInt; //文件大小
    bExists: Boolean;   //是否存在
    Handle: THandle;   //句柄
    bHandle: Boolean;  //是否是句柄
    IniForm: dll_IniForm;   //初始化
    ActiveForm: dll_ActiveForm; //激活
    LocateBill: dll_LocateBill; //加载
  end;
var
  AryDllFiles: Array[0..18] of TDllFileRec = (
    //基础档案 0  802
    (iNo: 0; sFile: 'BD.dll'; vModCode: '802'; bValidity: False; bCanLoad: Fals