请问如何用listbox显示一个目录下的*.jpg文件

[amartapple]

谢谢

[立志做一个佳娃~]

呵呵，，麻烦的方法是用　findfirst findnext等函数，，，不过我写项目时十分的偷懒，，用了，，，filelistbox控件，，里面有一个属性mask设置成*.jpg就可以了，而且改路径也十分的方便，给你一小段代码，希望对你有所帮助。

procedure TForm1.FlatButton8Click(Sender: TObject);
begin
if SelectDirectory('选择目录','',dir) then
begin
label10.caption:='您选择的目录是'+dir;
form1.FileListBox1.Directory:=dir;
end;
end;

祝：身体健康，答案和分数同样重要：）！！！

[amartapple]

还有没有别的，要不结贴了

[007Delphi]

请问你要用控件吗？个控件是打开你的电脑目录的！我给段代码给你！
首先STV1: TShellTreeView；
uses
Windows,Forms, SysUtils, Variants, Classes, Controls, ComCtrls,
StdCtrls, ButtonXPMACCorel,Messages, ShellCtrls;

var
i:integer;
searchRec:TsearchRec;
seat:string;
begin
filepa:=stv1.SelectedFolder.PathName;
filepa:=filepa+'\';
if (FindFirst(filepa+'.jpg', faAnyFile-faDirectory, SearchRec)=0) then
begin
Form1.ListBox1.Items.Add(filepa+searchrec.Name);
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(filepa+searchrec.Name);
end;
FindClose(SearchRec);
end;
close;
end;
当然你可以不要那个控件，自己把filepa改成目录名！ok了！祝你好运！

[yczyk]

呵呵，我就是用楼上的方法做的，查出所有的.DBF文件来了！