by meiqingsong(阿飛) // =========_程序员之家(两个delphi下遍历指定目录下指定类型文件的函数)

开发技术指南» 文章正文

引言： by meiqingsong(阿飛) // =========

摘要：procedure tfrmzjmovesch.bitbtn2click(sender: tobject);var wd: twritedata ;begin wd := twritedata.create ; wd.qry := qryzjmovesch; wd.summary.add(´铸件移交计划:´); wd.summary.add(´所有生产批号!&a......

·apache的poi读写excel »显示摘要«

摘要：/* * created on 2004-11-5 * * java读取excel文件 * */package readxls; import java.io.fileinputstream;import java.io.fileoutputstream; import java.text.decimalformat; import org.apache.poi.hssf.usermodel......

两个delphi下遍历指定目录下指定类型文件的函数

by meiqingsong(阿飛)

【程序编程相关:给初级程序员的一点建议】

// ================================================================ 【推荐阅读:10分钟Hibernate体验】

【扩展信息:clientdataset不能在线程中使】

// 遍历某个文件夹下某种文件,

// 使用说明

//  _getfilelist(listbox1.items,´c:\*.doc´);

// _getfilelist(mytstringlist,´c:\*.exe´);

// ================================================================

procedure tform1._getfilelist(astrings: tstrings ; asourfile: string);

var sour_path,sour_file: string;

tmplist:tstringlist;

filerec:tsearchrec;

begin

sour_path:=extractfilepath(asourfile);

sour_file:=extractfilename(asourfile);

if not directoryexists(sour_path) then

begin

astrings.clear;

exit;

end;

tmplist:=tstringlist.create;

tmplist.clear;

... 下一页

·推荐：无废话xml »显示摘要«

摘要：我现在开始学xml用的是台湾“两只老虎”的《无废话xml》，名字很酷，啊哈？不愧是搞语言学的，写的技术文章也能如此浅显易懂，而且你完全可以在网上免费得到它，它是开放的，for free！http://www.2tigers.net/我喜欢这种精神！！！但是有一点不足之处，也许两只老虎现在都太忙了，网站有一年多没有更新了。但是能从noverbosexml收益，就是我最大的......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：