DELPHI学习教程.docx
- 文档编号:5454088
- 上传时间:2022-12-16
- 格式:DOCX
- 页数:66
- 大小:48.01KB
DELPHI学习教程.docx
《DELPHI学习教程.docx》由会员分享,可在线阅读,更多相关《DELPHI学习教程.docx(66页珍藏版)》请在冰豆网上搜索。
DELPHI学习教程
Delphi整型数据类型位与数值范围:
Integer-2147483648..2147483647signed32-bit
Cardinal0..4294967295unsigned32-bit
Shortint-128..127signed8-bit
Smallint-32768..32767signed16-bit
Longint-2147483648..2147483647signed32-bit
Int64-2^63..2^63?
signed64-bit
Byte0..255unsigned8-bit
Word0..65535unsigned16-bit
Longword0..4294967295unsigned32-bit
Delphi常用快捷键:
1 组件设计类
Ctrl+ C 复制组件
Ctrl+ V 粘贴组件
Ctrl+ X 剪切组件(以上三个快捷键可同时应用于程序编写类)
Ctrl + 方向键 将所选组建的位置移动一个像素
Shift+ 方向键 将所选组建的大小移动一个像素
Ctrl + Shift+ 方向键 将所选组建的位置移动一个栅格
Tab 选择当前组建的下一个组件
Shift+Tab 选择当前组建的上一个组件
方向键 选中此方向上距离当前组建最近的一个组建
Shift+鼠标左键单击 选中多个组件
Del 删除所选组件
Esc 选择当前组建的容器
Ctrl+鼠标左键按下拖动 可选择一个容器内的多个组件
[提醒] 当选择了多个组件时可以改变它们的共有属性.
2 程序编写类
F1 显示光标所在单词帮助信息
Ctrl+鼠标单击 跳转到声明处
Shift+Alt 选择代码快
Ctrl+Shift +U 将选中的代码整体左移两个字符宽度
Ctrl+Shift +I 将选中的代码整体右移两个字符宽度
Ctrl+Shift+上下方向键 在过程或函数的声明和实现之间切换
Ctrl+Shift+ 0~9 在光标所在行 设置/取消 书签
Ctrl+0~9 返回到书签所在位置
Ctrl+J 插入标准语法(本文最后有示例)
Ctrl+Y 删除光标所在行
Ctrl+Q+Y 删除光标位置后改行的内容
Ctrl+BackSpace 删除光标前一个单词
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 完成一声明类的实现
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 结束程序调试运行状态,回到程序编辑状态
Ctrl+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 在Form/Unit 和 Object TreeView 之间切换
一 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 then
2输入 fu 后按Ctrl+J生成代码:
function ():
;
begin
end;
3 输入 pr 后按Ctrl+J生成代码:
procedure ();
begin
end;
4 输入 f 后按Ctrl+J 选择 forb生成代码:
for :
= to do
begin
end;
还有更多,自己试试吧。
二 Ctrl+Shift+C示例
1
type
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; //此行自动生成
procedure SetMark(const Value:
integer);//此行自动生成
public
property Mark:
integer read GetMark write SetMark;
end;
以下代码自动生成:
function TForm1.GetMark:
integer;
begin
end;
procedure TForm1.SetMark(const Value:
integer);
begin
end;
◇[DELPHI]网络邻居复制文件
usesshellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:
varxpanel,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目录
usesshellapi;
varwindir:
array[0..255]ofchar;
getwindowsdirectory(windir,sizeof(windir));
或者从注册表中读取,位置:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot键,取得如:
C:
\WINDOWS
◇[DELPHI]在FORM或其他容器上画线
varx,y:
array[0..50]ofinteger;
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]字符串列表使用
vartips:
tstringlist;
tips:
=tstringlist.create;
tips.loadfromfile('filename.txt');
edit1.text:
=tips[0];
tips.add('lastlineadditionstring');
tips.insert(1,'insertstringatNO2line');
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(attrandfaReadonly)=faReadonlythen...//只读
if(attrandfaSysfile)=faSysfilethen...//系统
if(attrandfaArchive)=faArchivethen...//存档
if(attrandfaHidden)=faHiddenthen...//隐藏
◇[DELPHI]执行程序外文件
WINEXEC//调用可执行文件
winexec('/ccopy*.*c:
\',SW_Normal);
winexec('startabc.txt');
ShellExecute或ShellExecuteEx//启动文件关联程序
functionexecutefile(constfilename,params,defaultDir:
string;showCmd:
integer):
THandle;
ExecuteFile('C:
\abc\a.txt','x.abc','c:
\abc\',0);
ExecuteFile('','','',0);
ExecuteFile('mailto:
tingweb@','','',0);
◇[DELPHI]取得系统运行的进程名
varhCurrentWindow:
HWnd;szText:
array[0..254]ofchar;
begin
hCurrentWindow:
=Getwindow(handle,GW_HWndFrist);
whilehCurrentWindow<>0do
begin
ifGetwindowtext(hcurrnetwindow,@sztext,255)>0thenlistbox1.items.add(strpas(@sztext));
hCurrentWindow:
=Getwindow(hCurrentwindow,GW_HWndNext);
end;
end;
◇[DELPHI]关于汇编的嵌入
AsmEnd;
可以任意修改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)返
回'BrianWilfred'。
Length(st);//返回字符串表达式st的长度。
例如,st:
='Brian',则Length(st)返回值为5。
Pos(obj,target);//返回字符串obj在目标字符串target的第一次出现的位置,如果target没有匹配的串,Pos函数
的返回值为0。
例如,target:
='BrianWilfred',则Pos('Wil',target)的返回值是7,Pos('hurbet',target)的返回值
是0。
◇[DELPHI]关于处理注册表
usesRegistry;
varreg:
Tregistry;
reg:
=Tregistry.create;
reg.rootkey:
='HKey_Current_User';
reg.openkey('ControlPanel\Desktop',false);
reg.WriteString('TitleWallpaper','0');
reg.writeString('Wallpaper',filelistbox1.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
F1--F12:
$70(112)--$7B(123)
A-Z:
$41(65)--$5A(90)
0-9:
$30(48)--$39(57)
◇[DELPHI]初步判断程序母语
DELPHI软件的DOS提示:
ThisProgramMustBeRunUnderWin32.
VC++软件的DOS提示:
ThisProgramCannotBeRunInDOSMode.
◇[DELPHI]操作Cookie
response.cookies("name").domain:
='';
withresponse.cookies.adddo
begin
name:
='username';
value:
='username';
end
◇[DELPHI]增加到文档菜单连接
usesshellapi,shlOBJ;
shAddToRecentDocs(shArd_path,pchar(filepath));//增加连接
shAddToRecentDocs(shArd_path,nil);//清空
◇[杂类]备份智能ABC输入法词库
windows\system\user.rem
windows\system\tmmr.rem
◇[DELPHI]判断鼠标按键
ifGetAsyncKeyState(VK_LButton)<>0then...//左键
ifGetAsyncKeyState(VK_MButton)<>0then...//中键
ifGetAsyncKeyState(VK_RButton)<>0then...//右键
◇[DELPHI]设置窗体的最大显示
onFormCreate事件
self.width:
=screen.width;
self.height:
=screen.height;
◇[DELPHI]按键接受消息
OnCreate事件中处理:
Application.OnMessage:
=MyOnMessage;
procedureTForm1.MyOnMessage(varMSG:
TMSG;varHandle:
Boolean);
begin
ifmsg.message=256then...//ANY键
ifmsg.message=112then...//F1
ifmsg.message=113then...//F2
end;
◇[杂类]隐藏共享文件夹
共享效果:
可访问,但不可见(在资源管理、网络邻居中)
取共享名为:
direction$
访问:
//computer/dirction/
◇[JavaScript]JavaScript网页常用效果
网页60秒定时关闭
-- settimeout('window.close();',60000) --> 关闭窗口 window.close();returnfalse;">关闭 定时转URL 设为首页 onclick="this.style.behavior='url(#default#homepage)';this.sethomepage('');"href="#">设 为首页 收藏本站 window.external.addfavorite('','[未名码头]')">收藏本站 加入频道 window.external.addchannel('')">加入频道 ◇[DELPHI]文本编辑相关 checkbox1.checked: =notcheckbox1.checked; ifcheckbox1.checkedthenrichedit1.font.style: =richedit1.font.style+[fsBold]else richedit1.font.style: =richedit1.font.style-[fsBold]//粗体 ifcheckbox1.checkedthenrichedit1.font.style: =richedit1.font.style+[fsIt
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- DELPHI 学习 教程