gen03.pas

unit Gen03;

{$mode delphi}{$H+}

interface

uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

   { TPessoa }

   TPessoa = class
   private
      Fnome: string;
      procedure Setnome(AValue: string);
   public
     property nome : string read Fnome write Setnome;
   end;

   { TNFe }

   TNFe<T: constructor> = class
     FGeneric : T;
     function PegaGeneric : T;
     constructor create;
   end;

   { TForm1 }

   TForm1 = class(TForm)
      btnGeneric: TButton;
      procedure btnGenericClick(Sender: TObject);
   private

   public

   end;

var
   Form1: TForm1;

implementation

{$R *.lfm}

{ TPessoa }

procedure TPessoa.Setnome(AValue: string);
begin
   Fnome := AValue;
end;

{ TForm1 }

procedure TForm1.btnGenericClick(Sender: TObject);
var
   vTeste: TNFe<string>;
   vNFe : TNFe<TPessoa>;
begin
   vNFe := TNFe<TPessoa>.Create;
   try
     vNFe.FGeneric.nome := 'Fernando';
     ShowMessage(vNFe.FGeneric.nome);
   finally
     vNFe.Free ;
   end;
end;

{ TNFe }

function TNFe<T>.PegaGeneric: T;
begin
   Result := FGeneric;
end;

constructor TNFe<T>.create;
begin
   FGeneric := T.create;
end;

end.