c1:=new c();
echo c1.length()," ",length(c1),"\r\n";
echo mcols(c1),"\r\n";//返回列数
echo tostn(c1.mcols(1)),"\r\n"; //返回列下标
return ;
type c=class
 fa;
 function create();
 begin
   fa:=array(("A":1,"B":2,"C":3),("A":5,"B":5,"C":5));
 end;
 function operator mcols(n);
 function operator length();
 begin
   return ::length(fa);
 end;
end;
function operator c.mcols(n);
begin
 _n:=ifnil(n)?0:n;
 return mcols(fa,_n);
end;