- 1、本文档共321页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Delphi程序设计321页完整版PPT课件;目录;模块一 Delphi 7 开发环境;项目一 Delphi介绍;;;;项目二 Delphi 7集成开发环境;;;;;;;;;;;;;;;;项目三 Delphi 7程序设计过程;;;;;;;;;模块二 Delphi 的编程语言;项目一 保留字和标识符;;;;;;;;项目二 常量、变量和数据类型;;;;;;;;;;;;;;;;②动态数组
在定义时并没有确定数组的大小或长度,而是在访问之前用SetLength过程为数组动态或重新分配其存储空间。
定义动态数组的语法形式如下:
Type
数组类型名=array of 基类型; // 一维数组
数组类型名=array of array of 。。。array of基类型 // 多维数组
Var 数组类型标识符: array of baseType;
例如:var DynArr: array of Integer; 声明DynArr为元素是整型的动态数组。
也可以先定义类型,再声明变量,如:
type
TdynIntArr = array of integer;
var
DynArr:TdynIntArr;
语句SetLength(DynIntArr,10); 为动态数组DynIntArr分配10个元素的存储空间,下标从0到9(动态数组的下标总是从0开始)。如要释放动态数组占用的存储空间,可以将nil赋值给该动态数组变量,或调用过程SetLength(DyIntArr,0)实现。;;;;;;;;;;;3、表达式
表达式是由运算符、运算对象和分隔符组成的序列,它指明了一个运算。表达式中的运算对象可以是另外一个表达式。
最简单的表达式是变量和常量,更复杂的表达式则通过将简单表达式通过运算符、函数调用、强制类型转换结合在一起而构成,下面的例子都是合法的表达式:
;项目三 程序语句;;;;;;;;;;;;1、for语句
在循环次数已知或可计算的场合,用for语句来实现循环,更为简便。for语句分为递增型和递减型两种形式。
(1)递增型for语句?
for 循环变量:=初值 to 终值 do
语句A;
;;;;;;;;;;;;;;;项目四 过程与函数;;;;;;;;;;;;;;;;;;;模块三 面向对象编程基础;项目一 类与对象;;;;unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm) {窗体的类型说明开始}
private
{ Private declarations }
public
{ Public declarations }
end; {窗体的类型说明结束}
var
Form1: TForm1; {说明一个窗体变量}
implementation
{$R *.DFM}
end.
;;(2) 方法
方法是一个和类相关联的过程或函数。
例如:
procedure InitControls;
调用一个方法需指定它作用的对象(若是类方法,则指定类)。
例如:
listbox1.Clear;
(3) 属性
属性用关键字property声明,它类似于字段,但又不同于字段,它常与读取和修改内部字段的方法相关联。
;;unit Unit1;
?
interface
?
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
?
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
?
//TStudent 类里面包含一个属性(property)、一个方法、两个字段
TStudent = class(TObject)
private
FName: string; // 学生的名字
FAge:Integer; // 学生的年龄
procedure SetAge(const Value: Integer);
public
文档评论(0)