negociousuario.~pas

来自「exemplo de classes em delphi」· ~PAS 代码 · 共 19 行

unit negocioUsuario;

interface
uses unitUsuario;

type
  NegocioUsuario = class
  private
    estado:boolean;
  public
    function setEstado(usuario:):boolean;
  protected
  published
end;

implementation

end.