小弟急需!!
回答好的再加分!(1) 文件目录的搜索方法和算法是什么?
递归算吗?如果算,那它的算法是什么呢?
请详细解释一下,我现在不是太懂,但急需解决这个问题,请各位大侠帮帮我 的忙谢谢了。(2) 文件目录中的“.”和“..”是什么意思???
回答好的再加分!(1) 文件目录的搜索方法和算法是什么?
递归算吗?如果算,那它的算法是什么呢?
请详细解释一下,我现在不是太懂,但急需解决这个问题,请各位大侠帮帮我 的忙谢谢了。(2) 文件目录中的“.”和“..”是什么意思???
解决方案 »
- 怎么把数据库里的路径赋给mediaplayer?
- ParamByName和FileByName有什么不同?ParamByName怎么用?
- @@@@@用indy的tcpserver和tcpclient控件进行数据的收发,因为发送端的发送频率很高,造成发送端在关闭的时候,还有一部分数据在缓冲中,
- 请问,判断一个字符串是否为数字的函数!
- 关于窗口停靠问题!!!
- 请问delphi有没有群呀?
- 有关DFM文件转化到TEXT格式
- 关于delphi接口编程。
- 如何在程序中为数据库表(.DB)建立字段索引??
- 请各位同仁讨论下Delphi6.0的特点!
- 关于footer的问题?
- 求TcpClient/TcpServer(并非Indy)文件传输不用单独创建线程实现的实例
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;
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;
递归算吗?如果算,那它的算法是什么呢?
请详细解释一下,我现在不是太懂,但急需解决这个问题,请各位大侠帮帮我 的忙谢谢了。(2) 文件目录中的“.”和“..”是什么意思???
答1,是递归算法,具体算法很多书上都有实例,如delphi开发技巧一般在文件操作这一章
(2) 文件目录中的“.”和“..”是什么意思???跟dos 中一样.是本目录..是父目录
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;