Preciso fazer uma herança múltipla em Delphi. Lendo alguns artigos, o modo mais apropriado é fazendo uma interface.
Como faço isso, sabendo que temos as classes abaixo como exemplo:
type
TPessoa = class
//atributos e métodos
end;
type
TPessoaFisica = class(TPessoa)
//atributos e métodos
end;
type
TPessoaJuridica = class(TPessoa)
//atributos e métodos
end;
Atualmente estou criando duas variáveis e instanciando uma, conforme o tipo de seleção do usuário. Queria englobar duas em uma e instanciar conforme a necessidade.
var
CadPJ: TCadastroPJ;
CadPF: TCadastroPF;
begin
if rdTipoPessoa.ItemIndex = 0 then
begin
try
CadPF:= TCadastroPF.Create;
CadPF.LicencaIDCliente:= idCliente;
CadPF.NomePessoa:= edtNome.Text;
CadPF.gravarPF;
finally
CadPF.Free;
end;
end
else
begin
try
CadPJ:= TCadastroPJ.Create;
CadPJ.LicencaIDCliente:= idCliente;
CadPJ.NomeFantasia:= edtNomeFantasia.Text;
CadPJ.gravarPJ;
finally
CadPJ.Free;
end;
end;
end;