type bb=class
 data;
 public
 function create(v);
 begin
   data:=v;
 end;
 function operator++(v);
 begin
   if v=0 then//d:=obj++;时
   begin
      r:= new bb();
      r.data:=data;
      r.data++;
      return r;
    end //其它情况下，都是++后的状态
    else data++;
  end;
  function operator--(v);
  begin
    if v=0 then
    begin
      r:= new bb();
      r.data:=data;
      r.data--;
      return r;
    end
    else data--;
  end;
  function operator+=(v);
  begin
    data+=v;
  end;
  function operator-=(v);
  begin
    data-=v;
  end;
end;

t:=array(1,2,3,999,5);
 b:=new bb(t);
 ++b;//自加
 echo "++b后：";
 echo "b.data: ",tostn(b.data);
 c:=b++;
 echo "c:=b++;后：";
 echo "c.data: ",tostn(c.data);
 echo "b.data:",tostn(b.data);