testgenericinheritance.out

来自「格式化源码的最新板」· OUT 代码 · 共 46 行

program testgenericinheritahnce;{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  ttest = class
    fdata: integer;
  end;

  ttest<i> = class
    fdata: i;
  end;

  ttest<i,s> = class
    fdata: i;
    fitem: s;
  end;

  tgeneric<a,b> = class
    fdata: a;
    fitem: b;
  end;

  tgeneric<a> = class(TGeneric<A,string>)
    fdata: a;
  end;

  tgenerictest<r,u> = class(TGeneric<R>)
    fdata: r;
  end;
var
  gen1: ttest;
  gen2: ttest<integer>;
  gen3: ttest<integer,string>;
begin
  try
    gen1 := ttest.Create;
    gen2 := ttest<integer>.Create;
    gen3 := ttest<integer,string>.Create;
  except
    on e: Exception do
      writeln(e.ClassName, ': ', e.message);
  end;
end.