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: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//采购管理 1  803
    (iNo: 1; sFile: 'SI.dll'; vModCode: '803'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//调拨管理 2  804
    (iNo: 2; sFile: 'AI.dll'; vModCode: '804'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//批发管理 3  805
    (iNo: 3; sFile: 'WS.dll'; vModCode: '805'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//配货管理 4  806
    (iNo: 4; sFile: 'SD.dll'; vModCode: '806'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//调配管理 5  807
    (iNo: 5; sFile: 'IT.dll'; vModCode: '807'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//零售管理 6  808
    (iNo: 6; sFile: 'RS.dll'; vModCode: '808'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//代理管理 7  809
    (iNo: 7; sFile: 'DS.dll'; vModCode: '809'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//库存管理 8  810
    (iNo: 8; sFile: 'SK.dll'; vModCode: '810'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//结算管理 9  811
    (iNo: 9; sFile: 'BM.dll'; vModCode: '811'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//生产管理 10 812
    (iNo: 10; sFile: 'PM.dll'; vModCode: '812'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//决策分析 11 813
    (iNo: 11; sFile: 'DA.dll'; vModCode: '813'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//会员管理 12 814
    (iNo: 12; sFile: 'VP.dll'; vModCode: '814'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//订货会管理 13 815
    (iNo: 13; sFile: 'OM.dll'; vModCode: '815'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//条码管理 14 816
    (iNo: 14; sFile: 'BC.dll'; vModCode: '816'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//局域网POS 17 819
    (iNo: 15; sFile: 'NP.dll'; vModCode: '819'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//物料模块
    (iNo: 16; sFile: 'MM.dll'; vModCode: '817'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//2009-7-21 dss
    (iNo: 17; sFile: 'DSS.dll'; vModCode: '820'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil),//生产管理(武汉专版) 18 826  // lxx 2010.05.20 Add
    (iNo: 18; sFile: 'PMS.dll'; vModCode: '826'; bValidity: False; bCanLoad: False; fCurrVersion: 0; fNewVersion: 0;
      lFileSize: 0; bExists: false; Handle: 0; bHandle: false; IniForm: nil; ActiveForm: nil; LocateBill: nil));
    i: Integer;

begin
  for i := 0 to 18 do
    begin
      //布尔值的输出
      //如何输出空值
      Writeln(AryDllFiles[i].iNo,'--',AryDllFiles[i].sfile,AryDllFiles[i].vModCode,AryDllFiles[i].bValidity,AryDllFiles[i].bcanload,AryDllFiles[i].fcurrversion,AryDllFiles[i].fnewversion,AryDllFiles[i].lfilesize,AryDllFiles[i].bexists,AryDllFiles[i].bhandle
      );
    end;
  Readln;
end.