现在有一个文件夹下存放很多单独的dbf格式的表格,现在我想获得这些文件的名字并赋值给一个listbox 请问如何实现
解决方案 »
- 请帮忙把这段C代码转换成Delphi,非常感谢!
- Float类型和字节的转换
- 帮我看看,为什么我createprocess的程序没有执行啊
- 请教一个关于API的问题,高手请进!高分奉上!在线等啊!急!急!急!急!急!急!急!急!急!急!急!急!
- 用TWebBrowser.Navigate('c:\123.xls')打开后,如何用程序实现在Sheet间的跳转?
- “我是鋤禾,你是當午”我今天才知道這句話是什麼意思 ,我暈
- min()的用法。
- 学sql不久,对SQL不是很熟,求一SQL SERVER备份和恢复的源码,好急!
- 请教:如何不让Edit、Memo编辑框获得输入焦点?
- 我在DLL中调用ADO运行时会出现‘没有调用CoInitialize’,HELP ME!
- 谁帮改一下此代码?
- DELPHI调用网页中javascript函数的问题,急,
var
F: TSearchRec;
hFind: Integer;
begin
if (Dir <> '') and (Dir[Length(Dir)] <> '\') then
Dir := Dir + '\';
hFind := FindFirst(Dir + '*.*', faAnyFile, F);
while hFind = 0 do
begin
if (F.Name <> '.') and (F.Name <> '..') then
begin
if F.Attr and faDirectory <> faDirectory then
Files.Add(Dir + F.Name)
else if bRecursive then
begin
DoLoad(Dir + F.Name, Files);
Files.AddObject(Dir + F.Name, TObject(1));
end;
end;
hFind := FindNext(F);
end;
FindClose(F);
end;begin
Files.BeginUpdate;
try
Files.Clear;
DoLoad(Dir, Files);
finally
Files.EndUpdate;
end;
end;
eg:
LoadDirFiles('放dbf文件夹路径', ListBox.Items, False);
hFind := FindFirst(Dir + '*.dbf', faAnyFile, F);