解决方案 »
- dbgrid如何不用dataset而可以遍历某一列值
- 如何在Calendar控件的单元格中写入数据?
- DELPHI+SPCOMM开发串口程序的问题,急,在线等
- 关于托盘的图标
- ”根异动想要认可,但异动已中止”的错误,如何处理?
- ADO加ORACLE的问题,我在向数据库中插入N条记录后,在数据库中显示的前两条记录跑到最后,而且其他的顺序有些也变了?
- 极其简单的问题,请帮忙.(delphi开发数据库)
- 怎么看 .dll文件?
- Kingron(WinAPI) 谢谢,我试了你告之的api函数,但还有问题,请指教。
- 能否不装ORACLE客户端而对服务器进行连接
- 一个从DLPHI7的程序升级到DELPHI2010的问题
- 在线急等:as3开发的air桌面软件怎么在windows实现一机一码功能?或者说用软件的方法实现加密狗功能?防君子不防小人
参考下sql server的存储过程调用方式with qry1 do
begin
sql.Text:=' ddd :p1';
//ddd为存储过程名,:p1为参数占位符,有多个可以写成 :p1,:p2,:p3...
Parameters[0].Value:='120523' ;
//Parameters[1].Value:='120523' ;
open;
end;
4楼的方法 ,应该是比较常用的方法。
var
hFindFile:Cardinal;
tfile:String;
sCurDir:String;
bEmptyDir:Boolean;
FindFileData:WIN32_FIND_DATA;
begin
//如果删除的是空目录,则置bEmptyDir为True
//初始时,bEmptyDir为True
bEmptyDir:=True;
//先保存当前目录
sCurDir:=GetCurrentDir;
SetLength(sCurDir,Length(sCurDir));
ChDir(sDirName);
hFindFile:=FindFirstFile( '*.* ',FindFileData);
if hFindFile < > INVALID_HANDLE_VALUE then
begin
repeat
tfile:=FindFileData.cFileName;
if (tfile= '. ') or (tfile= '.. ') then
begin
bEmptyDir:=bEmptyDir and True;
Continue;
end;
//不是空目录,置bEmptyDir为False
bEmptyDir:=False;
if FindFileData.dwFileAttributes=
FILE_ATTRIBUTE_DIRECTORY then
begin
if sDirName[Length(sDirName)] < > '\ ' then
DoRemoveDir(sDirName+ '\ '+tfile)
else
DoRemoveDir(sDirName+tfile);
if not RemoveDirectory(PChar(tfile)) then
result:=false
else
result:=true;
end
else
begin
if not DeleteFile(PChar(tfile)) then
result:=false
else
result:=true;
end;
until FindNextFile(hFindFile,FindFileData)=false;
FindClose(hFindFile);
end
else
begin
ChDir(sCurDir);
result:=false;
exit;
end;
//如果是空目录,则删除该空目录
if bEmptyDir then
begin
//返回上一级目录
ChDir( '.. ');
//删除空目录
RemoveDirectory(PChar(sDirName));
end; //回到原来的目录下
ChDir(sCurDir);
result:=true;
end; ---- 2.2删除目录的函数:DeleteDir function DeleteDir(sDirName:String):Boolean;
begin
if Length(sDirName) < =0 then
exit;
//删除...
Result:=DoRemoveDir(sDirName) and RemoveDir(sDirName);
end;