DELPHI学习教程.doc

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 -2^63..2^63? signed 64-bit

Byte 0..255 unsigned 8-bit

Word 0..65535 unsigned 16-bit

Ctrl + 方向键 将所选组建的位置移动一个像素

Shift+ 方向键 将所选组建的大小移动一个像素

Ctrl + Shift+ 方向键 将所选组建的位置移动一个栅格

Tab 选择当前组建的下一个组件

Shift+Tab 选择当前组建的上一个组件

方向键 选中此方向上距离当前组建最近的一个组建

Shift+鼠标左键单击 选中多个组件

Del 删除所选组件

Esc 选择当前组建的容器

Ctrl+鼠标左键按下拖动 可选择一个容器内的多个组件

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+Shift+G 插入 GUID 号

Ctrl+Shift+C 完成一声明类的实现

Ctrl+Shift+T 插入 TO-DO List（强烈推荐使用 ToDo List，可以简单写成

“//TODO：你要写的内容”通过菜单 View|To-Do List 即可

察看）

[注意] 所有的数字键不能使用小键盘上的数字键。

3 程序调试类

F5 设置/取消设置程序的断点

F7 逐步调试，调试深入每一个相关的子函数/过程体内

F8 单步调试，但是不进入到相关的子函数/过程体内

F9 编译并运行（可以设置断点进行调试）

Alt+F2 调出 CPU 视图窗口

Ctrl+F2 结束程序调试运行状态，回到程序编辑状态

Ctrl+F11 显示“Open Project”对话框

Ctrl + F12 显示“查看 Unit”对话框

Shift+F11 调出“Add To Project”对话框

Ctrl+Shift+F11 弹出 Project Options（工程管理器）

Shift+Alt+F11 在 Form/Unit 和 Object TreeView 之间切换

1 输入 i 之后 ，按 Ctrl+J

显示有 ifb ife ifeb ifs 四个选项

ifb 对应：

if then

begin

end;

ife 对应：

if then

else

if then

function (): ;

begin

end;

3 输入 pr 后按 Ctrl+J 生成代码：

procedure ();

begin

end;

4 输入 f 后按 Ctrl+J 选择 forb 生成代码：

for := to do

begin

二 Ctrl+Shift+C 示例

1

type

private

procedure Foo;//使光标此行，按 Ctrl+Shift+C

end;

Delphi 自动生成：

private

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

procedure TForm1.SetMark(const Value: integer);

begin

end;

uses shellapi;

copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);

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;

tips:=tstringlist.create;

tips.loadfromfile('filename.txt');

edit1.text:=tips[0];