文件夹查找文件(一个文件夹文件查找函数 Delphi),

procedure TfrmMain.SearchPath(path, filename: string; recurse: Boolean;
  List: TStringList);   //recurse  是否包递归查找目录
  procedure Traverse(APath: string);
  var
    f: TSearchRec;
    I: Integer;
  begin
    if recurse then
    begin
      if FindFirst(APath + filename,faDirectory,f) = 0 then
      repeat
        if (f.Name[1] <> '.') then
          Traverse(IncludeTrailingPathDelimiter(APath + f.Name));
      until FindNext(f) <> 0;
      FindClose(f);
    end;

    if FindFirst(APath + filename,faReadOnly or faHidden or faSysFile or faArchive, f) = 0 then
    repeat
      List.Add(APath + f.Name);
    until FindNext(f) <> 0;
    FindClose(f);
  end;
begin
  Traverse(IncludeTrailingPathDelimiter(path));
end;

Delphi),
procedure TfrmMain.SearchPath(path, filename: string; recurse: Boolean;
List: TStringList); // recurse 是否包递…

 

1、解压后把UniDAC文件夹 

你是否对默认的Delphi项目所包含的文件都认识呢?

2、在UniDAC\Source\Delphi7文件夹中找到Make.bat文件,鼠标右键“编辑”确认DELPHI7的安装路径是否正确(建议:设置成绝对路径了,防止因为环境变量等原因,找不到路径)。例如我的是: 

下面让我来一起看看吧。

set IdeDir=”D:\Borland\Delphi7 
call ..\Make.bat Delphi 7 WIN32 
注意:双引号不能去掉 
3、双击运行Make.bat文件 
4、32位操作系统:复制UniDAC\Bin\Delphi7文件夹里面的所有*.bpl文件到操作系统盘符C:\Windows\system32文件夹中 
64位操作系统:复制UniDAC\Bin\Delphi7文件夹里面的所有*.bpl文件到操作系统盘符C:\Windows\SysWOW64文件夹中 
5、运行DELPHI 7 
6、在DELPHI7主菜单中依次点击”Component->Install
Packages”添加(Add) 
32位操作系统:the System32\dclunidac70.bpl 
64位操作系统:SysWOW64\dclunidac70.bpl 
7、在Delphi7主菜单中依次点击“Toosl->Environment->Library->Library
Path”添加Library Path: 
UniDAC\Source 
UniDAC\Lib\Delphi7 
8、重新运行DELPHI 7后,选项卡出现了UniDAC和UniDACProvider。 
使用: 
1、选中UniDACProvider组件里面的相应数据库并拖入Form里面。(很关键) 
2、将UniDAC组件里面的Uniconnection组件拖入Form里面,双击它进行配置。 
3、将UniDAC组件里面的UNIquery拖入,并双击配置sql语句,到属性页将Connection选中上一个connection组件的名称。 
4、将DATA
Controls里面的DBgrid拖入,到属性页将Datasource属性选中上一个query组件的名称。 
5、Uniquery的active属性改为true即可。

Step1、打开Delphi7,选择【File | New |
Application
】,创建一个默认Delphi应用程序;

UniDAC下载地址

Author

发表评论

电子邮件地址不会被公开。 必填项已用*标注