数据类型
Div两个整数相除,只能整数相除。
格式:整数1 div 整数2——求X除以Y;
Mod取余数。
除数为0会引发中断异常。
格式:整数1 mod 整数2——求X除以Y的余数;
Const 定义常量变量
格式:
Const
常量1(用大写表示) = 常量值1;
类型常量;
Const
常量名:类型名= 常量值;
Div 定义变量
格式:
Dav
变量名:变量类型;
小写转换函数
格式:
LowerCase(const s:string): string;
大写转换函数
格式:
X1:=UpperCase(‘bCb’); //X1的值为BCB
比较字符串大小函数
格式:
CompareStr(const s1,s2:string):Integer 功能:比较两个字符串s1和s2的大小
本函数区分大小写
、
求字符串长度的函数
Case多分枝语句:格式:
Delphi键值
ESC键 VK_ESCAPE (27)
回车键: VK_RETURN (13)
TAB键: VK_TAB (9)
Caps Lock键: VK_CAPITAL (20) Shift键: VK_SHIFT ($10)
Ctrl键: VK_CONTROL (17)
Alt键: VK_MENU (18)
空格键: VK_SPACE ($20/32)
退格键: VK_BACK (8)
左徽标键: VK_LWIN (91)
右徽标键: VK_LWIN (92)
鼠标右键快捷键:VK_APPS (93)
Insert键: VK_INSERT (45)
Home键: VK_HOME (36)
Page Up: VK_PRIOR (33) PageDown: VK_NEXT (34)
End键: VK_END (35)
Delete键: VK_DELETE (46)
方向键(←): VK_LEFT (37)
方向键(↑): VK_UP (38)
方向键(→): VK_RIGHT (39)
方向键(↓): VK_DOWN (40)
F1键: VK_F1 (112)
F2键: VK_F2 (113)
F3键: VK_F3 (114)
F4键: VK_F4 (115)
F5键: VK_F5 (116)
F6键: VK_F6 (117)
F7键: VK_F7 (118)
F8键: VK_F8 (119)
F9键: VK_F9 (120)
F10键: VK_F10 (121)
F11键: VK_F11 (122)
F12键: VK_F12 (123)
Num Lock键: VK_NUMLOCK (144) 小键盘0: VK_NUMPAD0 (96)
小键盘1: VK_NUMPAD0 (97)
小键盘2: VK_NUMPAD0 (98)
小键盘3: VK_NUMPAD0 (99)
小键盘4: VK_NUMPAD0 (100)
小键盘5: VK_NUMPAD0 (101)
小键盘6: VK_NUMPAD0 (102)
小键盘7: VK_NUMPAD0 (103)
小键盘8: VK_NUMPAD0 (104)
小键盘9: VK_NUMPAD0 (105)
小键盘.: VK_DECIMAL (110)
小键盘*: VK_MULTIPLY (106)
小键盘+: VK_MULTIPLY (107)
小键盘-: VK_SUBTRACT (109)
小键盘/: VK_DIVIDE (111)
Pause Break键: VK_PAUSE (19)
Scroll Lock键: VK_SCROLL (14
窗口置顶函数(小甲鱼11课)
SetWindowLong:
循环语句:
While语句(循环到条件为假时不循环了,先判断后执行)
格式:While(条件) do
语句1
语句2。
语句N
End
语句之间加入”Break”会退出循环,加入Continue 会结束本次循环。
\
Repeat语句(先执行,后判断)不需要用Begin和End
For语句
图片中的to是递增,Down To是递减
十五课:数组
1、静态数组
2、Array
随机数:Random(在程序之前应该生命随机数种子Randomize)
格式:
Randomize;
…….
…….
Random(100); //生成100以内的随机数。
SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE)+E S_CENTER);
去除空格函数:
Trim:去除左右两边的空格;LTrim:去除左边的空格;
RTrim:去除右边的空格;
格式: Trim(String)
字符串长度函数:
Length(Integer)
23课:
鼠标单击
鼠标双击
焦点
鼠标事件
键盘事件
键盘按下,键盘某键按下,某键放开
标签透明背景:Transparent(透明背景)
MaskEdit组件格式
Memo组件
Count:计算行数
返回多少列
Count是计算有多少行ListBox列表框组建
打开文件夹
打开网址
打开XX:
ShellExecute(handle,’open’,’d:/’,nil,nil, SW_SHOWNORMAL) Panel组件
常用的数据类型
枚举类型:
Type
类型标识符= (标识符1,标识符2.。
标识符N);
Case of 语句:
子界类型:
集合类型定义
记录类型的定义使用:
StringGrid组件:
格式:
with StringGrid1 do
begin
cells[1,0]:='姓名';
cells[2,0]:='年龄';
cells[0,1]:='1';
cells[0,2]:='2';
cells[0,3]:='3';
end;
快速清空StringGrid单元内容
文本文件变量:
Rewrite(只读方式打开)
关闭文件:
文本文件写的操作:
文本文件写的操作:
例子:
行尾与文件尾的操作:
记录型文件变量的定义:Record:记录型变量
例子:
记录类型的打开和关闭:
设置默认目录的函数:
0表示文件打开的目录,即是默认目录;CurDir 是存放目录的变量;
判断文件是否存在的函数:
CurDir 是存放目录的变量
记录型文件的记录数:
返回记录个数的函数:
文件指针
Seek过程
Filepos函数
例子:
读取修改记录:
Windows实现拖拽功能的API函数(拖拉功能): WMDropFiles(var message:Tmessage);message WM_DROPFILES; 例子:
接受拖放的响应函数:
DragAcceptFiles(From1.handle,True);
DragQueryFile 函数
用于一个成功文件拖拽后获取文件名称
第一次调用后i为放回文件名的长度;
第二次调用后用FOR 循环将路径传入P这个指针;
注意:先要在前面定义:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ComCtrls, Menus,jpeg,ExtCtrls,ShellAPI;
EOF函数返回索引
返回一个Integer,它包含Boolean 值True,表明已经到达为Random 或顺序Input 打开的文件的结尾。
语法
EOF(filenumber)
必要的filenumber 参数是一个Integer,包含任何有效的文件号。
说明
使用EOF 是为了避免因试图在文件结尾处进行输入而产生的错误。
直到到达文件的结尾,EOF 函数都返回False。
对于为访问Random 或Binary 而打开的文件,直到最后一次执行的Get 语句无法读出完整的记录时,EOF 都返回False。
对于为访问Binary 而打开的文件,在EOF 函数返回True 之前,试图使用Input 函数读出整个文件的任何尝试都会导致错误发生。
在用Input 函数读出二进制文件时,要用LOF 和Loc 函数来替换EOF 函数,或者将Get 函数与EOF 函数配合使用。
对于为Output 打开的文件,EOF 总是返回True
取字符串后面的字符函数、
RightStr(取右边的字符)
LeftStr(取左边字符)
首先需要申明:
然后定义过程:
FileName为字符串
3是去后边3个字符;
例子:
多窗口:
Uses Unit1:
Dll编写:。