2,496
社区成员
发帖
与我相关
我的任务
分享如何查看文件夹里的每张图片
任意的文件夹里面有任意的图片，我用Delphi7 写一个查看它们（图片）的小程序，一张张的查看图片还有获取文件路径名。请各位大哥给出代码给我参考一下。谢谢
...全文
请发表友善的回复…
发表回复
NewComer2017 2017-10-24
- 打赏
- 举报
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{procedure searchfile(path:string);//注意,path后面要有'\';
var
SearchRec:TSearchRec;
found:integer;
begin
found:=FindFirst(path+'*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..')
and (SearchRec.Attr<>faDirectory) then
ListBox1.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;}
function searchfile(path:string):TStringList;
var SearchRec:TSearchRec;
found:integer;
list:TStringList;
begin
list:=TStringList.Create;
found:=FindFirst(path+'\*.*',faAnyFile,SearchRec);
while found=0 do
begin if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDirectory) and (SearchRec.Name<>'Thumbs.db') then
List.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
form1.Memo1.Lines.AddStrings(list);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
searchfile('C:\wintone');
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
Memo2.Lines.Clear;
for i := 0 to memo1.Lines.Count -1 do
memo2.Lines.Add( copy(memo1.Lines.Strings[i],33,8) );
end;
end.
lyhoo163 2017-10-24
- 打赏
- 举报
敷衍递归搜索目录（包含子目录）中的全部文件。加入到数组或列表中，逐条查看。
