Question

delphi 将文件夹中所有.JPG文件的文件名，保存在任意新建的.TXT文本文件中

Answer 1

系统里所有的.jpg文件么？
我也才学D 给你个思路 如果是当前文件夹下 参考这个 获取所有文件名 之后判断pos如果后三位为jpg 那么写入txt.
具体 下班到家写一下给你
你参考这个，这个是遍历某目录及其所有子目录、文件，并删除的函数。有你要的东西

procedure Fun_DeleteDir(sDirectory:String);stdcall;//删除目录和目录下得所有文件和文件夹
var
sr:TSearchRec;
sPath,sFile: String;
begin
if Copy(sDirectory,Length(sDirectory),1) <> '\ ' then
sPath := sDirectory + '\ '
else
sPath := sDirectory;

if SysUtils.FindFirst(sPath+ '*.* ',faAnyFile, sr) = 0 then
begin
repeat
sFile:=Trim(sr.Name);
if sFile= '. ' then Continue;
if sFile= '.. ' then Continue;

sFile:=sPath+sr.Name;
if (sr.Attr and faDirectory) <> 0 then
Fun_DeleteDir(sFile)
else
if (sr.Attr and faAnyFile) = sr.Attr then
begin
try
DeleteFile(PAnsiChar(sFile)); //删除文件
except
;
end;
end;
until SysUtils.FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;
try
RemoveDir(sPath);
except
;
end;
end;