csh
/
playbook
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
playbook/docs/tsl/syntax_book/function/tsl/system.md

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：表达式

返回：结果数组。

范例

// Arr中存储的是代码，获取2019年3月1日，Arr中所有代码的收盘价
arr := array('SZ000001', 'SZ000002');
return SingleVariableExecute(arr, pn_stock(), @close());
SafeSetSysParam

用途：安全设置系统参数（与 SetSysParam 类似，失败不抛异常）。 参数：

  • param_name：参数名或系统参数函数
  • value：参数值 返回：设置结果（成功为 1，失败为 0）。
性能优化相关函数
内容
  • SetProfiler
  • GetProfilerInfo
SetProfiler

用途：设置性能分析开关与统计范围。 参数：

  • flags：统计选项位掩码

返回：无。

范例

范例01：1+2+4的优化信息返回

SetProfiler(7);
a := array();
SetSysParam(PN_Stock(), 'SH000001');
for i := 20000101t to 20200721T do
begin
    if not spec(istradeday(i), 'SH000001') then continue;
    echo specdate(close(), i);
end;
return 1;

结果：times为函数运行的次数，seconds为运行时间，op为指令的优化信息，type为函数类型。

范例02：内置对象的优化信息返回

SetProfiler(8);
o := new TStringList();
o.text := "Tinysoft"; // 给对象的属性赋值
o.DelimitedText := 'A=abc,B=123,C=abc,F=996,E=abd';
o.Add("G=666");
return 1;

优化信息如：

GetProfilerInfo

用途：获取性能分析信息。 参数：

  • mode：可选；传 1 仅返回信息不弹窗

返回：性能分析信息。

范例

范例01：不弹出profiler窗口

setprofiler(7); // 记录TSL源代码函数调用+二进制函数的调用+指令调用的优化信息
a := 99;
b := inttostr(a); // inttostr是函数
a := rand(1000, 1); // rand是指令
a := select * from a where [0] > 0.5 end; // select是指令
setsysparam(pn_stock(), "SZ000002");
b := nday3(100, close()); // nday3也算是指令，不是函数 ,close是函数
return GetProfilerInfo(1);

范例02：弹出profiler窗口

setprofiler(7); // 记录TSL源代码函数调用+二进制函数的调用+指令调用的优化信息
a := 99;
b := inttostr(a); // inttostr是函数
a := rand(1000, 1); // rand是指令
a := select * from a where [0] > 0.5 end; // select是指令
setsysparam(pn_stock(), "SZ000002");
b := nday3(100, close()); // nday3也算是指令，不是函数 ,close是函数
t := GetProfilerInfo();
return b;

返回结果：返回程序结果的同时，另外弹出profiler窗口

函数库路径
内容
  • sysgettsllibpath
  • syssettsllibpath
sysgettsllibpath

用途：获取当前函数库查找路径。 参数：无。 返回：当前查找路径字符串。

范例

echo "当前查找路径：", sysgettsllibpath(), '\r\n';
syssettsllibpath

用途：设置函数库查找路径（支持分号分隔的多个目录）。 参数：

  • path_list：路径列表字符串（分号分隔）

返回：设置前的查找路径字符串。

范例

a := 198.86;
b := -22.34;
echo "当前查找路径：", sysgettsllibpath(), '\r\n';
syssettsllibpath("C:\\DoTSL\\otherTest\\;");
echo "当前查找路径：", sysgettsllibpath(), '\r\n';
try
    v := TestTsfsum(a, b);
    echo "TestTsfsum执行成功：", v, '\r\n';
except
    echo ExceptObject.ErrInfo, '\r\n';
end;
return "执行完毕";
调用堆栈