# Builtin - 函数指针与原生回调

## `DeleteInstance(obj)`

声明：function

删除由 `MakeInstance` 生成的函数指针。

<!-- tags: 外部调用 函数指针 回调 释放指针 释放函数指针 delete callback -->

| 参数  | 类型    | 说明                        |
| ----- | ------- | --------------------------- |
| `obj` | pointer | `MakeInstance` 生成的指针。 |

返回：Boolean，删除成功返回真，否则返回假。

### 示例

删除尚未包装调用的函数指针：

```tsl
func_ptr := MakeInstance(thisFunction(ReturnOne), "cdecl", 0);
echo DeleteInstance(func_ptr);

function ReturnOne(): integer;
begin
    return 1;
end;
// 输出：1
```

## `MakeInstance(fun, mode, threadmode)`

声明：function

将 TSL 函数或类成员函数生成可供 C 等外部程序调用的函数指针。

<!-- tags: 外部调用 函数指针 生成函数指针 回调 callback cdecl stdcall 多线程 -->

传入的 TSL 函数必须声明参数类型和返回类型。当前文档说明其返回类型支持单精度浮点、双精度浮点和整数。

| 参数         | 类型              | 说明                                                                     |
| ------------ | ----------------- | ------------------------------------------------------------------------ |
| `fun`        | String\|TFunction | TSL 函数或 TSL 类成员函数。                                              |
| `mode`       | string            | 可选。`cdecl` 或 `stdcall`，默认 `cdecl`；Win32 下须与宿主回调约定一致。 |
| `threadmode` | integer           | 可选。`0` 为单线程，`1` 为多线程单模，`2` 为多线程多模，默认 `0`。       |

返回：pointer，等同于 C 语言函数指针，可供外部程序调用。

### 示例

将 TSL 函数包装成外部函数指针，并在 TSL 内通过 `external` 函数指针声明重新调用：

```tsl
func_ptr := MakeInstance(thisFunction(Add), "cdecl", 0);
wrapped_func := function(a: integer; b: integer): integer; external func_ptr;
echo func_ptr <> nil, "\n";
echo ##wrapped_func(3, 4), "\n";
wrapped_func := nil;
echo DeleteInstance(func_ptr);

function Add(a: integer; b: integer): integer;
begin
    return a + b;
end;
// 输出：1
// 输出：7
// 输出：1
```

也可以用函数名取得指针：`MakeInstance(findFunction("Add"), "cdecl", 0)`。

## `findFunction(name)`

声明：function

按名称查找函数或 unit，找不到时返回 `0`

| 参数   | 类型         | 说明                 |
| ------ | ------------ | -------------------- |
| `name` | string\|unit | 函数名称或 unit 名称 |

返回：tfunction\|unit\|integer

### 示例

范例01：查找并调用函数

```tsl
func := findFunction("addValues");
echo call(func, 2, 3);
// 输出：5

function addValues(a, b);
begin
    return a + b;
end;
```

## `findFunction(name, target)`

声明：function

从对象或类中查找方法，找不到时返回 `0`

| 参数     | 类型           | 说明     |
| -------- | -------------- | -------- |
| `name`   | string         | 方法名称 |
| `target` | object\|tclass | 对象或类 |

返回：tfunction\|integer

### 示例

范例01：查找并调用对象方法

```tsl
obj := new Calculator();
func := findFunction("add", obj);
echo call(func, 2, 3);
// 输出：5

type Calculator = class
public
    function add(a, b);
    begin
        return a + b;
    end;
end;
```

## `thisFunction(target)`

声明：function

返回当前函数或指定函数、对象方法、类方法的函数值

| 参数     | 类型 | 说明                                               |
| -------- | ---- | -------------------------------------------------- |
| `target` | any  | 可选。函数名、对象方法或类方法，省略时返回当前函数 |

返回：tfunction

### 示例

范例01：取得指定函数并调用

```tsl
func := thisFunction(addValues);
echo call(func, 2, 3);
// 输出：5

function addValues(a, b);
begin
    return a + b;
end;
```