delphi中间件

摘要： Variant数组Variant：一种可以拥有各种数据类型；也可以告诉目前存储的数据是什么类型(通过使用VarType函数)；可以给相同的Variant分配不同的数据类型，只要Variant包含数字值就可以执行算法；variant数组只不过是variant型的数组，不必包含同类型的数据；　variant数组的创建方法：functionVarArrayCreate(constBounds:arrayofInteger;VarType:integer):variant;Bounds:告诉数组的上下界；VarType:决定了数组的中存储什么类型的数据。例如：创建数组的数组,可以模仿任何类型的数据结构 阅读全文

摘要： //取指定文件夾及其子文件夾內指定類型文件列表procedure _GetFileList(AStrings: TStrings; ASourFile, FileName: string);// 調用示例: _GetFileList(FileList, 'c:/', '*.pas')var sour_path, sour_file: string; TmpList: TStringList; FileRec, subFileRec: TSearchrec; i: Integer;begin if rightStr(trim(ASourFile), 1) < 阅读全文