2022年DELPHI学习教程 .pdf

《2022年DELPHI学习教程 .pdf》由会员分享，可在线阅读，更多相关《2022年DELPHI学习教程 .pdf（45页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Delphi 整型数据类型位与数值范围：Integer -2147483648.2147483647 signed 32-bit Cardinal 0.4294967295 unsigned 32-bit Shortint -128.127 signed 8-bit Smallint -32768.32767 signed 16-bit Longint -2147483648.2147483647 signed 32-bit Int64 -263.263? signed 64-bit Byte 0.255 unsigned 8-bit Word 0.65535 unsigned 16-bit

2、Longword 0.4294967295 unsigned 32-bit Delphi 常用快捷键：1 组件设计类Ctrl+ C 复制组件Ctrl+ V 粘贴组件Ctrl+ X 剪切组件（以上三个快捷键可同时应用于程序编写类）Ctrl + 方向键将所选组建的位置移动一个像素Shift+ 方向键将所选组建的大小移动一个像素Ctrl + Shift+ 方向键将所选组建的位置移动一个栅格Tab 选择当前组建的下一个组件Shift+Tab 选择当前组建的上一个组件方向键选中此方向上距离当前组建最近的一个组建Shift+ 鼠标左键单击选中多个组件Del 删除所选组件Esc 选择当前组建的容器Ctrl+

3、 鼠标左键按下拖动可选择一个容器内的多个组件提醒 当选择了多个组件时可以改变它们的共有属性. 2 程序编写类F1 显示光标所在单词帮助信息Ctrl+ 鼠标单击跳转到声明处Shift+Alt 选择代码快Ctrl+Shift +U 将选中的代码整体左移两个字符宽度Ctrl+Shift +I 将选中的代码整体右移两个字符宽度Ctrl+Shift+ 上下方向键在过程或函数的声明和实现之间切换Ctrl+Shift+ 09 在光标所在行设置 /取消 书签Ctrl+09 返回到书签所在位置Ctrl+J 插入标准语法（本文最后有示例) Ctrl+Y 删除光标所在行Ctrl+Q+Y 删除光标位置后改行的内容Ct

4、rl+BackSpace 删除光标前一个单词名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 45 页 - - - - - - - - - Ctrl+K+E 将所选单词全部转换为小写Ctrl+K+F 将所选的单词全部转换为大写Ctrl+O+U 将所选的单词作大小写转化Ctrl+Home 到达单元头部Ctrl+End 到达单元尾部Ctrl+F 调出搜索对话框F3 继续搜索Ctrl+R 调出替换对话框Ctrl+Shift+G 插入 GUID 号Ctrl+Shift+C 完成一声

5、明类的实现Ctrl+Shift+T 插入 TO-DO List （强烈推荐使用ToDo List ，可以简单写成“ /TODO ：你要写的内容” 通过菜单 View|To-Do List 即可察看）注意 所有的数字键不能使用小键盘上的数字键。3 程序调试类F5 设置 /取消设置程序的断点F7 逐步调试，调试深入每一个相关的子函数/过程体内F8 单步调试，但是不进入到相关的子函数/过程体内F9 编译并运行（可以设置断点进行调试）Ctrl+F3 调出 Call Stack 窗口Ctrl+F9 只编译不运行Alt+F2 调出 CPU 视图窗口Ctrl+F2 结束程序调试运行状态，回到程序编辑状态Ct

6、rl+F7 观察代码的值并附加新值（采用Modify 功能）进行调试Ctrl+F5 查看对象在不同数据类型下的值的情况4 程序管理类F11 在 Form/Unit 和 Object Inspector 之间切换F12 在 Form 和 Unit 之间切换Ctrl+F11 显示 “Open Project”对话框Ctrl + F12 显示 “ 查看 Unit ”对话框Shift+ F12 显示 “ 查看 Form” 对话框Shift+F11 调出 “ Add To Project”对话框Ctrl+Shift+F11 弹出 Project Options （工程管理器）Shift+Alt+F11

7、在 Form/Unit 和 Object TreeView 之间切换名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 45 页 - - - - - - - - - 一 Ctrl+J 示例：1 输入 i 之后 ，按 Ctrl+J 显示有 ifb ife ifeb ifs四个选项ifb 对应： if then begin end; ife 对应： if then else ifeb 对应：if then begin end else begin end; ifs 对应：if t

8、hen 2 输入 fu 后按 Ctrl+J 生成代码：function (): ; begin end; 3 输入 pr 后按 Ctrl+J 生成代码：procedure (); begin end; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 45 页 - - - - - - - - - 4 输入 f 后按 Ctrl+J 选择 forb 生成代码： for := to do begin end; 还有更多，自己试试吧。二 Ctrl+Shift+C 示例1 type

9、TForm1 = class(TForm) private procedure Foo;/使光标此行，按 Ctrl+Shift+C public end; Delphi 自动生成：procedure TForm1.Foo; begin end; 2 TForm1 = class(TForm) private public property Mark:integer read GetMark write SetMark;/使光标此行，按 Ctrl+ Shift+C end; 代码变为： TForm1 = class(TForm) private function GetMark: integer

10、; /此行自动生成 procedure SetMark(const Value: integer);/ 此行自动生成 public property Mark:integer read GetMark write SetMark; end; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 45 页 - - - - - - - - - 以下代码自动生成：function TForm1.GetMark: integer; begin end; procedure TForm1

11、.SetMark(const Value: integer); begin end; 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

12、;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:array0.255 of char; getwindowsdirectory(windir,sizeof(windir); 或者从注册表中读取，位置：HKEY_LOCAL_M

13、ACHINESoftwareMicrosoftWindowsCurrentVersion 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(xi),trunc(yi); form1.canvas.lineto(trunc(xj),trunc(yj); DELPHI 字符串列表使用var tips:tstringlist; tips:=

14、tstringlist.create; tips.loadfromfile(filename.txt); edit1.text:=tips0; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 45 页 - - - - - - - - - tips.add(last line addition string); tips.insert(1,insert string at NO 2 line); tips.savetofile(newfile.txt); tips.free

15、; 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.

16、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 a

17、nd faHidden)=faHidden then . / 隐藏 DELPHI 执行程序外文件WINEXEC/ 调用可执行文件winexec( /c copy *.* c:,SW_Normal); winexec(start abc.txt); ShellExecute 或 ShellExecuteEx/ 启动文件关联程序function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle; ExecuteFile(C:abca.txt,x.abc,c:abc,0); ExecuteFile

18、(http:/,0); ExecuteFile(mailto:,0); DELPHI 取得系统运行的进程名var hCurrentWindow:HWnd;szText:array0.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

19、(hCurrentwindow,GW_HWndNext); end; end; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 45 页 - - - - - - - - - DELPHI 关于汇编的嵌入Asm End; 可以任意修改EAX 、ECX、 EDX ；不能修改ESI、EDI 、ESP、EBP、EBX 。 DELPHI 关于类型转换函数FloatToStr/浮点转字符串FloatToStrF/带格式的浮点转字符串IntToHex/ 整数转 16 进制TimeToS

20、tr 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（整

21、型）个字符的子字串。例如， 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) 将使

22、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)返回

23、 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)的返回值名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - -

24、- - - - 第 7 页，共 45 页 - - - - - - - - - 是 0。 DELPHI 关于处理注册表uses Registry; var reg:Tregistry; reg:=Tregistry.create; reg.rootkey:=HKey_Current_User; reg.openkey(Control PanelDesktop,false); reg.WriteString(Title Wallpaper,0); reg.writeString(Wallpaper,filelistbox1.filename); reg.closereg; reg.free; DE

25、LPHI 关于键盘常量名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 F1-F12：$70(112)-$7B(123) A-Z ：$41(65)-$5A(90) 0-9：$30(48)-$39(57) DELPHI 初步判断程序母语DELPHI 软件的 DOS 提示： This Program Must Be Run Under Win32. VC+ 软件的 DOS 提示： This Program Cannot B

26、e Run In DOS Mode. DELPHI 操作 Cookie response.cookies(name).domain:=http:/; 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 输入法词库windowss

27、ystemuser.rem windowssystemtmmr.rem DELPHI 判断鼠标按键if GetAsyncKeyState(VK_LButton)0 then . /左键if GetAsyncKeyState(VK_MButton)0 then . /中键if GetAsyncKeyState(VK_RButton)0 then . /右键 DELPHI 设置窗体的最大显示onFormCreate 事件self.width:=screen.width; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理

28、- - - - - - - 第 8 页，共 45 页 - - - - - - - - - self.height:=screen.height; DELPHI 按键接受消息OnCreate 事件中处理：Application.OnMessage:=MyOnMessage; procedure TForm1.MyOnMessage(var MSG:TMSG;var Handle:Boolean); begin if msg.message=256 then . /ANY 键if msg.message=112 then . /F1 if msg.message=113 then . /F2 en

29、d; 杂类 隐藏共享文件夹共享效果：可访问，但不可见（在资源管理、网络邻居中）取共享名为：direction$ 访问： /computer/dirction/ Java ScriptJava Script 网页常用效果网页 60 秒定时关闭 关闭窗口关闭 定时转 URL 设为首页设为首页 收藏本站 收藏本站 加入频道加入频道 DELPHI 文本编辑相关checkbox1.checked:=not checkbox1.checked; if checkbox1.checked then richedit1.font.style:=richedit1.font.style+fsBold else

30、richedit1.font.style:=richedit1.font.style-fsBold/粗体if checkbox1.checked then richedit1.font.style:=richedit1.font.style+fsItalic else richedit1.font.style:=richedit1.font.style-fsItalic/斜体if checkbox1.checked then richedit1.font.style:=richedit1.font.style+fsUnderline else richedit1.font.style:=ric

31、hedit1.font.style-fsUnderline/下划线memo1.alignment:=taLeftJustify;/ 居左memo1.alignment:=taRightJustify;/ 居右名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 45 页 - - - - - - - - - memo1.alignment:=taCenter;/ 居中 DELPHI 随机产生文本色randomize;/随机种子memo1.font.color:=rgb(rando

32、m(255),random(255),random(255); DELPHIDELPHI5 UPDATE升级补丁序列号1000003185 90X25fx0 DELPHI 文件名的非法字符过滤for i:=1 to length(s) do if si in ,/,:,*,?,| then DELPHI 转换函数的定义及说明datetimetofiledate (datetime:Tdatetime):longint; 将 Tdatetime 格式的日期时间值转换成DOS 格式的日期时间值datetimetostr (datetime:Tdatetime):string; 将 Tdatatim

33、e 格式变量转换成字符串，如果datetime 参数不包含日期值，返回字符串日期显示成为00/00/00，如果datetime 参数中没有时间值，返回字符串中的时间部分显示成为00：00：00 AM datetimetostring (var result string; const format:string; datetime:Tdatetime); 根据给定的格式字符串转换时间和日期值，result 为结果字符串，format 为转换格式字符串， datetime 为日期时间值datetostr (date:Tdatetime) 使用 shortdateformat 全局变量定义的格式字

34、符串将date参数转换成对应的字符串floattodecimal (var result:Tfloatrec;value: extended;precision,decimals: integer); 将浮点数转换成十进制表示floattostr (value:extended):string 将浮点数value 转换成字符串格式，该转换使用普通数字格式，转换的有效位数为 15 位。floattotext (buffer:pchar;value:extended; format:Tfloatformat;precision, digits:integer):integer; 用给定的格式、精度

35、和小数将浮点值value 转换成十进制表示形式，转换结果存放于 buffer 参数中，函数返回值为存储到buffer 中的字符位数，buffer 是非 0 结果的字符串缓冲区。floattotextfmt (buffer:pchar;value:extended; format:pchar):integer 用给定的格式将浮点值value 转换成十进制表示形式，转换结果存放于buffer 参数中， 函数返回值为存储到buffer 中的字符位数。inttohex (value:longint;digits:integer): string; 将给定的数值value 转换成十六进制的字符串。参数d

36、igits 给出转换结果字符串包含的数字位数。inttostr (value:longint):string 将整数转换成十进制形式字符串strtodate (const S:string):Tdatetime 将字符串转换成日期值，S 必须包含一个合法的格式日期的字符串。strtodatetime (const S:string):Tdatetime 将字符串S 转换成日期时间格式，S 必须具有MM/DD/YY 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 45 页

37、 - - - - - - - - - HH ：MM ：SSAM|PM 格式，其中日期和时间分隔符与系统时期时间常量设置相关。如果没有指定AM或PM 信息，表示使用24 小时制。strtofloat (const S:string):extended; 将给定的字符串转换成浮点数，字符串具有如下格式：+|-nnn .nnn nnnn strtoint (const S:string):longint 将数字字符串转换成整数，字符串可以是十进制或十六进制格式，如果字符串不是一个合法的数字字符串，系统发生ECONVERTERROR 异常strtointdef (const S:string;defa

38、ult: longint):longint; 将字符串S 转换成数字，如果不能将S 转换成数字， strtointdef 函数返回参数default 的值。strtotime (const S:string):Tdatetime 将字符串S 转换成 TDATETIME值， S具有 HH ：MM ：SSAM|PM 格式，实际的格式与系统的时间相关的全局变量有关。timetostr (time:Tdatetime):string; 将参数 TIME 转换成字符串。转换结果字符串的格式与系统的时间相关常量的设置有关。 DELPHI 程序不出现在ALT+CTRL+DEL 在 implementatio

39、n 后添加声明 : function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external KERNEL32.DLL; RegisterServiceProcess(GetCurrentProcessID, 1);/ 隐藏RegisterServiceProcess(GetCurrentProcessID, 0);/ 显示用 ALT+DEL+CTRL看不见 DELPHI 程序不出现在任务栏uses windows var ExtendedStyle : Integer; begin Ap

40、plication.Initialize; /= ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE); SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW); /= Application.CreateForm(TForm1, Form1); Application.Run; end. DELPHI 如何判断拨号网络是开还是关if GetSystemMetric

41、s(SM_NETWORK) AND $01 = $01 then showmessage(在线 !) else showmessage( 不在线 !); DELPHI 实现 IP 到域名的转换function GetDomainName(Ip:string):string; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 45 页 - - - - - - - - - var pH:PHostent; data:twsadata; ii:dword; begin WSAS

42、tartup($101, Data); ii:=inet_addr(pchar(ip); pH:=gethostbyaddr(ii,sizeof(ii),PF_INET); if (phnil) then result:=pH.h_name else result:=; WSACleanup; end; DELPHI 处理“右键菜单”方法var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey:=HKEY_CLASSES_ROOT; reg.OpenKey(*shellcheckcommand, true); reg.Writ

43、eString(, + application.ExeName + %1); reg.CloseKey; reg.OpenKey(*shelldiary, false); reg.WriteString(, 操作 (&C); reg.CloseKey; reg.Free; showmessage(DONE!); end; DELPHI 发送虚拟键值ctrl V procedure sendpaste; begin keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0); keybd_event(ord(V), MapVirtual

44、Key(ord(V), 0), 0, 0); keybd_event(ord(V), MapVirtualKey(ord(V), 0), KEYEVENTF_KEYUP, 0); keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); end; DELPHI 当前的光驱的盘符procedure getcdrom(var cd:char); var str:string; drivers:integer; driver:char; i,temp:integer; begin drivers:=getlo

45、gicaldrives; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 12 页，共 45 页 - - - - - - - - - temp:=(1 and drivers); for i:=0 to 26 do begin if temp=1 then begin driver:=char(i+integer(a); str:=driver+:; if getdrivetype(pchar(str)=drive_cdrom then begin cd:=driver; exit;

46、 end; end; drivers:=(drivers shr 1); temp:=(1 and drivers); end; end; DELPHI 字符的加密与解密function cryptstr(const s:string; stype: dword):string; var i: integer; fkey: integer; begin result:=; case stype of 0: setpass; begin randomize; fkey := random($ff); for i:=1 to length(s) do result := result+chr( o

47、rd(si) xor i xor fkey); result := result + char(fkey); end; 1: getpass begin fkey := ord(slength(s); for i:=1 to length(s) - 1 do result := result+chr( ord(si) xor i xor fkey); end; end; DELPHI 向其他应用程序发送模拟键var h: THandle; begin h := FindWindow(nil, 应用程序标题); PostMessage(h, WM_KEYDOWN, VK_F9, 0);/发送 F

48、9 键end; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 13 页，共 45 页 - - - - - - - - - DELPHIDELPHI 支持的 DAO 数据格式td.Fields.Append(td.CreateField (dbBoolean,dbBoolean,0); td.Fields.Append(td.CreateField (dbByte,dbByte,0); td.Fields.Append(td.CreateField (dbInteger,dbInte

49、ger,0); td.Fields.Append(td.CreateField (dbLong,dbLong,0); td.Fields.Append(td.CreateField (dbCurrency,dbCurrency,0); td.Fields.Append(td.CreateField (dbSingle,dbSingle,0); td.Fields.Append(td.CreateField (dbDouble,dbDouble,0); td.Fields.Append(td.CreateField (dbDate,dbDate,0); td.Fields.Append(td.C

50、reateField (dbBinary,dbBinary,0); td.Fields.Append(td.CreateField (dbText,dbText,0); td.Fields.Append(td.CreateField (dbLongBinary,dbLongBinary,0); td.Fields.Append(td.CreateField (dbMemo,dbMemo,0); td.FieldsID.Set_Attributes(dbAutoIncrField);/自增字段 DELPHIDELPHI配置 MS SQL 7 和 BDE 步骤第一步，配置ODBC ：先在 ODBC