
	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI开发技巧

作者：闵涛文章来源：闵涛的学习笔记点击数：2541 更新时间：2009/4/23 18:29:00

先人的DELPHI基础开发技巧

◇[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.selectall;

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 ... //隐藏

◇[DELPHI]执行程序外文件

WINEXEC//调用可执行文件

winexec(''''command.com /c copy *.* c:\'''',SW_Normal);

winexec(''''start abc.txt'''');

ShellExecute或ShellExecuteEx//启动文件关联程序

function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;

ExecuteFile(''''C:\abc\a.txt'''',''''x.abc'''',''''c:\abc\'''',0);

ExecuteFile(''''http://tingweb.yeah.net'''','''''''','''''''',0);

ExecuteFile(''''mailto:tingweb@wx88.net'''','''''''','''''''',0);

◇[DELPHI]取得系统运行的进程名

var hCurrentWindow:HWnd;szText:array[0..254] of char;

begin

hCurrentWindow:=Getwindow(handle,GW_HWndFrist);

while hCurrentWindow <> 0 do

begin

if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext));

hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);

end;

◇[DELPHI]关于汇编的嵌入

Asm End;

可以任意修改EAX、ECX、EDX；不能修改ESI、EDI、ESP、EBP、EBX。

◇[DELPHI]关于类型转换函数

FloatToStr//浮点转字符串

FloatToStrF//带格式的浮点转字符串

IntToHex//整数转16进制

TimeToStr

DateToStr

DateTimeToStr

FmtStr//按指定格式输出字符串

formatDateTime(''''YYYY-MM-DD,hh-mm-ss'''',DATE);

◇[DELPHI]字符串的过程和函数

Insert(obj,target,pos);//字符串target插入在pos的位置。如插入结果大于target最大长度，多出字符将被截掉。如Pos在255以外，会产生运行错。例如，st:=''''Brian''''，则Insert（''''OK'''',st,2）会使st变为''''BrOKian''''。

Delete(st,pos,Num);//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串。例如，st:=''''Brian''''，则Delete(st,3,2)将变为Brn。

Str(value,st);//将数值value（整型或实型）转换成字符串放在st中。例如，a=2.5E4时，则str(a:10,st)将使st的值为'''' 25000''''。

Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值，存放在var中。St必须是一个表示数值的字符串，并符合数值常数的规则。在转换过程中，如果没有检测出错误，变量code置为0，否则置为第一个出错字符的位置。例如，st:=25.4E3,x是一个实型变量，则val(st,x,code)将使X值为25400，code值为0。

Copy(st.pos.num);//返回st串中一个位置pos（整型）处开始的，含有num（整型）个字符的子串。如果pos大于st字符串的长度，那就会返回一个空串，如果pos在255以外，会引起运行错误。例如，st:=''''Brian''''，则Copy(st,2,2)返回''''ri''''。

Concat(st1,st2,st3……,stn);//把所有自变量表示出的字符串按所给出的顺序连接起来，并返回连接后的值。如果结果的长度255，将产生运行错误。例如，st1:=''''Brian'''',st2:='''' '''',st3:=''''Wilfred''''，则Concat(st1,st2,st3)返回''''Brian Wilfred''''。

Length(st);//返回字符串表达式st的长度。例如，st:=''''Brian''''，则Length(st)返回值为5。

Pos(obj,target);//返回字符串obj在目标字符串target的第一次出现的位置，如果target没有匹配的串，Pos函数的返回值为0。例如，target:=''''Brian Wilfred''''，则Pos(''''Wil'''',target)的返回值是7，Pos(''''hurbet'''',target)的返回值是0。

◇[DELPHI]

[1] [2] [3] [4] [5] [6] [7] 下一页