文件的路径问题(50分)

Z

z_f123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-28

• #1

使用3个窗体
首先利用其中一个窗体建立一个文件，将数据存入文件中
然后使用另一个窗体来读这个文件
请问如何能够得到这个文件的路径？
ExtractFileDir() 结果：c:/delphi/bin
ExtractFileDrive() 结果：c:
ExtractFileExt() 结果：.exe
ExtractFileName() Project1.exe
ExtractFilePath() 结果：c:/delphi/bin
这几个函数我试了，不行的
那位请给出一个具体，有力地说法！！
谢谢！！

 

L

lgwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-28

• #2

你要什么样的路径,上面几个函数还不够你用的[?]

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-28

• #3

老大,这个工程你保存了没有,保存在哪里你好好检查一下.没有保存的话这些函数的返回值肯定是以delphi32.exe所在的路径为标准的

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-28

• #4

应该是以你编译后的执行文件所在目录为准

 

Z

z_f123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-28

• #5

可能是我说的不清楚：
你们所说的 我都明白
我试在编译后的执行文件所在目录下 建立了一个文件
然后在另一个窗体中 读取这个文件的路径
我设了一个全局变量，使用上述几个函数对变量赋之--- 也就是所谓的路径，但是这个变量总是空值

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-28

• #6

ExtractFilePath(Application.ExeName)

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-29

• #7

你既然都能读这个文件了，当然一定就知道这个文件所在的路径了。

 

O

OH

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-29

• #8

ExtractFilePath(Application.ExeName)

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-29

• #9

那你至少要知道原始路径,然后那找以下方式查找吧:
if FindFirst(文件夹,faArchive,SearchRec)=0 then begin
SearchRec.Name;
while FindNext(SearchRec)=0 do begin
SearchRec.Name;
end;
end;
如果你需要搜寻子文件夹,那么你先找出子文件夹,然后继续上面的操作:
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..') then
Result:=True
else Result:=False;
end;

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-29

• #10

var
FilePath : string;

FilePath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) ;

 

Z

z_f123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-29

• #11

多人接受答案了。