很急,谢谢,
解决方案 »
- ???如何设计这样的游戏平台 ???
- 如何把已经打开的窗体设置为当前窗体?
- 程序发布的简单问题
- “高分”求一个省计算机技能比赛的课题,要有创新!!!!!!
- 这条语句哪里有错? if (trim(combox1.Text)='' and trim(combox2.Text)='') then
- 为什么MSCOMM每次最多只能收16个字符
- IME 输入法的imeMode如何保存到注册表?
- 我有个自动规范源码的控件,在Delphi5下用,要的请留言!
- 我想用delphi自带的Micorsoft help workshop做帮助行么,在delphi哪里呀,我没找到!
- 在开发数据库程序时,如何避免发生这样的错误
- 菜鸟问题!俺初学DELPHI,想安装DBTREEVIEW组件可是安不上请各位大虾帮帮俺!!!多谢!!!
- 怎么把一篇文章里的单词一个个读出按理(急!!!!)
var
fpath: String;
fs: TsearchRec;
begin
fpath:=disk+path+'\*.*';
if findfirst(fpath,faAnyFile,fs)=0 then
begin
if (fs.Name<>'.')and(fs.Name<>'..') then
if (fs.Attr and faDirectory)=faDirectory then
findall(disk,path+'\'+fs.Name,fileresult)
else
fileresult.add(disk+strpas(strupper(pchar(path)))+'\'+strpas(
strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');
while findnext(fs)=0 do
begin
if (fs.Name<>'.')and(fs.Name<>'..') then
if (fs.Attr and faDirectory)=faDirectory then
findall(disk,path+'\'+fs.Name,fileresult)
else
fileresult.add(disk+strpas(strupper(pchar(path)))+'\'+str
pas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');
end;
end;
findclose(fs);
end; 读取返回值fileresult.items即可