这个代码怎么写,?????
解决方案 »
- Delphi方面的书推荐!
- 怎样将TMemoryStream 每64个字节读入到byte数组里面 ,然后按包传输。
- 大家介绍几本讲TCP/IP协议的书
- 有关统计财务方面的SQL语句
- 要真正的高手请进!
- 为什么在Delphi中有些属性会在前面加上两个‘英文字符’?
- 关于Delphi整型数据的查询sql语句问题!
- 如何用代码实现将剪切板的内容粘贴到word中并重新全选再复制回剪切板???
- 急、急_我用的是"msaccess"数据库,在插入记录时怎样才能在当前记录前、后插入记录!多谢!!
- 关于CreateOleObject~!!谢谢
- 帮忙看下这个代码有什么问题,编译没通过
- xe6 pchar 不能连接???
var
SearchRec:TSearchRec;
found:integer;
listbox1:string;
begin
found:=FindFirst(path+'*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..')
and (SearchRec.Attr<>faDirectory) then
ListBox1.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
var SearchRec:TSearchRec;
found:integer;
list:TStringList;
begin
list:=TStringList.Create;
found:=FindFirst(path+'\*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDirectory)
then List.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
searchfile:=list;
end;
楼上有错误,修改后,编译并执行。