289 lines
8.3 KiB
Markdown
289 lines
8.3 KiB
Markdown
# Pitfalls
|
|
|
|
文档类型：反例索引页
|
|
是否可直接用于生成代码：否
|
|
是否含已验证可执行示例：否
|
|
是否含已验证反例：是
|
|
遇到不确定时跳转到：[03_core_model.md](03_core_model.md)、[06_functions_and_calls.md](06_functions_and_calls.md)、[09_objects_and_classes.md](09_objects_and_classes.md)
|
|
|
|
手册位置：第 12 篇，共 32 篇。上一篇：[11_runtime_context_and_with.md](11_runtime_context_and_with.md)。下一篇：[13_matrix_and_collections.md](13_matrix_and_collections.md)。
|
|
|
|
这一篇不讲新知识，只做反例索引。
|
|
|
|
## 这一篇解决什么问题
|
|
|
|
回答“哪些写法最容易凭直觉写出来，但在 TSL 里会编译失败、运行出错，或语义并不可靠”。
|
|
|
|
## Agent 常见误写判断流程
|
|
|
|
1. 先识别用户写法属于值、变量、函数、表达式、对象、unit、TS-SQL 还是外部调用误区。
|
|
2. 遇到本页反例时，不要修成相邻语言习惯，必须跳回对应语法页找已验证正例。
|
|
3. 反例只用于排错和避免误写，不作为可照写模板。
|
|
4. 修复时保留 `.tsl` / `.tsf` 文件模型判断，不要只改局部语句。
|
|
5. 没有已验证代码块时不要发明替代语法。
|
|
|
|
## 这页怎么用
|
|
|
|
- 先按主题扫一遍，再回到对应正文看正确写法。
|
|
- 这里不重复讲完整规则，只保留“错法 -> 正确页”的索引。
|
|
- 只有已经单独验证过的误写，才会列在这里。
|
|
|
|
## 已验证反例索引
|
|
|
|
### 文件模型与基础值
|
|
|
|
#### 1. 把裸 `class Name` 当成顶层类声明
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
class Person
|
|
end;
|
|
```
|
|
|
|
这会编译失败。正确页：见 [09_objects_and_classes.md](09_objects_and_classes.md)
|
|
|
|
#### 2. 把 `=` 当成赋值
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
a = 1;
|
|
```
|
|
|
|
代码块身份：已验证输出片段
|
|
|
|
```text
|
|
invalid statement
|
|
```
|
|
|
|
这会编译失败。正确页：见 [07_expressions_and_operators.md](07_expressions_and_operators.md)
|
|
|
|
#### 3. 把字符串当成 0 基下标
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
s := "ABC";
|
|
WriteLn(s[0]);
|
|
```
|
|
|
|
这会在运行时报字符串下标越界。正确页：见 [04_values_and_literals.md](04_values_and_literals.md)
|
|
|
|
#### 4. 把普通字符串里的 `"\uXXXX"` 直接当成和 `L"\uXXXX"` 一样的单字符宽串
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
WriteLn(Length("\u0041"));
|
|
WriteLn(Length(L"\u0041"));
|
|
```
|
|
|
|
这不是同一件事。当前解释器里前者输出 `2`，后者输出 `1`。正确页：见 [04_values_and_literals.md](04_values_and_literals.md)
|
|
|
|
#### 5. 把 `U""` 误当成和 `L""` 一样的宽串
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
WriteLn(IfWString(U"\u5929\u8F6F"));
|
|
WriteLn(IfWString(L"\u5929\u8F6F"));
|
|
```
|
|
|
|
这不是同一回事。当前解释器里前者输出 `0`，后者输出 `1`。正确页：见 [04_values_and_literals.md](04_values_and_literals.md)
|
|
|
|
#### 6. 把带 `#0` / `\0` 的字符串当成会自动截断的零结尾串
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
s := "A"#0"B";
|
|
WriteLn(Length(s));
|
|
```
|
|
|
|
这不要按 C 风格字符串去理解。当前解释器里这里输出 `3`，说明 `#0` 仍是字符串内容的一部分。正确页：见 [04_values_and_literals.md](04_values_and_literals.md)
|
|
|
|
#### 7. 在 `.tsl` 声明区后面继续写脚本语句
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
a := 1;
|
|
test();
|
|
|
|
function test();
|
|
begin
|
|
echo "test";
|
|
end;
|
|
|
|
echo "after declaration";
|
|
```
|
|
|
|
`.tsl` 可以有语句区和声明区，但顺序必须清楚：语句区在前并按顺序执行，函数/类声明区在后。不要在声明区后面继续写脚本语句。正确页：见 [03_core_model.md](03_core_model.md)
|
|
|
|
#### 8. 顶层单独写 `const Name = value;`
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
const value = 1;
|
|
```
|
|
|
|
这在当前解释器里会编译失败。正确页：见 [05_variables_and_constants.md](05_variables_and_constants.md)
|
|
|
|
### 函数与调用
|
|
|
|
#### 9. 把 `a = 1` 当成命名参数
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
Pack(a = 1, b = 2)
|
|
```
|
|
|
|
这不要当成可靠的命名参数写法。它虽然可能编译通过，但实测返回结果不对。正确页：见 [06_functions_and_calls.md](06_functions_and_calls.md)
|
|
|
|
#### 10. 把 `like` 当成 SQL `%` / `_` 通配
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
WriteLn("abc" like "a%");
|
|
```
|
|
|
|
这在当前解释器里输出 `0`，不要按 SQL `LIKE` 去理解。当前手册里，`like` 的右侧按正则模式解释。正确页：见 [07_expressions_and_operators.md](07_expressions_and_operators.md)
|
|
|
|
#### 11. 把普通函数默认参数规则直接套到 `unit interface` 的 `const` 默认参数
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
unit UnitConst;
|
|
interface
|
|
const CS = 888;
|
|
function F(a, b = 100, c = CS);
|
|
```
|
|
|
|
这不要直接当成已经等价于普通函数默认参数规则的写法。在当前解释器里，对应的 `F(1)` 实测输出是 `101`，不是按 `CS = 888` 补值。正确页：见 [06_functions_and_calls.md](06_functions_and_calls.md) 和 [10_units_and_scope.md](10_units_and_scope.md)
|
|
|
|
#### 12. 把 `external` 后面的 DLL 名直接写成字符串拼接表达式
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
function TickFromExpr(): int64; stdcall; external "kernel32"$"."$"dll" name "GetTickCount64";
|
|
```
|
|
|
|
这会编译失败，错误是 `dll filename const string not found after external`。正确页：见 [06_functions_and_calls.md](06_functions_and_calls.md)
|
|
|
|
### Unit 与查找路径
|
|
|
|
#### 13. 把“文件就在当前目录”当成当前命令行解释器已经能找到对应 `unit` / `.tsf`
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
program test;
|
|
uses DemoUnit;
|
|
begin
|
|
WriteLn(Ping());
|
|
end.
|
|
```
|
|
|
|
如果 `DemoUnit.tsf` 所在目录没有进入 `-LIBPATH`、`tsl.conf` 的 `Libpath=` 或运行时查找路径，上面这种写法虽然语法能过，但运行时仍然找不到 `Ping()`。正确页：见 [10_units_and_scope.md](10_units_and_scope.md)
|
|
|
|
#### 14. 把函数体或类定义体里的 `uses` 写在第一条语句之后，或在同一作用域里重复写第二个 `uses`
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
function Run();
|
|
begin
|
|
a := 1;
|
|
uses DemoUnit;
|
|
return Ping();
|
|
end;
|
|
|
|
type Worker = class
|
|
uses UnitA;
|
|
uses UnitB;
|
|
end;
|
|
```
|
|
|
|
上面这两类写法都没有通过。函数里的错法会报 `invalid statement`，类里的错法会报 `invalid class definition`。正确页：见 [10_units_and_scope.md](10_units_and_scope.md)
|
|
|
|
#### 15. 把限定读取 `DemoUnit.VarName` 误当成也支持限定赋值
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
DemoUnit.UnitCounter := 13;
|
|
```
|
|
|
|
这在当前解释器里会编译失败，错误是左值不可赋值。正确页：见 [10_units_and_scope.md](10_units_and_scope.md)
|
|
|
|
### 类与对象
|
|
|
|
#### 16. 把裸类名当成 `class function` 或静态字段的直接访问入口
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
MathBox.Add(1, 2);
|
|
|
|
THuman.mCount := 7;
|
|
```
|
|
|
|
这两种写法在当前解释器里都没有通过。当前已验证可用的是先拿到类类型，再用 `class(MathBox).Add(...)` / `FindClass("MathBox").Add(...)` 调类方法，以及 `class(THuman).mCount` 访问静态字段。正确页：见 [09_objects_and_classes.md](09_objects_and_classes.md)
|
|
|
|
#### 17. 把 `private` / `protected create` 当成一定会执行的构造函数
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
program test;
|
|
type A = class
|
|
public
|
|
value;
|
|
private
|
|
function create(v);
|
|
begin
|
|
self.value := v;
|
|
end;
|
|
end;
|
|
begin
|
|
a := new A(111);
|
|
WriteLn(a.value);
|
|
end.
|
|
```
|
|
|
|
这不会报“不能创建对象”，但 `create` 不会执行；上面的 `a.value` 实测输出 `<NIL>`。正确页：见 [09_objects_and_classes.md](09_objects_and_classes.md)
|
|
|
|
#### 18. 在子类里把父类 `private` 成员当成 `protected` 成员用
|
|
|
|
代码块身份：反例 / 不可照写
|
|
|
|
```text
|
|
program test;
|
|
type A = class
|
|
private
|
|
secret;
|
|
end;
|
|
type B = class(A)
|
|
public
|
|
function SetSecret(v);
|
|
begin
|
|
self.secret := v;
|
|
end;
|
|
end;
|
|
```
|
|
|
|
这会在执行时报对象成员访问错误。正确页：见 [09_objects_and_classes.md](09_objects_and_classes.md)
|
|
|
|
## 跳转指引
|
|
|
|
- 整体读法：见 [01_introduction.md](01_introduction.md)
|
|
- 函数写法：见 [06_functions_and_calls.md](06_functions_and_calls.md)
|
|
- unit / uses：见 [10_units_and_scope.md](10_units_and_scope.md)
|
|
- 类写法：见 [09_objects_and_classes.md](09_objects_and_classes.md)
|