第二章面向对象程序设计2.pptVIP

过程与函数 过程（procedure)定义 A procedure declaration has the form: procedure procedureName(parameterList); directives; localDeclarations; begin statements end; Here is an example of a procedure declaration: 过程与函数 procedure NumString(N: Integer; var S: string); var V: Integer; begin V := Abs(N); S := ; repeat S := Chr(V mod 10 + Ord(0)) + S; V := V div 10; until V = 0; if N 0 then S := - + S; end; 调用这个过程：NumString(17, MyString)； 过程与函数 函数（function）的定义 function functionName(parameterList): returnType; directives; localDeclarations; begin statements end; Attention:the function name itself acts as a special variable that holds the functions return value, as does the predefined variable Result. Here is an example of a procedure declaration: 过程与函数 function TForm1.encryptcode(s: string): string; var temp:char; i,j,k:integer; begin i:=length(s); j:=i div 2; for k:=1 to j do begin temp:=s[k]; s[k]:=s[i-k+1]; s[i-k+1]:=temp; end; for k:=1 to i do s[k]:=chr(ord(s[k])+3); result:=s; end; 类和对象（classes and objects) A class, or class type, defines a structure consisting of fields, methods, and properties. Instances of a class type are called objects. The fields, methods, and properties of a class are called its components or members. 类和对象（classes and objects) Delphi中，Tobject类是基类，所有的类都是从Tobject类派生而来。 Delphi的类库称为VCL（visual component library），主要由组件类（Tcomponent)、对象类、异常类（Texception)组成。 类的定义： 类和对象（classes and objects) A class type declaration has the form： type className = class (ancestorClass) memberList end; For example, here is the declaration of the TMemoryStream class from the Classes unit. 类和对象（classes and objects) type TMemoryStream = class(TCustomMemoryStream) private FCapacity: Longint; procedure SetCapacity(NewCapacity: Longint); protected function Realloc(var NewCapacity: Longint): Pointer; virtual; property Capac