TSL语言基础 > Object TSL > 函数信息

ThisFunction    

  • F:=ThisFunction(Object or class.Function);
    查找方法的又一个方法;参数格式为:
    1) 对象名.方法名,如果创建了对象,可用这种方法。
    2) class(类名).方法名,如果是类方法,而且没有穿件对象,可以这样使用。

    program test;
    type A=class()
    function F()
    Begin
    writeln("f");
    End;

    class function F2();
    Begin
    writeln("f2");
    end;
    End;
    begin
    //从对象中查找实例方法
    AA:=createobject("A");
    F:=ThisFunction(AA.F);
    F.do();
    //从类中查找类方法
    F2:=ThisFunction(class(A).F2);
    F2.do();
    End.