FreeBasic Overload 关键字
最后修改日期：2025 年 6 月 16 日
FreeBasic 的 Overload 关键字支持函数重载，允许使用相同的名称但具有不同参数的多个函数。这提供了多态性，并使 API 更直观易用。
基本定义
函数重载允许您创建多个具有相同名称但参数列表不同的函数。编译器会根据函数调用时传递的参数来选择合适的版本。
在 FreeBasic 中，重载函数首先使用 Declare Sub/Function Name Overload 进行声明，然后不带 Overload 关键字进行实现。声明中的 Overload 关键字告诉编译器此函数名称可以有多个版本。重载函数必须在参数类型或数量上有所不同。仅返回类型不能区分重载。
简单的整数重载
此示例展示了带有整数参数的基本函数重载。
Declare Sub Display Overload (n As Integer)
Declare Sub Display Overload (n As Double)
Sub Display (n As Integer)
Print "Integer: "; n
End Sub
Sub Display (n As Double)
Print "Double: "; n
End Sub
Display(10)
Display(3.1415)
我们首先使用 Declare Sub Display Overload 声明两个重载的 Display 函数——一个用于整数，一个用于双精度浮点数。然后，我们分别实现每个函数（不带 Overload 关键字），最后调用它们。编译器根据参数类型选择合适的版本。这使得 API 更直观且类型安全。
不同的参数数量
可以通过具有不同数量的参数来重载函数。
Declare Sub Greet Overload ()
Declare Sub Greet Overload (fname As String)
Declare Sub Greet Overload (fname As String, times As Integer)
Sub Greet()
Print "Hello!"
End Sub
Sub Greet(fname As String)
Print "Hello, "; fname; "!"
End Sub
Sub Greet(fname As String, times As Integer)
For i As Integer = 1 To times
Print "Hello, "; fname; "!"
Next
End Sub
Greet()
Greet("Alice")
Greet("Bob", 3)
在这里，我们首先使用 Declare Sub Greet Overload 声明了三个重载的 Greet 版本，分别带有 0、1 和 2 个参数。然后，我们在主程序中实现每个版本并调用它们。每个版本在保持统一命名约定的同时提供了不同的功能。这展示了重载如何简化 API。
混合参数类型
重载函数可以具有完全不同的参数类型。
Declare Sub Process Overload (value As Integer)
Declare Sub Process Overload (text As String)
Declare Sub Process Overload (arr() As Integer)
Sub Process(value As Integer)
Print "Processing integer: "; value * 2
End Sub
Sub Process(text As String)
Print "Processing string: "; UCase(text)
End Sub
Sub Process(arr() As Integer)
Print "Processing array with "; UBound(arr) - LBound(arr) + 1; " elements"
End Sub
Process(42)
Process("hello")
Dim numbers(1 To 5) As Integer
Process(numbers())
此示例展示了三个重载的 Process 函数，用于处理不同的数据类型。我们首先使用 Declare Sub Process Overload 声明每个版本，然后实现它们，最后调用它们。编译器根据参数类型选择正确的版本。这种方法在处理各种输入的同时，保持了函数名称的语义。
重载构造函数
UDT（用户定义类型）中的构造函数也可以重载。它们根据对象创建期间传递的参数进行隐式重载。这允许灵活地初始化对象。
在 FreeBasic 中，构造函数必须在 Type 块内声明，并在块外定义。
Type Point
x As Integer
y As Integer
Declare Constructor()
Declare Constructor(x As Integer, y As Integer)
End Type
Constructor Point()
x = 0
y = 0
End Constructor
Constructor Point(x As Integer, y As Integer)
This.x = x
This.y = y
End Constructor
Dim p1 As Point
Dim p2 As Point = Point(10, 20)
Print "p1: ("; p1.x; ", "; p1.y; ")"
Print "p2: ("; p2.x; ", "; p2.y; ")"
Point 类型有两个构造函数：一个默认构造函数将初始化为 (0,0)，另一个则接受显式坐标。这在创建对象时提供了灵活性，同时保持了清晰的初始化。
ByRef 和 ByVal 不支持重载
无法仅基于 ByRef 和 ByVal 参数传递来重载函数。编译器不将它们视为不同的重载。
Sub Modify(n As Integer)
n += 10
Print "ByVal modified: "; n
End Sub
Sub ModifyByRef(ByRef n As Integer)
n += 10
Print "ByRef modified: "; n
End Sub
Dim num As Integer = 5
Modify(num)
Print "Original after ByVal: "; num
ModifyByRef(num)
Print "Original after ByRef: "; num
在上面的示例中，我们通过参数传递方法区分了 Modify 和 ModifyByRef。但是，这不构成重载。编译器由于名称不同而将它们视为不同的函数，而不是因为参数传递方法不同。
具有不同返回类型的重载
虽然仅返回类型不能重载函数，但在参数不同时它们可以不同。
Declare Function Convert Overload (n As Integer) As String
Declare Function Convert Overload (s As String) As Integer
Function Convert(n As Integer) As String
Return Str(n)
End Function
Function Convert(s As String) As Integer
Return Val(s)
End Function
Print "String from integer: "; Convert(42)
Print "Integer from string: "; Convert("123")
此示例展示了两个重载的 Convert 函数，它们具有不同的参数和返回类型。我们首先使用 Declare Function Convert Overload 声明每个函数，然后实现它们，最后调用它们。虽然返回类型不同，但重载是基于参数类型的。这在一个清晰的 API 中提供了双向转换。
最佳实践
- 一致性：保持重载函数的语义相似。
- 清晰性：避免行为截然不同的重载。
- 文档：清楚地记录所有重载变体。
- 默认参数：考虑使用默认参数代替许多重载。
- 歧义：避免可能引起混淆的重载。
本教程涵盖了 FreeBasic 的 Overload 关键字，并通过实际示例展示了其在不同场景下的用法。函数重载是创建清晰、直观 API 的强大工具。