testtpobjects.out

格式化源码的最新板

unit TestTPObjects;

{ AFS 5 Feb 2001

  This code compiles, but is not semantically meaningfull.
  It is test cases for the code-formating utility

  This unit tests Turbo-pascal style objects
  It is not recommended that you use these -
  they are for backward compatibility with TP6&7 or thereabouts only
  }

interface


type

  TFoo = object
  end;

  TBar = object
  private
  protected
  public
  end;

  TBaz = object
    li1: integer;
  private
    li2: integer;
  protected
    li3: integer;
  public
    li4: integer;
  end;

  TFish = object(TBar)
    procedure Swim;
  end;


implementation

{ TFish }

procedure TFish.Swim;
begin
  // swiminy fishee!
end;

end.