需要变化这样也可以:
Var
DataFileLists:Variant;
begin
DataFileLists:=VarArrayof(['TblClipBoard.DAT','tblClipBoardCtl.DAT',
'TblCodeComplete.DAT','tblCodeHint.DAT','tblFunc.DAT','tblOptions.DAT',
'tblProject.DAT','tblUnits.DAT']);
DataFileLists就可以象数组一样用。
需要时再用VarArrayof改变其元素的值