自建sbl库 重复定义的问题

findcaiyzh

想加入一个文件，用于保存通用函数。
步骤:
1. 在\SQABas32下建立test_release.sbh
加入函数声明:
Declare Function GetRandomName Basiclib "release_test" (nLength As Integer) as String

2. 在\SQABas32下建立release_test.sbl
加入函数实现:
'$Include "test_release.sbh"
Function GetRandomName(nLength As Integer) as String
GetRandomName = "111"
End Function

3. 使用库
加入'$Include "test_release.sbh"
然后调用函数
Dim strName as String
strName = GetRandomName(111)

但是，编译错误：（
release_test.sbl(3) Error: Redefinition of procedure 'GetRandomName'
release_test.sbl(5) Error: Can't assign value to function: GetRandomName

哪里不对劲呢？

5am

不需要include release_test.sbl?

findcaiyzh

不管是否加include release_test.sbl? 都报重复定义的错：（

findcaiyzh

算了，实现也写在头文件里得了。

uttipy

你可以将所有定义全部放在一个头文件中，将实现分在不同的sbl中，并且在sbh中include各个sbl文件。

WUHA

在你的release_test.sbl省略 '$Include "test_release.sbh"