摘要：
//要点5: 函数的返回值可以使用 Result , 也可以使用函数名(但不提倡) function MyFun1(x,y: Integer): Integer; begin Result := x + y; end; function MyFun2(x,y: Integer): Integer; begin MyFun2 := x + y; end; 阅读全文
posted @ 2008-01-14 21:19
万一
阅读(4470)
评论(2)
推荐(0)
摘要：
//要点4: 多个相同类型的参数可以简化写法 function MyFun(str: string; x,y,z: Integer): string; begin Result := str + IntToStr(x + y + z); end; 阅读全文
posted @ 2008-01-14 21:18
万一
阅读(4079)
评论(0)
推荐(0)
摘要：
//要点3: 在调用时, 参数使用 , 分割的 function MyFun(x: Integer; y: Integer): Integer; begin Result := x + y; end; {调用} procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin i := MyFun(1,2);... 阅读全文
posted @ 2008-01-14 21:15
万一
阅读(3760)
评论(0)
推荐(0)
摘要：
//要点2: 过程和函数都可以有一个或多个参数; 参数用 ; 号分割 procedure MyProc(i: Integer); begin ShowMessage(IntToStr(i)); end; function MyFun(x: Integer; y: Integer): Integer; begin Result := x + y; end; 阅读全文
posted @ 2008-01-14 21:14
万一
阅读(3879)
评论(0)
推荐(1)
摘要：
类中包含字段、方法和属性(属性包含事件); 字段是靠方法组织与操作的; 属性也只是方便和规范了字段与方法的使用. 因此我觉得: 方法是最重要的. 方法无处不在, 它不仅仅存在与类中. 先从非类中的方法谈起吧, 因为类中的方法也拥有全部这些特性. 离开类的怀抱, 我们更喜欢把方法叫做过程或函数. //要点1: 过程用 procedure 定义, 函数用 function 定义; 过程没有返回值... 阅读全文
posted @ 2008-01-14 15:01
万一
阅读(4330)
评论(0)
推荐(1)
摘要：
//例1: 这是正确的 TClassA = class Field1: string; Field2: Integer; end; TClassB = class Field1: string; Field2: Integer; Field3: TClassA; {字段 Field3 的类型是刚刚新定义的 TClassA 类型} end;... 阅读全文
posted @ 2008-01-14 13:33
万一
阅读(5857)
评论(5)
推荐(1)
摘要：
//标准语法 TMyClass1 = class(TObject) end; //如果是继承自 TObject 可以省略 TMyClass2 = class end; //可以实现多个接口; 实现接口时经常用到 TInterfacedObject 类, 它实现了接口的默认方法 TMyClass3 = class(TInterfacedObject, I... 阅读全文
posted @ 2008-01-14 13:05
万一
阅读(12073)
评论(6)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, xmldom, XMLIntf, XMLBrokr, msxmldom, XMLDoc; type TForm1 = class(TFor... 阅读全文
posted @ 2008-01-14 02:25
万一
阅读(6266)
评论(3)
推荐(0)
浙公网安备 33010602011771号