playbook/data/tsl_reference_catalog_source/system.md at 96b705b00b297fd319b97d1616e86ee84e64e99c

csh/playbook

Fork 0

Files

T

csh 96b705b00b 📝 docs(tsl): rebuild canonical syntax and routing manual

2026-04-22 16:59:20 +08:00

33 KiB

Raw Blame History

系统相关函数

内容

数据类型函数
数据类型转换函数
复制函数
随机函数
条件选择函数
表达式相关函数
性能优化相关函数
函数库路径
调用堆栈

数据类型函数

内容

DataType
ifInt
ifInt64
ifReal
ifNumber
ifString
ifArray
ifNil
ifExp
ifGraph
ifGraphGroup
ifBinary
ifMatrix
ifObj
GetOleObject
CreateComObject
CreateMatrix
MatrixToArray
GetMatrixFields
CreateBinary
ConvertDataToBuf
ConvertBufToData
None类型

DataType

用途：返回数据类型编号，支持数组遍历模式。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：类型编号或类型数组。

范例

// 当参数为数组型变量时，返回数组类型对应的整数5。
a := array(34, 12); // 定义a为一个数组
result := DataType(a);
return result; // 5

// 当参数为整数型变量时，返回整数类型对应的整数0。
a := 23; // 定义a为一个整数
result := DataType(a);
return result; // 0

// 对数组第一维度数据进行类型判断
t := array(1, 3.14, "A", (1, 2, 3), nil);
return DataType(t, -1);

// 对数组中每一数据进行类型判断
t := array(1, 3.14, "A", (1, 2, 3), nil);
return DataType(t, 1);

ifInt

用途：判断是否为 32 位整数类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

范例一：

// 判断是否为32位整数类型
r1 := ifInt(1);
r2 := ifInt(3.14);
r3 := ifInt("A");
r4 := ifInt(array(1, 2, 3));
return array(r1, r2, r3, r4);
// 结果：array(1,0,0,0)

范例二：

// 对数组第一维度数据进行类型判断
t := array(1, 3.14, "A", (1, 2, 3), nil);
return ifInt(t, -1);
// 结果：array(1,0,0,0,0)

范例三：

// 对数组中每一数据进行类型判断
t := array(1, 3.14, "A", (1, 2.1, 3), nil);
return ifInt(t, 1);
// 结果：array(1,0,0,(1,0,1),0)

ifInt64

用途：判断是否为 64 位整数类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数为整数类型变量时，返回true。
a := 23L; // 定义a为一个64位整数
return ifInt64(a);

// 当参数为非整数型变量时，返回false。
a := 2.3; // 定义a为一个非64位整数
return ifInt64(a);

// 对数组第一维度数据进行类型判断
t := array(1, 3L, "A", (1, 2, 3), nil);
return ifInt64(t, -1);
// 结果：array(0,1,0,0,0)

// 对数组中每一数据进行类型判断
t := array(1, 3L, "A", (1, 2L, 3), nil);
return ifInt64(t, 1);
// 结果：array(0,1,0,(0,1,0),0)

ifReal

用途：判断是否为实数类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数为实数类型变量时，返回true。
a := 2.233; // 定义a为一个实数
result := ifReal(a);
return result;

// 当参数为非整数型变量时，返回false。
a := array(23, 54, 67); // 定义a为一个非实数
result := ifReal(a);
return result;

// 对数组第一维度数据进行类型判断
t := array(1, 3.56, "A", (1, 2, 3), nil);
return ifReal(t, -1);
// 结果：array(0,1,0,0,0)

// 对数组中每一数据进行类型判断
t := array(1, 3.56, "A", (1, 2.14, 3), nil);
return ifReal(t, 1);
// 结果：array(0,1,0,(0,1,0),0)

ifNumber

用途：判断是否为数字（整数或实数）类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数为数字类型(整数或者实数)变量时，返回true。
a := 2.233; // 定义a为一个实数
result := ifNumber(a);
return result;

// 当参数为非数字类型(整数或者实数)变量时，返回false。
a := array(23, 54, 67); // 定义a为一个非数字类型
result := ifNumber(a);
return result;

// 对数组第一维度数据进行类型判断
t := array(1, 3.56, "A", (1, 2, 3), nil);
return ifNumber(t, -1);
// 结果：array(1,1,0,0,0)

// 对数组中每一数据进行类型判断,nan也为数字类型
t := array(1, 3.56, "A", (nan, 2.14, "C"), nil);
return ifNumber(t, 1);
// 结果：array(1,1,0,(1,1,0),0)

ifString

用途：判断是否为字符串类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数为字符串类型变量时，返回true。
a := 'test'; // 定义a为一个字符串
result := ifString(a);
return result;

// 当参数为非字符串类型变量时，返回false。
a := array(23, 54, 67); // 定义a为一个非字符串
result := ifString(a);
return result;

// 对数组第一维度数据进行类型判断
t := array(1, 3.56, "A", (1, 2, 3), nil);
return ifString(t, -1);
// 结果：array(0,0,1,0,0)

// 对数组中每一数据进行类型判断
t := array(1, 3.56, "A", (nan, 2.14, "C"), nil);
return ifString(t, 1);
// 结果：array(0,0,1,(0,0,1),0)

ifArray

用途：判断是否为数组类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数为数组类型变量时，返回true。
a := array(23, 54, 67); // 定义a为一个数组
result := ifArray(a);
return result;

// 当参数为非数组类型变量时，返回false。
a := 34; // 定义a为一个非数组
result := ifArray(a);
return result;

// 对数组第一维度数据进行类型判断
t := array(1, 3.56, "A", (1, "C", 3.14), nil);
return ifArray(t, -1);
// 结果：array(0,0,0,1,0)

// 对数组中每一数据进行类型判断
t := array(1, 3.56, "A", (nan, 2.14, "C"), nil);
return ifArray(t, 1);
// 结果：array(0,0,0,(0,0,0),0)

ifNil

用途：判断是否为 Nil类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数为空时，返回true。
result := ifNil(nil); // 函数参数为空
return result;

// 当参数不为空时，返回false。
a := 34; // 函数参数不为空
result := ifNil(a);
return result;

// 对数组第一维度数据进行类型判断
t := array(1, 3.16, "A", (nil, "C", 3.14), nil);
return ifNil(t, -1);
// 结果：array(0,0,0,0,1)

// 对数组中每一数据进行类型判断
t := array(1, 3.56, "A", (nil, 2.14, "C"), nil);
return ifNil(t, 1);
// 结果：array(0,0,0,(1,0,0),1)

ifExp

用途：判断是否为表达式类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数是一个表达式类型时，返回true。
a := @'dfhdv' + 'dbf'; // 函数参数a为一个表达式
result := ifExp(a);
return result;

// 当参数不是一个表达式类型时，返回false。
a := 'sdhv' + 'dbf'; // 函数参数a不为表达式
result := ifExp(a);
return result;

// 对数组第一维度数据进行类型判断
t := array(1, 3.16, @"A", (nil, @"C", 3.14), nil);
return ifExp(t, -1);
// 结果：array(0,0,1,0,0)

// 对数组中每一数据进行类型判断
t := array(1, 3.56, @"A", (nil, 2.14, @"C"), nil);
return ifExp(t, 1);
// 结果：array(0,0,1,(0,0,1),0)

ifGraph

用途：判断是否为图形类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数是一个图形类型时，返回true。
GData := Nday2('MA5', MA( close() , 5 ) );
g1 := graph( gtLine() , "MA5", Gdata , gfColor() , clBlue() );
result := ifGraph(g1);
return result;

// 当参数不是一个图形类型时，返回false。
a := 'sdhv' + 'dbf'; // 函数参数a不为图形类型
result := ifGraph(a);
return result;

参考TGraph

ifGraphGroup

用途：判断是否为图形组类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数是一个图形组合类型时，返回true。
VolData := Nday2(GfVol() , Vol() , gfColor() , ifthen ( Close() > Open() , ClRed() , ClGreen() ) );
MAVOL := Nday2('MA5', MA ( Vol() , 5 ) );
VOLGraph := Graph(gtBar(), 'VOLGraph', VolData);
MAVOLGraph := Graph(gtLine(), 'MA5Graph', MAVOL, gfColor(), clBlue());
g1 := GraphGroup(VOLGraph, MAVOLGraph, gfMinValue(), 0);
// 调用函GraphGroup创建一个图形组合类型变量g1
result := ifGraphGroup(g1);
return result;

GData := Nday2('MA5', MA( close() , 5 ) );
g1 := graph( gtLine() , "MA5", Gdata , gfColor() , clBlue() );
result := ifGraphGroup(g1);
return result;
// 返回0

参考TGraphGroup

ifBinary

用途：判断是否为二进制/Buffer类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数是一个二进制类型时，返回true。
a := binary('111111'); // 函数参数a为二进制类型
result := ifBinary(a);
return result;

// 当参数不是一个二进制类型时，返回false。
a := 'sdhv'; // 函数参数a不为二进制类型
result := ifBinary(a);
return result;

// 对数组第一维度数据进行类型判断
b := Binary("3.14");
t := array(1, b, "A", (nil, b, 3.14), nil);
return ifBinary(t, -1);
// 结果：array(0,1,0,0,0)

// 对数组中每一数据进行类型判断
b := Binary("3.14");
t := array(1, b, "A", (nil, 2.14, b), nil);
return ifBinary(t, 1);
// 结果：array(0,1,0,(0,0,1),0)

参考Binary

ifMatrix

用途：判断是否为 Matrix类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数是一个Matrix类型时，返回true。
a := CreateMatrix(3, 4); // 使用CreateMatrix创建一个Matrix类型变量
result := ifMatrix(a);
return result;

// 当参数不是一个Matrix类型时，返回false。
a := 'sdhv'; // 函数参数a不为Matrix类型
result := ifMatrix(a);
return result;

ifObj

用途：判断是否为对象类型。参数：

value：输入数据
mode：遍历模式（可选；-1 对第一维逐项判断；1 对每个元素判断）返回：布尔值或布尔数组。

范例

// 当参数是一个对象类型时，返回true。
type Function14 = class()//声明类
function SetName(newName);
begin
    name := newName;
end;
end;
Obj := CreateObject('Function14'); // 使用CreateObject函数创建上面类Function14的对象
result := ifObj(Obj);
return result;

// 当参数不是一个对象类型时，返回false。
a := 'sdhv'; // 函数参数a不为对象类型
result := ifObj(a);
return result;

参考ComObj

GetOleObject

用途：获取已注册的 OLE/COM 对象实例（仅 Windows）。参数：

prog_id：COM ProgID（如 "Word.Application"）
flags：选项标记（可选，通常为 0）
out_obj：输出对象变量返回：是否获取成功（1/0）。

CreateComObject

用途：创建新的 OLE/COM 对象实例（仅 Windows）。参数：

prog_id：COM ProgID（如 "Word.Application"）返回：COM 对象实例；失败返回 nil。

说明：COM 对象仅在 Windows 可用，Linux 不支持。

CreateMatrix

用途：创建 Matrix 类型数据，可指定列索引与初始值。参数：

rows：行数
cols：列数
cols_value：列序列（可选）
values：初始化值序列（可选，按行列顺序）返回：Matrix 对象。

范例

对比范例一与范例二，即Matrix与矩阵类型的比较

范例一：Matrix

// 当没有ColsValue参数，返回的MATRIX的行和列的下标为从0开始的序列
return CreateMatrix(2, 3);

范例二：矩阵

return nils(3, 2);

范例三：

// 有ColsValue参数并初始化该Matrix时，返回的MATRIX的列序列为ColsValue数组中//的字符串或整数
return CreateMatrix(3, 4, array('s', 'd', 'f'), 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);

MatrixToArray

用途：将 Matrix 转换为数组。参数：

matrix：Matrix 数据返回：数组。

范例

// 使用CreateMatrix创建一个Matrix，把这个Matrix转换为一个数组后返回该数组。
a := CreateMatrix(3, 4, array('s', 'd', 'f'), 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);
return MatrixToArray(a);

// 把TS的矩阵转化成Matrix类型数据
a := ones(5, 5);
return mselect * from a end;

GetMatrixFields

用途：获取 Matrix 的字段（列名）列表。参数：

matrix：Matrix 数据返回：字段名数组。

CreateBinary

用途：创建 Binary 缓冲区。参数：

size：字节长度返回：Binary 数据。

ConvertDataToBuf

用途：按指定类型将数据编码为内存 Buffer。参数：

value：输入数据
type_name：类型名称返回：Binary Buffer。

范例

// 将一个数据转换成内存存贮的BUFFER并返回
return ConvertDataToBuf(1.5343, 'Currency');

ConvertBufToData

用途：按指定类型将 Buffer 解码为数据。参数：

buffer：Binary Buffer
type_name：类型名称返回：解析后的数据。

None类型

None类型是一种极为特殊的特性，不参与运算，仅在特殊场景传递。None类型本身可以包含一个整数。

目前用于对象算符重载[]的数组设置算符时候，重载函数送入的第一个参数是索引值，第二个参数在非最后一级时设置为None类型，用于描述级别信息（最后一级送入的是要设置的值）。

####### 内容

ifNone
GetNone

####### ifNone

用途：判断是否为 None 类型。参数：

value：输入数据返回：布尔值。

具体应用可参考：FAQ：对象算符重载数组set算符时none类型的应用实例

####### GetNone

用途：获取 None 类型值（可携带整数标记）。参数：

tag：整数标记（可选）返回：None 值。

具体应用可参考：FAQ：对象算符重载数组set算符时none类型的应用实例

数据类型转换函数

内容

Integer
Int64
Real
String
WideString
Binary
SetPrecision
ToSTM
ToSTN
ToXML
STM
STN
XML
ExportCsv
ImportCsv

Integer

用途：将数值转换为整数。参数：

value：输入数值

返回：整数。

范例

return Integer(123.456); // 返回值为整型数据：123。

Int64

用途：将数值转换为 64 位整数。参数：

value：输入数值

返回：64 位整数。

范例

return Int64(123); // 返回值为64位整型数据：123。

Real

用途：将数值转换为实数。参数：

value：输入数值

返回：实数。

范例

return Real(123); // 返回值为实数数据：123.00

String

用途：将数据转换为字符串。参数：

value：输入数据

返回：字符串。

范例

return String(L'abcd');
// 返回值为字符串：abcd。

WideString

用途：将数据转换为 Unicode 字符串。参数：

value：输入数据

返回：Unicode 字符串。

范例

return WideString('abcd');
// 返回值为Unicode字符串：L’abcd’。

Binary

用途：将数据转换为二进制流。参数：

value：输入数据

返回：Binary 数据。

范例

return Binary('111111'); // 返回值为二进制流。

SetPrecision

用途：设置数值的小数精度。参数：

value：输入数值
digits：小数位数

返回：按精度处理后的数值。

范例

return SetPrecision(123.4567, 3); // 返回值为保留3位小数点后的实数：123.457。

ToSTM

用途：将数据序列化为 STM 二进制流。参数：

value：输入数据
mode：序列化模式（可选）
precision：小数位数（可选）

返回：STM 二进制流。

范例

return ToSTM(array(1, 23, 4, 5, 6, 7, )); // 返回以.stm为后缀名的二进制文件。

可选参数的应用

t := rand(4, 5);
s := ToSTM(t, 0, 1, 2); // 用新流模式，且保留两位小数
return stm(s);

返回如下：

ToSTN

用途：将数值格式化为 STN 字符串。参数：

value：输入数值
digits：小数位数（可选）

返回：字符串。

范例

范例一：

return ToSTN(12345); // 返回值为字符串：’12345’。

范例二：

return ToSTN(1.2345, 2); // 返回值为字符串：’1.23’。

ToXML

用途：将数据转换为 XML 字符串表示。参数：

value：待转换的数据

返回：XML 字符串。

范例

return ToXML("this is XML document");
// 返回值示例：
// <?xml version = "1.0"encoding = "GB2312"?>
// <TSXML Copyright = "Generated by ShenZhen Tinysoft Corp,Ltd. All rights reserved."type = "STRING"VALUE = "this is XML document" />

差异说明仅windows中支持，Linux中暂不支持。

STM

STN

XML

用途：解析 TSXML 字符串并返回内容。参数：

xml_text：TSXML 字符串

返回：解析结果值。

范例

return XML('<?xml version="1.0" encoding="GB2312"?>'
    + '<TSXML Copyright = "Generated by ShenZhen Tinysoft Corp,Ltd. All rights reserved."type = "STRING"VALUE = "this is XML document" /> ');
// 返回值示例："this is a document"。

差异说明仅windows中支持，Linux中暂不支持。

ExportCsv

用途：将数组导出为 CSV 格式字符串。参数：

data：数组数据
out_text：输出字符串（引用返回）
include_index：是否包含下标（可选，1/0）
include_header：是否包含表头（可选，1/0）

返回：是否成功（1/0）。

范例

范例01：一维数组转换成csv格式字符串

data := array(1, 2, "3", "A", 9, 8);
ret := ExportCsv(data, s);
if ret then return s;
else return ret;

范例02：二维数组转换成csv格式字符串

data := array((2, 5, 0), (3, 2, 1), (4, 7, 2));
ret := ExportCsv(data, s);
if ret then return s;
else return ret;

范例03：转换成csv格式字符串，结果包含数组下标信息

data := array("A":(2, 5, 0), "B":(3, 2, 1), "C":(4, 7, 2));
ret := ExportCsv(data, s, 1);
if ret then return s;
else return ret;

范例04：转换成csv格式字符串，结果不包含字段头部信息

data := array((2, 5, 0), (3, 2, 1), (4, 7, 2));
ret := ExportCsv(data, s, 0, 0);
if ret then return s;
else return ret;

ImportCsv

用途：将 CSV 字符串解析为数组。参数：

csv_text：CSV 字符串
out_data：输出数组（引用返回）
has_header：是否包含表头（可选，1/0）

返回：是否成功（1/0）。

范例

范例01：将指定csv格式字符串转换成二维数组

s := "0,1,2\r\n2,5,0\r\n3,2,1\r\n4,7,2\r\n";
ret := ImportCsv(s, data);
if ret then return data;
else return ret;

范例02：读取本地csv文件，并将其转换成数组

本地csv文件内容如下：

filepath := "D:\\test\\csv\\data.csv";
rdo2 ReadFile(rwRaw(), "", filepath, 0, 1000, s);
ret := ImportCsv(s, data, 1);
if ret then return data;
else return ret;

复制函数

内容

dupValue

dupValue

用途：复制值，避免被调用函数修改原变量。参数：

value：输入值

返回：复制后的值。

范例

// 主函数
function test1();
begin
    a := 1;
    b := 2;
    c := 3;
    d := test2(dupValue(a), b, c);
    return array(a, b, c, d);
end;
// 返回array(1,20,3,33)
// 被调用函数
function test2(a, b, c);
begin
    a := 10;
    b := 20;
    return a + b + c;
end;

由test1执行出来的结果可以知道，a变量，由于使用了dupValue复制值，虽然在子函数test2中改变了其值，但在主函数中的a变量仍然没变。而b变量则发生了改变。

随机函数

内容

randomize
random
RandomFrom

randomize

参考random RandomFrom

random

用途：生成随机数。参数：value 为上限（可选）；不传则生成 0~1 之间随机实数。返回：随机实数或随机整数。

定义1：random():Real;

说明：返回一个0到1之间的随机数

返回：实数。

定义2：random(value:Integer):Integer;

说明：如果无参数，则返回0->1之间的随机实数,如果参数为整数，则返回0->value之间的随机整数（不包括value），即左闭右开，如random(1)只会返回0。

参数：

max_value：上限（可选；不传返回 0~1 之间随机实数；传整数返回 [0, max_value) 随机整数）

范例：

// 表达式无参数
return random(); // 返回值为0到1随机实数：0.124562。

// 表达式有参数
return random(100); // 返回值为随机的0到100的整型数据：94。

参考：RandomFrom

RandomFrom

用途：从数组中随机取一个元素。参数：

items：候选数组

返回：随机元素。

范例

items := array('a', 'b', 'c', 'd', 'e', 'f');
return RandomFrom(items);
// 返回值为随机返回 items 中一个字符：'b'。

参考random

条件选择函数

内容

IfThen
IfThen3

IfThen

用途：条件成立返回 true_value，否则返回 false_value。参数：

condition：判断条件
true_value：条件成立时返回值
false_value：条件不成立时返回值

返回：true_value 或 false_value。

范例

left_value := 1;
right_value := 2;
return IfThen(left_value > right_value, left_value, right_value);
// 返回：2。

IfThen3

用途：比较两个值，返回大/等/小对应结果。参数：

left：左值
right：右值
greater_value：left > right 时返回
equal_value：left = right 时返回
less_value：left < right 时返回

返回：对应比较结果的值。

范例

return IfThen3(1, 2, '左大', '相等', '右大');
// 返回：’右大’

表达式相关函数

内容

Eval
Call
CallInArray
Invoke
Invokeinarray
SafeEval
DoubleVariableExecute
MultipleExecute
SingleVariableExecute
SafeSetSysParam

Eval

用途：计算表达式或表达式字符串并返回结果。参数：

expr：表达式（@）或表达式字符串（&）

返回：表达式计算结果。

范例

范例01：

// 表达式是字符串表达式。&转换字符串为表达式。
A := '1';
B := '2';
return Eval(&('A+B')); // 返回值为表达式的结果：'12'。

范例02：

// 表达式是语句表达式
A := 1;
B := 2; // A，B均为整型数据
return Eval(@(A + B));
// 返回值为整型数据：3，@(A+B)可以是一个执行语句块，调用该函数会得到执行语句块后的结果。

范例03：//字符串表达式中进行return返回。

s := 'a := 1;b := 2;return a+b;';
return Eval(&s);

结果：3

范例4：跨函数中传导引用参数和变量

setsysparam(pn_stock(), "SH600507");
return eval_test("StockZf4(t)", 20250723t);
function eval_test(e, endt);
begin
    t := specdate(ref(sp_time(), 1), endt);
    return array(datetostr(t), Eval(&e));
end;

参考Call CallInArray

Call

用途：按函数名字符串或函数指针调用函数。参数：

func：函数名字符串或函数指针
args：调用参数列表

返回：函数返回值。

范例

// 采用字符串方式来调用函数
return Call("IntTodate", 20140101);
// 返回41640

// 采用函数指针来调用函数
F := ThisFunction(IntToDate);
return Call(F, 20140101);
// 返回41640

参考Eval THISFUNCTION CallInArray

CallInArray

用途：以参数数组调用指定函数（含函数名或函数变量）。参数：

func：函数名字符串或函数指针
args：参数数组

返回：函数调用结果。

范例

范例1：根据函数名称调用，第一个参数为函数名称

return CallInArray("StrToIntDef", array('1234', 999));
// 返回1234

范例2：调用匿名函数，第一个参数是指向匿名函数的变量

{func1是一个变量，我们将一个函数体赋值给这个变量，变量型函数我们称为匿名函数，匿名函数的语句段放在某个函数体内，调用的时候，需使用call或callinarray函数进行调用。
// 这个例子中，a是一个变量，当a在func1匿名函数中，并在匿名函数体重修改a，使a := a + 10; ，但执行完匿名函数后，a参数的值是不变的，即不支持变参，所以最后返回a为10，b为20。
callinarray在这里执行匿名函数func1时，其参数不需要跟在func1之后。}
a := 10;
func1 := function(a) begin
    a := a + 10;
    return a;
end;
b := CallInArray(func1, array(a));
return array(a, b);
// array(10,20)

范例3：根据函数指针调用，第一个参数为函数指针

{thisfunction()函数可获得函数指针；由于调用的是stockzf3，该函数没有参数，因此，callinarray的第二个参数给空数组}
setsysparam(pn_stock(), 'SH000001');
return CallInArray(thisfunction(stockzf3), array());

范例04：调用时指定参数传参

function CCC(a, b, c, d); // 展示各参数的值
begin
    echo "A:", a, " B:", b, " C:", c, " D:", d;
    return b;
end;
// 调用
return CallInArray("CCC", array("b":1, "d":4));

返回：1

打印结果：A: B:1 C: D:40

解析：callINArray在通过数组传参数时，可以通过指定下标的方式给指定参数进行传参，下标对应函数定义中的变量名。

上面示例中，只对参数b与d进行了传参，其它两参数没有进行传值，所以是nil。

参考Eval THISFUNCTION Call

Invoke

用途：调用对象成员方法或设置成员属性。参数：

obj：目标对象
name：成员名
mode：0 调用方法；1 设置成员
args：方法参数或设置值

返回：调用结果或设置结果。

范例

范例01：设置成员变量后调用成员方法并返回结果

obj := new classTest();
// 设置成员变量name的值为"张三"
Invoke(obj, "name", 1, "张三");
// 设置成员变量age的值为18
Invoke(obj, "age", 1, 18);
// 设置成员变量sid的值为"ts001"
Invoke(obj, "sid", 1, "ts001");
// 执行单参数重载成员方法fun
a := Invoke(obj, "fun", 0, "name");
// 执行双参数重载成员方法fun
b := Invoke(obj, "fun", 0, "name", "age");
// 执行三参数重载成员方法fun
c := Invoke(obj, "fun", 0, "name", "age", "studentID");
return array(a, b, c);
type classTest = class
name;
age;
sID;
function fun(a);overload;
begin
    s := "\r\n" + a + ":" + name;
    echo s;
    return s;
end;
function fun(a, b);overload;
begin
    s := "\r\n" + a + ":" + name + " " + b + ":" + floattostr(age);
    echo s;
    return s;
end;
function fun(a, b, c);overload;
begin
    s := "\r\n" + a + ":" + name + " " + b + ":" + floattostr(age) + " " + c + ":" + sID;
    echo s;
    return s;
end;
end;

打印：

返回:参考Invokeinarray

Invokeinarray

用途：以参数数组调用对象成员方法或设置成员属性。参数：

obj：目标对象
name：成员名
mode：0 调用方法；1 设置成员
args：参数数组

返回：调用结果或设置结果。

范例

范例01：设置成员变量后调用成员方法并返回结果

obj := new classTest();
// 设置成员变量name的值为"张三"
Invokeinarray(obj, "name", 1, array("张三"));
// 设置成员变量age的值为18
Invokeinarray(obj, "age", 1, array(18));
// 设置成员变量sid的值为"ts001"
Invokeinarray(obj, "sid", 1, array("ts001"));
// 执行单参数重载成员方法fun
a := Invokeinarray(obj, "fun", 0, array("name"));
// 执行双参数重载成员方法fun
b := Invokeinarray(obj, "fun", 0, array("name", "age"));
// 执行三参数重载成员方法fun
c := Invokeinarray(obj, "fun", 0, array("name", "age", "studentID"));
return array(a, b, c);
type classTest = class
name;
age;
sID;
function fun(a);overload;
begin
    s := "\r\n" + a + ":" + name;
    echo s;
    return s;
end;
function fun(a, b);overload;
begin
    s := "\r\n" + a + ":" + name + " " + b + ":" + floattostr(age);
    echo s;
    return s;
end;
function fun(a, b, c);overload;
begin
    s := "\r\n" + a + ":" + name + " " + b + ":" + floattostr(age) + " " + c + ":" + sID;
    echo s;
    return s;
end;
end;

打印：

name:张三

name:张三 age:18

name:张三 age:18 studentID:ts001返回:

范例02：命名参数调用的方式

// 调用
obj := new classTestB();
return Invokeinarray(obj, "fun", 0, array("c":3, "b":2, "a":1)); // 命名参数的调用
// 类实现
type classTestB = class
function fun(a, b, c);overload;
begin
    return array(a, b, c);
end;
end;

返回:array(1,2,3)参考Invoke

SafeEval

用途：安全执行表达式或表达式字符串，执行失败返回 nil。参数：

expr：表达式（@）或表达式字符串（&）返回：表达式结果或 nil。

DoubleVariableExecute

用途：设置两个系统参数数组并计算表达式。参数：

arr1：第一个参数值数组
param1：系统参数函数（如 pn_Stock()）
arr2：第二个参数值数组
expr：表达式

返回：结果数组。

算法

根据参数Arr和TimeArr的长度设置不同的系统参数，求表达式的值范例

stocks := array(getbk('上证50'));
time_arr := MarketTradeDayQk(20220101T, 20221211T);
return DoubleVariableExecute(stocks, pn_Stock(), time_arr, @close());

返回:（部分结果截图）

MultipleExecute

用途：基于系统参数 STOCKS/BKS/TIMES 批量计算表达式。参数：

expr：表达式返回：结果数组。

算法

(1)获得'STOCKS'，'BKS'，'TIMES'对应的系统参数；

(2)根据以上系统参数是否是数组型，设置不同的系统参数，求表达式的值

SingleVariableExecute

用途：设置一个系统参数数组并计算表达式。参数：

arr：参数值数组
param：系统参数函数（如 pn_Stock()）
expr：表达式