Declare [Static] Sub procedure_name [cdecl|stdcall|pascal] Overload [Alias "external_name" ] [([parameter_list ])] [Constructor [priority ]] [Static] [Export]

Declare [Static] Function procedure_name [cdecl|stdcall|pascal] Overload [Alias "external_name" ] [([parameter_list ])] As return_type [Static] [Export]

[Public|Private] Sub procedure_name [cdecl|stdcall|pascal] Overload [Alias "external_name" ] [([parameter_list ])] [Constructor [priority ]] [Static] [Export]

..procedure body..

End Sub

[Public|Private] Function procedure_name [cdecl|stdcall|pascal] Overload [Alias "external_name" ] [([parameter_list ])] As return_type [Static] [Export]

..procedure body..

End Function

在过程声明中，Overload允许过程名称重载，也就是说，如果其参数列表是唯一的，则可以使用相同的名称声明其他过程。如果两个参数列表包含不同数量的参数，或者具有不同类型的参数，则它们是唯一的。请注意，这意味着如果两个或多个过程在返回类型不同时，则不能以相同的名称声明。

一旦程序名称被声明为重载，使用该名称的进一步的声明不需要指定Overload，但它是允许的。

成员过程声明中不需要Overload，因为它们总是被隐式重载。

当调用重载过程时，编译器通过将用于调用过程的参数类型与定义中指定的参数类型进行比较，确定在一组兼容候选中使用的最合适的定义。如果找不到匹配或不明确的匹配，则编译器会在编译时生成错误。

Declare Function SUM Overload (A As Integer,B As Integer) As Integer
Declare Function SUM Overload (A As Single,B As Single) As Single
Function SUM  (A As Integer,B As Integer) As Integer
   Function=A+B
End Function   
Function SUM  (A As Single,B As Single) As Single
   Function=A+B
End Function   
Dim As Integer A,B
Dim As Single A1,B1
A=2
B=3
A1=2.
b1=3.
Print SUM(A,B)
Print SUM (A1,B1)
Sleep

• 新的FreeBASIC
  
  

• Declare
  
• Sub, Function