对于理解Delphi的类(十)-深入方法[13]-在interface区声明的方法感兴趣的读者，本文将提供您所需要的所有信息，我们将详细讲解delphiinterface作用，并且为您提供关于[DEL

对于理解 Delphi 的类(十) - 深入方法[13] - 在 interface 区声明的方法感兴趣的读者，本文将提供您所需要的所有信息，我们将详细讲解delphi interface作用，并且为您提供关于[DELPHI-码农]理解 Delphi 的类(十) - 深入方法[15] - 调用其他单元的函数、理解 Delphi 的类 (十) - 深入方法 [18] - 在接口区声明的方法都相当于提前声明了、理解 Delphi 的类 (十) - 深入方法 [25] - 使用方法类型、理解 Delphi 的类(十) - 深入方法[10] - 默认参数的宝贵知识。

• 理解 Delphi 的类(十) - 深入方法[13] - 在 interface 区声明的方法（delphi interface作用）
• [DELPHI-码农]理解 Delphi 的类(十) - 深入方法[15] - 调用其他单元的函数
• 理解 Delphi 的类 (十) - 深入方法 [18] - 在接口区声明的方法都相当于提前声明了
• 理解 Delphi 的类 (十) - 深入方法 [25] - 使用方法类型
• 理解 Delphi 的类(十) - 深入方法[10] - 默认参数

理解 Delphi 的类(十) - 深入方法[13] - 在 interface 区声明的方法（delphi interface作用）

[DELPHI-码农]理解 Delphi 的类(十) - 深入方法[15] - 调用其他单元的函数

理解 Delphi 的类 (十) - 深入方法 [18] - 在接口区声明的方法都相当于提前声明了

//要点18: 如果函数在接口区定义了, 就无需用 forward 提前声明了
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

{现在函数定义在接口区(interface)}
function MyFunA(x: Integer): Integer;
function MyFunB(x: Integer): Integer;


implementation

{$R *.dfm}

function MyFunA(x: Integer): Integer;
begin
  Result := MyFunB(x) * 3; {因为在接口区有了声明, 前面的函数就可以调用后的函数了}
end;

function MyFunB(x: Integer): Integer;
begin
  Result := Abs(x);
end;


{调用测试}
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := MyFunA(-3);
  ShowMessage(IntToStr(i)); {9}
end;

end.

 
 
 
 
 

 

 

  
  

理解 Delphi 的类 (十) - 深入方法 [25] - 使用方法类型

//弄明白这一点, 才好使用回调函数

{定义方法类型}
type
  TFunType  = function(x: Integer): Integer; {函数类型}
  TProcType = procedure(name: string);       {过程类型}

{定义一个符合 TFunType 类型的函数}
function MyFun(x: Integer): Integer;
begin
  Result := x * 2;
end;

{定义一个符合 TProcType 类型的过程}
procedure MyProc(name: string);
begin
  ShowMessage(''我是'' + name);
end;


{使用}
procedure TForm1.Button1Click(Sender: TObject);
var
  Fun : TFunType;  {定义一个 TFunType  类型的变量}
  Proc: TProcType; {定义一个 TProcType 类型的变量}
begin
  Fun  := MyFun;   {让变量 Fun 指向和它具有同样参数和返回值的自定义函数 MyFun}
  Proc := MyProc;  {让变量 Proc 指向和它具有同样参数的自定义过程 MyProc}

  {现在这两个方法的变量 Fun、Proc 可以使用了}
  ShowMessage(IntToStr(Fun(4))); {8}
  Proc(''万一'');                  {我是万一}
end;

 
 
 
 
 

 

 

  
  

理解 Delphi 的类(十) - 深入方法[10] - 默认参数

//要点10: 过程和函数都可以有一个或多个默认参数; 但必须在非默认参数后面
function MyFun(s1: string; s2: string=''好人''): string;
begin
  Result := s1 + s2;
end;

{调用}
procedure TForm1.Button1Click(Sender: TObject);
var
  str1,str2: string;
begin
  str1 := ''万一'';
  str2 := ''坏蛋'';

  ShowMessage(MyFun(str1));      {万一好人}

  ShowMessage(MyFun(str1,str2)); {万一坏蛋}
end;

 
 
 
 
 

 

 

  
  

今天关于理解 Delphi 的类(十) - 深入方法[13] - 在 interface 区声明的方法和delphi interface作用的分享就到这里，希望大家有所收获，若想了解更多关于[DELPHI-码农]理解 Delphi 的类(十) - 深入方法[15] - 调用其他单元的函数、理解 Delphi 的类 (十) - 深入方法 [18] - 在接口区声明的方法都相当于提前声明了、理解 Delphi 的类 (十) - 深入方法 [25] - 使用方法类型、理解 Delphi 的类(十) - 深入方法[10] - 默认参数等相关知识，可以在本站进行查询。