怎么在delphi中实现搜索系统TXT文件并把文件名 文件路径显示在listview上

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)

//tstr.Add(FindFileName+fsearchrec.Name)

while

FindResult

=

0

do

begin

if

((DSearchRec.Attr

and

faDirectory)

=

faDirectory)

and

not

IsDirNotation(DSearchRec.Name)

then

begin

FindFile(FindFileName+DSearchRec.Name,Filetpye,Tstr)

//

tstr.Add(FindFileName+fsearchrec.Name)

end

FindResult

:=

FindNext(DSearchRec)

end

FindResult

:=

FindFirst(FindFileName+'*.*',faAnyFile+faHidden+

faSysFile,FSearchRec)

//毁友唯

tstr.Add(FindFileName+fsearchrec.Name)

try

while

FindResult

=

0

do

begin

//ShowMessage(FindFileName+fsearchrec.Name)

if

Pos(Filetpye,FindFileName+fsearchrec.Name)>0

then

begin

tstr.Add(FindFileName+fsearchrec.Name)

end

FindResult

:=

FindNext(FSearchRec)

end

finally

FindClose(FSearchRec)

end

Findclose(DSearchRec)

end

private void button1_Click(object sender, EventArgs e)

{

FolderBrowserDialog folderBrowserDialog = new FolderBrowserDialog()

folderBrowserDialog.ShowNewFolderButton = true

folderBrowserDialog.ShowDialog()

string path = folderBrowserDialog.SelectedPath/睁简/MP3文件目录弯乱

string[] paths//MP3文件路径

paths=Directory.GetFiles(path, "*.mp3", SearchOption.AllDirectories)

this.listBox1.Items.AddRange(paths)//添加MP3文件到listBox

MessageBox.Show("MP3数悉闹裤目:"+paths.Length.ToString())

paths = null

folderBrowserDialog.Dispose()

}

查询功能我是这样实现的。

1，首先声名全局变量， 查询条件 string id=""

2，单独做一个给控件填充数蚂游据的方法。

里面的SQL语句 "select * from 表 where 1=1 and"销山+this.id

然后在构造方法调用 这个数据填充方法。

3，点查询 按钮

-1。清空控闷斗销件，

-2。用查询条件给 全局变量付值。

-3。调用 数据填充方法。

---