计算机二级考试DELPHI基础开发技巧
文章作者 100test 发表时间 2011:03:22 18:44:25
来源 100Test.Com百考试题网
导读：详细介绍计算机二级考试DELPHI基础开发技巧。
编辑推荐:
#0000ff>获取斐波那契数列的函数
#0000ff>2010年9月全国计算机等级考试各科模拟试题冲刺
更多相关资料:
#0000ff>百考试题教育全国计算机等级考试在线测试平台
#0000ff>全国计算机等级考试论坛
◇[DELPHI]网络邻居复制文件
uses shellapi.
copyfile(pchar( newfile.txt ),pchar( //computername/direction/targer.txt ),false).
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:
var xpanel,ypanel,xlabel,ylabel:integer.
PANEL的MouseMove事件:xpanel:=x.ypanel:=y.
PANEL的DragOver 事件:xpanel:=x.ypanel:=y.
LABEL的MouseMove事件:xlabel:=x.ylabel:=y.
LABEL的EndDrag 事件:label.left:=xpanel-xlabel.label.top:=ypanel-ylabel.
◇[DELPHI]取得WINDOWS目录
uses shellapi.
var windir:array[0..255] of char.
getwindowsdirectory(windir,sizeof(windir)).
或者从注册表中读取,位置:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot键,取得如:C:\WINDOWS
◇[DELPHI]在FORM或其他容器上画线
var x,y:array [0..50] of integer.
canvas.pen.color:=clred.
canvas.pen.style:=psDash.
form1.canvas.moveto(trunc(x[i]),trunc(y[i])).
form1.canvas.lineto(trunc(x[j]),trunc(y[j])).
◇[DELPHI]字符串列表使用
var tips:tstringlist.
tips:=tstringlist.create.
tips.loadfromfile( filename.txt ).
edit1.text:=tips[0].
tips.add( last line addition string ).
tips.insert(1, insert string at NO 2 line ).
tips.savetofile( newfile.txt ).
tips.free.
◇[DELPHI]简单的剪贴板操作
richedit1.0selectall.
richedit1.copytoclipboard.
richedit1.cuttoclipboard.
edit1.pastefromclipboard.
◇[DELPHI]关于文件、目录操作
Chdir( c:\abcdir ).转到目录
Mkdir( dirname ).建立目录
Rmdir( dirname ).删除目录
GetCurrentDir.//取当前目录名,无 \
Getdir(0,s).//取工作目录名s:= c:\abcdir .
Deletfile( abc.txt ).//删除文件
Renamefile( old.txt , new.txt ).//文件更名
ExtractFilename(filelistbox1.filename).//取文件名
ExtractFileExt(filelistbox1.filename).//取文件后缀
◇[DELPHI]处理文件属性
attr:=filegetattr(filelistbox1.filename).
if (attr and faReadonly)=faReadonly then ... //只读
if (attr and faSysfile)=faSysfile then ... //系统
if (attr and faArchive)=faArchive then ... //存档
if (attr and faHidden)=faHidden then ... //隐藏