Fórum Como Acessar Classe em DLL do mesmo ProjectGroup D2006? #351753

library sisdll;

uses
  SysUtils,
  Classes;

  type TPessoa = Class
   private
     
     FCodigo: Integer;
     FNome: String;
     FEmail: String;

     {Metodos dos Atributos}
     function GetCodigo: Integer;
     procedure SetCodigo(varCodigo: Integer);
     function GetNome: String;
     procedure SetNome(varNome: String);
     function GetEmail: String;
     procedure SetEmail(varEmail: String);

   public
     
     property Codigo: Integer read GetCodigo write SetCodigo;
     property Nome: String read GetNome write SetNome;
     property Email: String read GetEmail write SetEmail;
  end;


{$R *.res}

{ Pessoa }

function TPessoa.GetCodigo: Integer;
begin
  result := FCodigo;
end;

function TPessoa.GetEmail: String;
begin
  result := FEmail;
end;

function TPessoa.GetNome: String;
begin
  result := FNome;
end;

procedure TPessoa.SetCodigo(varCodigo: Integer);
begin
  FCodigo := Codigo;
end;

procedure TPessoa.SetEmail(varEmail: String);
begin
  FEmail := Email;
end;

procedure TPessoa.SetNome(varNome: String);
begin
  FNome := Nome;
end;


begin
end.