tsl-devkit/test/test.tsl

66 lines
1.3 KiB
Plaintext

// SYNTAX TEST "tsl"
// 字符串,数字,注释
// 注释 TODO
a := "string"; // 字符串
b := 123; // 数字
c := 1.23; // 浮点数
// 类相关
type MyClass = class
public
function Create();
function Destroy();virtual;
function Func1(a, b);
function Func2(a: real; b: string): array of string;
function Func3(a: real = 1; b: string = "123"): array of string;
property P1 write param1_ read param1_;
private
param1_: real;
param2_: array of string;
end;
function MyClass.Func1(a, b);
begin
end;
function MyClass.Func3(a: real = 1; b: string = "123"): array of string;
begin
obj.P1;
self.P1;
end
// 属性链
echo obj.name;
user.profile.email;
data.items.count;
// 函数声明
function f(); // 无参数
function f(a, b); // 参数无类型
function f(a: real; b: DD); // 参数有类型
function f(a: real = 1; b: string = "123"; c: number = abc.CONST1): def; // 带返回类型
// 函数调用
f();
f(a, b);
f(a: 1; b: 's');
// 三元表达式(不应该有冲突)
a ? b : c;
a ? b : c ? d : e;
// select
Select ["test"] from table end;
vselect ["test"] from table end;
select distinct ["test"] from table where ['a'] = 1 end;
// array
a := array(1, 2);
b := array((1, 2), (3, 4))