小弟急需!!
回答好的再加分!(1) 文件目录的搜索方法和算法是什么?
    递归算吗?如果算,那它的算法是什么呢?
    请详细解释一下,我现在不是太懂,但急需解决这个问题,请各位大侠帮帮我  的忙谢谢了。(2) 文件目录中的“.”和“..”是什么意思???

解决方案 »

  1.   

    //当button被选中,由Edit指定的文件名在当前路径和Windows路径中被查找。
    procedure TForm1.Button1Click(Sender:TObject);
    var
        buffer:array[0..255] of char;
        FileToFind:string;
    begin
        GetWindowsDirectory(buffer,SizeOf(buffer));
        FileToFind:=FileSearch(Edit1.Text,GetCurrentDir+';'+buffer);
        if FileToFind='' then
            showmessage('Couldn''tfind'+Edit1.text+'.')
        else
            showmessage('Found'+FileToFind+'.');
    end;
      

  2.   

    //一个点表示当前目录,两个点表示上级目录~~//参考如下代码~~
    procedure TForm1.Button1Click(Sender: TObject);
      procedure pScanFile(mDirName: string);
      var
        K: Integer;
        vSearchRec: TSearchRec;
        vPathName: string;
      begin
        vPathName := mDirName + '\*.*';
        K := FindFirst(vPathName, faAnyFile, vSearchRec);
        while K = 0 do
        begin
          if (vSearchRec.Attr and faDirectory <> 0) and
            (Pos(vSearchRec.Name, '..') = 0) then
            pScanFile(mDirName + '\' + vSearchRec.Name)
          else if (Pos(vSearchRec.Name, '..') = 0) then
            Memo1.Lines.Add(mDirName + '\' + vSearchRec.Name);
          K := FindNext(vSearchRec);
        end;
        FindClose(vSearchRec);
      end;
    begin
      pScanFile('c:\temp');
    end;
      

  3.   

    (1) 文件目录的搜索方法和算法是什么?
        递归算吗?如果算,那它的算法是什么呢?
        请详细解释一下,我现在不是太懂,但急需解决这个问题,请各位大侠帮帮我  的忙谢谢了。(2) 文件目录中的“.”和“..”是什么意思???
    答1,是递归算法,具体算法很多书上都有实例,如delphi开发技巧一般在文件操作这一章
    (2) 文件目录中的“.”和“..”是什么意思???跟dos 中一样.是本目录..是父目录
      

  4.   

    procedure TForm1.Button1Click(Sender:TObject);
    var
        buffer:array[0..255] of char;
        FileToFind:string;
    begin
        GetWindowsDirectory(buffer,SizeOf(buffer));
        FileToFind:=FileSearch(Edit1.Text,GetCurrentDir+';'+buffer);
        if FileToFind='' then
            showmessage('Couldn''tfind'+Edit1.text+'.')
        else
            showmessage('Found'+FileToFind+'.');
    end;