格式
FundClass(“ClassName”);
根据类名找到当前的类。
返回找到类的指针，不是指向实例对象。
示例：
classA :=FindClass(“A”);
classA指向了类A，可以通过ClassA调用A的共享方法。但是不能调用实例方法，因为ClassA没有指向实例对象。
示例：
program test;
type A=class()


End;
Type B=class()

End;

Type C=class(A,B)

class function f()

Begin


writeln("f");

End;
End;

begin

CC:=FindClass("C");


CC.F();

End.