随笔分类 - Delphi / Delphi应用开发完全手册
摘要：```pascal Create(nil); //需要自己释放 //这种方式创建的对象要自己手工进行FREE才会回收内存 //其他很多内存泄漏就是忘了手工释放内存 Create(Self); //当Self释放时自动触发释放 //由self对象负责释放创建的对象，只要self没有释放掉 //这个对象
阅读全文
摘要：#### 1.Assigned函数 >该函数用于测试指定的对象是否为空。 > 语法 function Assigned(const P):Boolean; 说明： - Assigned 用来确定引用的指针或过程是否为空(nil)，这个P必须是指针或者引用过程类型的变量; - Assigned (P)
阅读全文
摘要：一、异常的来源 程序开发过程中,有编译期错误和运行期错误,编译期错误很容易发现,而运行期错误(逻辑错误和异常)往往很难预料。为了程序的稳定性和可靠性,就需要对程序异常处理和保护。 异常:理解为一种特殊的事件,该事件发生时,程序的正常执行将被打断.由程序导致的不正常情况是错误而不是异常,程序错误与异常
阅读全文
摘要： 一个类中的属性定义了由这个类产生的对象的特征，这种特征能影响对象的可视化行为或者对它的操作。例如对一个TEdit组件米说，Visible属性决定了它是否能被看到，Text属性决定了文本框中的内容等，属性与数据成员的区别在于： 数据成员只表示存储对象中的数据的位置，而属性伴随着读或写数据的方法。
阅读全文
摘要：类-方法 方法是在类中定义的且包装在类中的子程序，用于执行类的操作，完成类的任务，方法按功能分有6种类方法。 (1)过程方法 声明格式为：Procedure过程名（参数列表）; (2)函数方法 声明格式为：Function函数名（参数列表）:返回值; (3)类过程 声明格式为：Class Proce
阅读全文
摘要：从程序设计的角度米讲，类是一种数据类型，严格地说，这是一种用户定义的数据类型，它有自己的说明和一些操作，它定义了一种由数据成员、属性和方法组成的数据结构。 //如下的代码声明了一个交通工具TVehicle类。 type Tvehicle=class //一个类就是一个数据类型，声明类时使用了保留字C
阅读全文
摘要：函数、过程的区别： 什么时候使用函数，什么时候使用过程？ 一个函数应该只有一个返回值，就像数学函数一样，这意味着函数只能接受仅用于输入的参数，并只通过函数本身返回一项结果。函数永远应该以它所返回的值来命名，就像sin（）、CustomerID（）、ScreenHeight（）一样。在另一方面，过
阅读全文
摘要：在单元接口interface部分声明的过程或函数在整个单元内有效。当其他单元（客户单元）引用 该单元时，这些过程和函数可以被其他客户单元使用。 unit Unitl; //单元首部 interface //接口部分 function getstring(sl,s2:string):string;/∥
阅读全文
摘要：名称相同而参数的数据类型和数量不同的过程或函数，称为重载 ```pascal function getvalue(x:integer;s1:string):string;overload； begin result:=inttostr(x)+s1; end; function getvalue(x,
阅读全文
摘要：#### 传值、传址 ```pascal procedure Tform1.myproc1(i: string); //传值 begin i:= 'A' ; end; procedure TForm1.Button1Click(Sender: TObject); var x: string; beg
阅读全文
摘要：Break语句 Break语句用于跳出循环，当一个循环没有达到循环结束的条件并要结束循环时，使用Break语句。 function GetValue:integer; var i,j:integer; begin i:=0; for j:=0 to 20 do begin i:=i+j; if i>
阅读全文
摘要：#### for…do语句 ```pascal //循环变量为整数类型 function GetIntLoopNumber:integer; var iResult,iCount:integer; begin iResult:=0: for iCount:=0 to 10 do Inc(iResul
阅读全文
摘要：If then else begin if 条件 then 语句块 else 语句块; end; // 或 begin if 条件1 then begin 语句块1; end else if 条件2 then begin 语句块2; end else if 条件3 then begin 语句块3;
阅读全文
摘要：InputBox procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); Label4.Caption := str ; e
阅读全文
摘要：隐式转换 遵循从小向大的转换原则，如整数类型数据中转换的顺序为Shortint → Smallint → Longint → lnt64 var i:Shortint； j:Smallint； k:Longint； l:Int64； begin i:=120； j:=i； k:=j; l:=k; e
阅读全文
摘要：赋值运算符 iTemp:=300; 算术运算符 逻辑运算符 (1)布尔运算 begin if (i>50)and (j<100)then result:=i+j; end; (2)位逻辑运算 var i.j,k,l:integer; begin i:=3: j:=12; k:=i or j; edi
阅读全文
摘要：枚举类型 Type WeekDays=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday); Var WeekDay:WeekDays; 或者直接声明 或者直接声明 Var WeekDay:(Sunday,Monday,Tuesday,
阅读全文
摘要：类声明 Type 类名=Class（父类名） 域 属性 方法 End; 例如 Type Tperson=class(Tobject) Name:String; Age:integer; Addr:String; Procedure SetAge(Value:integer); Function Ge
阅读全文
摘要：指针声明 Type TmingRi=^integer; var s1.s2:^string; s3:string; begin new(s1); new(s2); s1^:='MingRiSoft'; s2^:='kaihongliu'; s1:=s2； //指针赋值给指针，更换钥齿 s2^:='W
阅读全文
