知识大全 Delphi编程技巧集锦

Posted 2022-07-14 知

篇首语：白日放歌须纵酒，青春作伴好还乡。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi编程技巧集锦相关的知识，希望对你有一定的参考价值。

Delphi编程技巧集锦 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar( newfile txt ) pchar( //putername/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[ ] of char; geindowsdirectory(windir sizeof(windir)); 或者从注册表中读取位置 HKEY_LOCAL_MACHINE\\Sofare\\Microsoft\\Windows\\CurrentVersion SystemRoot键取得如 C:\\WINDOWS

[DELPHI]在FORM或其他容器上画线 var x y:array [ ] of integer; canvas pen color:=clred; canvas pen style:=psDash; form canvas moveto(trunc(x[i]) trunc(y[i])); form canvas lineto(trunc(x[j]) trunc(y[j]));

[DELPHI]字符串列表使用 var tips:tstringlist; tips:=tstringlist create; tips loadfromfile( filename txt ); edit text:=tips[ ]; tips add( last line addition string ); tips insert( insert string at NO line ); tips savetofile( newfile txt ); tips free;

[DELPHI]简单的剪贴板操作 richedit selectall; richedit copytoclipboard; richedit cuttoclipboard; edit pastefromclipboard;

[DELPHI]关于文件目录操作 Chdir( c:\\abcdir );转到目录 Mkdir( dirname );建立目录 Rmdir( dirname );删除目录 GetCurrentDir;//取当前目录名无 \\ Getdir( s);//取工作目录名s:= c:\\abcdir ; Deletfile( abc txt );//删除文件 Renamefile( old txt new txt );//文件更名 ExtractFilename(filelistbox filename);//取文件名 ExtractFileExt(filelistbox filename);//取文件后缀

[DELPHI]处理文件属性 attr:=filegetattr(filelistbox 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( mand /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\\ ); ExecuteFile( //tingweb yeah net ); ExecuteFile( mailto:tingweb@wx net );

[DELPHI]取得系统运行的进程名 var hCurrentWindow:HWnd;szText:array[ ] of char; begin hCurrentWindow:=Geindow(handle GW_HWndFrist); while hCurrentWindow <> do begin if Geindowtext(hcurrneindow @sztext )> then listbox items add(strpas(@sztext)); hCurrentWindow:=Geindow(hCurrenindow GW_HWndNext); end; end;

[DELPHI]关于汇编的嵌入 Asm End; 可以任意修改EAX ECX EDX 不能修改ESI EDI ESP EBP EBX

[DELPHI]关于类型转换函数 FloatToStr//浮点转字符串 FloatToStrF//带格式的浮点转字符串 IntToHex//整数转进制 TimeToStr DateToStr DateTimeToStr FmtStr//按指定格式输出字符串 FormatDateTime( YYYY MM DD hh mm ss DATE);

[DELPHI]字符串的过程和函数Insert(obj target pos);//字符串target插入在pos的位置如插入结果大于target最大长度多出字符将被截掉如Pos在以外会产生运行错例如 st:= Brian 则Insert（ OK st ）会使st变为 BrOKian Delete(st pos Num);//从st串中的pos（整型）位置开始删去个数为Num（整型）个字符的子字串例如 st:= Brian 则Delete(st )将变为Brn Str(value st);//将数值value（整型或实型）转换成字符串放在st中例如 a= E 时则str(a: st)将使st的值为 Val(st var code);//把字符串表达式st转换为对应整型或实型数值存放在var中 St必须是一个表示数值的字符串并符合数值常数的规则在转换过程中如果没有检测出错误变量code置为否则置为第一个出错字符的位置例如 st:= E x是一个实型变量则val(st x code)将使X值为 code值为 Copy(st pos num);//返回st串中一个位置pos（整型）处开始的含有num（整型）个字符的子串如果pos大于st字符串的长度那就会返回一个空串如果pos在以外会引起运行错误例如 st:= Brian 则Copy(st )返回 ri Concat(st st st …… stn);//把所有自变量表示出的字符串按所给出的顺序连接起来并返回连接后的值如果结果的长度将产生运行错误例如 st := Brian st := st := Wilfred 则Concat(st st st )返回 Brian Wilfred Length(st);//返回字符串表达式st的长度例如 st:= Brian 则Length(st)返回值为 Pos(obj target);//返回字符串obj在目标字符串target的第一次出现的位置如果target没有匹配的串 Pos函数的返回值为例如 target:= Brian Wilfred 则Pos( Wil target)的返回值是 Pos( hurbet target)的返回值是

[DELPHI]关于处理注册表 uses Registry; var reg:Tregistry; reg:=Tregistry create; reg rootkey:= HKey_Current_User ; reg openkey( Control Panel\\Desktop false); reg WriteString( Title Wallpaper ); reg writeString( Wallpaper filelistbox filename); reg closereg; reg free;

[DELPHI]关于键盘常量名 VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE /VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN F F $ ( ) $ B( ) A Z $ ( ) $ A( ) $ ( ) $ ( ) ◇[DELPHI]初步判断程序母语 DELPHI软件的DOS提示 This Program Must Be Run Under Win VC++软件的DOS提示 This Program Cannot Be Run In DOS Mode

[DELPHI]操作Cookie response cookies( name ) domain:= // net ; with response cookies add do begin name:= username ; value:= username ; end

[DELPHI]增加到文档菜单连接 uses shellapi shlOBJ; shAddToRecentDocs(shArd_path pchar(filepath));//增加连接 shAddToRecentDocs(shArd_path nil);//清空

[杂类]备份智能ABC输入法词库 windows\\system\\user rem windows\\system\\tmmr rem

[DELPHI]判断鼠标按键 if GetAsyncKeyState(VK_LButton)<> then //左键 if GetAsyncKeyState(VK_MButton)<> then //中键 if GetAsyncKeyState(VK_RButton)<> then //右键

[DELPHI]设置窗体的最大显示 onFormCreate事件 self width:=screen width; self height:=screen height;

[DELPHI]按键接受消息 OnCreate事件中处理 Application OnMessage:=MyOnMessage; procedure TForm MyOnMessage(var MSG:TMSG;var Handle:Boolean); begin if msg message= then //ANY键 if msg message= then //F if msg message= then //F end;

[杂类]隐藏共享文件夹共享效果可访问但不可见（在资源管理网络邻居中）取共享名为 direction$ 访问 //puter/dirction/

[Java Script]Java Script网页常用效果网页秒定时关闭 <script language= java script ><! settimeout( window close(); ) ></script> 关闭窗口 <a href= / onclick= javascript:window close();return false; >关闭定时转URL <meta equiv= refresh content= ;url=// net > 设为首页 <a onclick= this style behavior= url(#default#homepage) ;this sethomepage( // net ); href= # >设为首页收藏本站 <a href= javascript:window external addfavorite( // net [未名码头] ) >收藏本站加入频道 <a href= javascript:window external addchannel( // net ) >加入频道

[DELPHI]文本编辑相关 checkbox checked:=not checkbox checked; if checkbox checked then richedit font style:=richedit font style+[fsBold] else richedit font style:=richedit font style [fsBold]//粗体 if checkbox checked then richedit font style:=richedit font style+[fsItalic] else richedit font style:=richedit font style [fsItalic]//斜体 if checkbox checked then richedit font style:=richedit font style+[fsUnderline] else richedit font style:=richedit font style [fsUnderline]//下划线 memo alignment:=taLeftJustify;//居左 memo alignment:=taRightJustify;//居右 memo alignment:=taCenter;//居中

[DELPHI]随机产生文本色 randomize;//随机种子 memo font color:=rgb(random( ) random( ) random( ));

[DELPHI]DELPHI UPDATE升级补丁序列号 X fx

[DELPHI]文件名的非法字符过滤 for i:= to length(s) do if s[i] in [ \\ / : * ? < > | ] then

[DELPHI]转换函数的定义及说明 datetimetofiledate (datetime:Tdatetime):longint;将Tdatetime格式的日期时间值转换成DOS格式的日期时间值 datetimetostr (datetime:Tdatetime):string;将Tdatatime格式变量转换成字符串如果datetime参数不包含日期值返回字符串日期显示成为 / / 如果datetime参数中没有时间值返回字符串中的时间部分显示成为 AM datetimetostring (var result string; const format:string; datetime:Tdatetime);根据给定的格式字符串转换时间和日期值 result为结果字符串 format为转换格式字符串 datetime为日期时间值datetostr (date:Tdatetime)使用shortdateformat全局变量定义的格式字符串将date参数转换成对应的字符串 floattodecimal (var result:Tfloatrec;value: extended;precision decimals: integer); 将浮点数转换成十进制表示 floattostr (value:extended):string 将浮点数value转换成字符串格式该转换使用普通数字格式转换的有效位数为位 floattotext (buffer:pchar;value:extended; format:Tfloatformat;precision digits:integer):integer; 用给定的格式精度和小数将浮点值value转换成十进制表示形式转换结果存放于buffer参数中函数返回值为存储到buffer中的字符位数 buffer是非结果的字符串缓冲区 floattotextfmt (buffer:pchar;value:extended; format:pchar):integer 用给定的格式将浮点值value转换成十进制表示形式转换结果存放于buffer参数中函数返回值为存储到buffer中的字符位数 inttohex (value:longint;digits:integer): string; 将给定的数值value转换成十六进制的字符串参数digits给出转换结果字符串包含的数字位数 inttostr (value:longint):string 将整数转换成十进制形式字符串 strtodate (const S:string):Tdatetime 将字符串转换成日期值 S必须包含一个合法的格式日期的字符串 strtodatetime (const S:string):Tdatetime 将字符串S转换成日期时间格式 S必须具有MM/DD/YY HH MM SS[AM|PM]格式其中日期和时间分隔符与系统时期时间常量设置相关如果没有指定AM或PM信息表示使用小时制 strtofloat (const S:string):extended; 将给定的字符串转换成浮点数字符串具有如下格式 [+| ]nnn…[ ]nnn…[<+| ><E|e><+| >nnnn] strtoint (const S:string):longint 将数字字符串转换成整数字符串可以是十进制或十六进制格式如果字符串不是一个合法的数字字符串系统发生ECONVERTERROR异常 strtointdef (const S:string;default: longint):longint;将字符串S转换成数字如果不能将S转换成数字 strtointdef函数返回参数default的值 strtotime (const S:string):Tdatetime 将字符串S转换成TDATETIME值 S具有HH MM SS[AM|PM]格式实际的格式与系统的时间相关的全局变量有关 timetostr (time:Tdatetime):string; 将参数TIME转换成字符串转换结果字符串的格式与系统的时间相关常量的设置有关

[DELPHI]程序不出现在ALT+CTRL+DEL 在implementation后添加声明: function RegisterServiceProcess(dwProcessID dwType: Integer): Integer; stdcall; external KERNEL DLL ; RegisterServiceProcess(GetCurrentProcessID );//隐藏 RegisterServiceProcess(GetCurrentProcessID );//显示用ALT+DEL+CTRL看不见

cha138/Article/program/Delphi/201311/8512