delphi opendialog如何打开文件并把路径显示在tedit

// 文件过滤

OpenDialog1Filter := 'txt文件|txt|所有文件|';

if OpenDialog1Execute then begin

// 得到打开的文件名

edit1Text := OpenDialog1FileName;

end;

e是文件夹路径，Filetpye

是文件类型，Tstr是一个TStrings，用来记录搜索出来的所有文件路径。你需要做的就是调用这个函数，并把Tstr导入到listview中

procedure

FindFile(FindFileName:string;

Filetpye

:

string

;Tstr:TStrings);

var

FSearchRec,

DSearchRec:

TSearchRec;

FindResult:

integer;

function

IsDirNotation(ADirName:

String):

Boolean;

begin

Result

:=

(ADirName

=

'')

or

(ADirName

=

'');

end;

begin

if

FindFileName[Length(FindFileName)]<>

'\'

then

FindFileName:=FindFileName+'\';

FindResult

:=

FindFirst(FindFileName+'',

faDirectory,

DSearchRec);

//tstrAdd(FindFileName+fsearchrecName);

while

FindResult

=

0

do

begin

if

((DSearchRecAttr

and

faDirectory)

=

faDirectory)

and

not

IsDirNotation(DSearchRecName)

then

begin

FindFile(FindFileName+DSearchRecName,Filetpye,Tstr);

//

tstrAdd(FindFileName+fsearchrecName);

end;

FindResult

:=

FindNext(DSearchRec);

end;

FindResult

:=

FindFirst(FindFileName+'',faAnyFile+faHidden+

faSysFile,FSearchRec);

//

tstrAdd(FindFileName+fsearchrecName);

try

while

FindResult

=

0

do

begin

//ShowMessage(FindFileName+fsearchrecName);

if

Pos(Filetpye,FindFileName+fsearchrecName)>0

then

begin

tstrAdd(FindFileName+fsearchrecName);

end;

FindResult

:=

FindNext(FSearchRec);

end;

finally

FindClose(FSearchRec);

end;

Findclose(DSearchRec);

end;

1第一个 if 里 把 SearchRecName="exe"去掉

2SearchRecName指的就是文件和文件夹全名，你的文件夹里面根本没有全名为exe的文件，当然没有结果

3如果你想专门找EXE文件，应该在第一行的""改成"exe"

以上就是关于delphi opendialog如何打开文件并把路径显示在tedit全部的内容，包括:delphi opendialog如何打开文件并把路径显示在tedit、怎么在delphi中实现搜索系统TXT文件并把文件名 文件路径显示在listview上、delphi获取指定路径下的exe文件名称等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！