谢谢
解决方案 »
- 有没有Delphi7的证券交易插件可用。
- 请教如何得到Memo中从开始到光标处字符串的长度?
- 用delphi控制浏览器
- 今天心情很不爽,放分
- TBitmap类在线程中释放问题
- 考证:这是否Delphi6的一个Bug
- 如何通过adoquery实现多线程查询(在线等待)
- 唉,老了,DELPHI,你会跟我一起慢慢变老吗?
- 碰到这种情况:有一个字段为高度,字符型,如3m/m、50m/m、7cm、2"等,我如何得到3,50,7,2等整型的数字?
- Nizvoo(瓦匠泥)兄请进来说话!!!!
- 将TBitBtn的Kind设置为bkOK,如何屏蔽界面回车对它的触发?并如何可以实现多个TEdit间用回车来获得下个TabOrder?
- 苦腦中!連續問了三四個問題,在這裏居然都沒有找到答案!散分...
var
searchrec: TSearchRec;
ext: string; //后缀
begin
//在路径后面加上'\'
if path[length(path)] <> '\' then
path := path + '\';
if FindFirst(path + '*.*', faAnyFile, SearchRec) <> 0 then
exit;
//判断是否为目录,是目录则循环
if (searchrec.Attr and faDirectory) <> 0 then
begin
if (searchrec.name <> '.') and (searchrec.name <> '..') then
searchpath(path + searchrec.name);
end
else
begin
{ 此处加上你自已的判断文件后缀的代码
ext := lowercase(extractfileext( searchrec.Name ));
if (ext='.bmp') or (ext='.jpg') then
begin
...
end;
}
end;
while findnext(searchrec) = 0 do
begin
if (searchrec.Attr and faDirectory) <> 0 then
begin
if (searchrec.name <> '.') and (searchrec.name <> '..') then
searchpath(path + searchrec.name);
end
else
begin
{ 此处加上你自已的判断文件后缀的代码
ext := lowercase(extractfileext( searchrec.Name ));
if (ext='.bmp') or (ext='.jpg') then
begin
...
end;
}
end;
end;
findclose(searchrec);
end;