Cappuccino你在回答的问题中搜一下,我回答过一个一摸一样的问题!
解决方案 »
- 下面汉字转拼音函数是从网络下载的,很好,能将“滕钰鑫炜”等生僻字的声母都能转换出来,但是,“旸”等字却无法转换。请帮助修改一下!
- 请教,如何在dbgrid中增加一类似checkbox的选择?
- 求救:两个窗体之间控件的相互控制的问题
- ??关于Form的ShowModal方法,谢谢先!!!
- 我在打印发票时打印完一张后,打印机就自动不停的走纸,请大家给点提示,马上给分
- 菜鸟问题!如何用SQL语句删除记录呢?
- 请来看看里面的问题!顺便来拿分吧!
- 本地SQL创建数据表时出错???在线等待!!!
- 在Delphi中到底是如何操作HTML文件的啊,谁来讲解一下啊
- delphi 的隱藏問題....
- 请问如何截获其他应用程序的消息?
- 怎样自动输入密码!!!
Windows, Messages, SysUtils, Classes, FileCtrl; procedure FindFilesInDir(const sDir, sExt: string; slFile: TStrings;
bIncludeSubDir: boolean);
implementationprocedure FindFilesInDir(const sDir, sExt: string; slFile: TStrings;
bIncludeSubDir: boolean);
var
SearchRec: TSearchRec;
sTmp, Dir: string;
begin
Dir := trim(sDir);
if copy(Dir, length(Dir), 1) <> '\' then Dir := Dir + '\';
if FindFirst(Dir + '*.*', faAnyfile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Name = '.') or (SearchRec.Name = '..') then
begin
;
end
else if ((SearchRec.Attr and fadirectory) <> 0) and bIncludeSubDir then
begin
FindFilesInDir(Dir + SearchRec.Name, sExt, slFile, bIncludeSubDir);
end
else
begin
sTmp := UpperCase(ExtractFileExt(SearchRec.Name));
if sTmp = '.' + UpperCase(sExt) then
slFile.Add(Dir + SearchRec.Name);
end;
until FindNext(SearchRec) <> 0
end;
FindClose(SearchRec);
end;end.