unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)end;TBass = classfunction Fun1(x,y: Integer): Integer; virtual; {Fun1 有 virtual 指示字}function Fun2(x,y,z: Integer): Integer;        {Fun2 有三个参数、一个返回值}end;varForm1: TForm1;implementation{$R *.dfm}{ TBass }function TBass.Fun1(x, y: Integer): Integer; {方法实现时, 不能带 virtual 等指示字}beginResult := x + y;end;function TBass.Fun2(x,y,z: Integer): Integer; {方法实现时可以只有函数名; 如果带参数和返回值, 必须和定义时一样}beginResult := x + y + z;end;end.

理解 Delphi 的类(十一) - 深入类中的方法[3] - 方法在实现时的参数省略 -... 理解 Delphi 的类(十一) - 深入类中的方法[1] - 虚方法与动态方法 - 万一... 理解 Delphi 的类(十一) - 深入类中的方法[2] - 关于覆盖与重定义 - 万一... 在delphi中编写控件的基本方法 RXLib V2.75在Delphi 7.0中的安装方法 RXLib V2.75在Delphi 7.0中的安装方法 Delphi关于多线程同步的一些方法 Delphi中PING的实现 在Delphi中实现VFP6的查询速度 - Delphi - 文档中心 - 源码天空 用Delphi实现四人帮（Gof）设计模式-6 模板方法 Template Method - cococlout的专栏 - CSDN博客 SPSS中非参数检验方法的使用 [测试参数]LED的测试方法 浅析多层结构及其在Delphi中的实现<一> 在tomcat中实现https安全连接的方法 Delphi 线程安全的三种方法(转) 应用程序实现方法的猜测 Delphi中PING的实现ewe Delphi中PING的实现a 转delphi过程函数传递参数的几种方式 省略to的动词不定式 I客观理解的方法，或者情境逻辑3 出货的方法--操盘手培训十一 不生病的具体方法十一 十一中方法调控你的情绪