unitusuario.pas

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

unit unitUsuario;

interface

type
  Usuario = class
  private
    flogin,fsenha:string;

  public
    constructor create;overload;
    constructor create (login:string;senha:string); overload ;
    procedure setFlogin(login:string);
    procedure setSenha(senha:string);
    function getFsenha():String;
    function getFlogin():string;

  protected
  published

end;
implementation
{ Usuario }
function Usuario.getFlogin(): string;
begin
 result:=self.flogin;
end;
function Usuario.getFsenha(): String;
begin
  result:=self.fsenha;
end;
constructor Usuario.create;
begin
 self.flogin:='nil';
 self.fsenha:='nil';
end;
constructor Usuario.create(login, senha: string);
begin
  self.flogin:=login;
  self.fsenha:=senha;
end;

procedure Usuario.setFlogin(login: string);
begin
  self.flogin:=login;
end;
procedure Usuario.setSenha(senha: string);
begin
  self.fsenha:=senha;
end;



end.