5.7 KiB
5.7 KiB
Builtin Runtime Objects
文档类型:语法主线 是否可直接用于生成代码:仅部分 是否含已验证可执行示例:是 是否含已验证反例:否 遇到不确定时跳转到:23_object_runtime_and_introspection.md、30_runtime_services_and_global_cache.md、12_pitfalls.md
手册位置:第 24 篇,共 32 篇。上一篇:23_object_runtime_and_introspection.md。下一篇:25_set_operations.md。
这一篇只收当前解释器下已经实际跑通的运行时内置对象最小模型。这里讲的是语言运行时对象,不是金融业务 API。
这一篇解决什么问题
回答“写普通 TSL/TSF 脚本时,哪些内置对象可以直接创建,最小可用接口是什么,哪些对象其实依赖特定运行上下文”。
必须记住的规则
- 当前 CLI 里,
TStringList已验证可以直接CreateObject("TStringList")创建。 TStringList当前已验证支持数字下标、字符串键下标、Count和Add(...)。- 流对象应先按
TStream家族理解;当前 CLI 里最小可靠入口是TMemoryStream这种具体类型。 - 当前 CLI 里,直接
CreateObject("TStream")会失败,错误信息包含function:tstream compile error or not found。 TMemoryStream当前已验证支持Write(...)、Read(...)、Position、Size。TCipher当前不是“无参即可创建”的对象;CreateObject("TCipher")会失败。TCipher当前已验证可用的最小写法是CreateObject("TCipher", 2),然后设置Password再做Encrypt(...)/Decrypt(...)。TWebRequest和TWebResponse在当前 CLI 环境里没有通过直接CreateObject(...)的最小样例。- 因此,WEB 请求 / 响应对象不要直接写进普通命令行脚本模板;它们应视为特定运行上下文对象。
已验证语法
TStringList
代码块身份:已验证可执行示例
program test;
begin
obj := CreateObject("TStringList");
obj.CommaText := "A=aaa,B=bbb,C=222";
WriteLn(obj[1]);
WriteLn(obj["B"]);
WriteLn(obj.Count);
obj.Add("D=444");
WriteLn(obj.Count);
end.
已验证运行结果:
- 依次输出
B=bbb、bbb、3、4 - 说明当前既可以按数字下标取整行,也可以按键名取
Name=Value里的值
TStream 家族的最小可靠入口:TMemoryStream
代码块身份:已验证可执行示例
program test;
begin
mem := CreateObject("TMemoryStream");
buffer := "ABC";
mem.Write(buffer, 3);
mem.Position := 0;
outbuf := "xxx";
mem.Read(outbuf, 3);
WriteLn(outbuf);
WriteLn(mem.Size);
try
base := CreateObject("TStream");
WriteLn(ifObj(base));
except
WriteLn("TStreamError");
WriteLn(ExceptObject.ErrInfo);
end;
end.
已验证运行结果:
- 前两行输出
ABC、3 - 后两行输出
TStreamError,以及包含function:tstream compile error or not found的错误信息 - 说明当前 CLI 里应优先使用
TMemoryStream这类具体流对象,不要把裸TStream当成可直接创建对象
TCipher
代码块身份:已验证可执行示例
program test;
begin
try
bad := CreateObject("TCipher");
WriteLn("NoArg");
WriteLn(ifObj(bad));
except
WriteLn("NoArgError");
WriteLn(ExceptObject.ErrInfo);
end;
cipher := CreateObject("TCipher", 2);
cipher.Password := "Tinysoft";
enc := cipher.Encrypt("abc");
WriteLn(enc <> "abc");
WriteLn(cipher.Decrypt(enc));
end.
已验证运行结果:
- 前两行输出
NoArgError,以及包含New Class tcipher Error.的错误信息 - 后两行输出
1、abc - 说明
TCipher当前必须按“带模式参数创建”来写,随后可稳定走Password -> Encrypt -> Decrypt
TWebRequest / TWebResponse 的 CLI 边界
代码块身份:已验证可执行示例
program test;
begin
try
req := CreateObject("TWebRequest");
WriteLn("ReqOk");
WriteLn(ifObj(req));
except
WriteLn("ReqError");
WriteLn(ExceptObject.ErrInfo);
end;
try
resp := CreateObject("TWebResponse");
WriteLn("RespOk");
WriteLn(ifObj(resp));
except
WriteLn("RespError");
WriteLn(ExceptObject.ErrInfo);
end;
end.
已验证运行结果:
- 先输出
ReqError,随后错误信息包含function:twebrequest compile error or not found - 再输出
RespError,随后错误信息包含function:twebresponse compile error or not found - 说明当前 CLI 环境下,WEB 请求 / 响应对象不能直接按普通
CreateObject(...)脚本对象来写
暂不在本页展开的对象
TFileStreamTIniFileTMemIniFileTHashedStringListTRSAFTP/SMTP/POP3MailMsg/MessagePartTCookie/TCookieCollectionTSessionMan/TSession
这些对象旧资料里都出现过,但当前这一篇先只保留“新 session 最容易直接用到”的最小主干。需要把其中某个对象升级进主线正文时,应先补最小脚本再写结论。
跳转指引
- 回看对象主线:见 09_objects_and_classes.md
- 看对象运行时反射:见 23_object_runtime_and_introspection.md
- 看运行时服务与缓存:见 30_runtime_services_and_global_cache.md
- 看对象重载与遍历:见 32_object_overloads_and_iteration.md