testgenericclasshelper.out

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

program testgenericclasshelper;{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tgenerique<t> = class
    champ: t
  end;
  tgeneriqueint = tgenerique<integer>;

  thelpergeneriqueint = class helper for tgeneriqueint
    procedure test;
  end;
  tgeneriquestring = tgenerique<string>;

  procedure thelpergeneriqueint.test;
  begin
    writeln('Proc閐ure fournie par un assistant de classe.');
  end;

var
  assistant:  tgeneriqueint;
  assistant2: tgeneriquestring;
begin
  try
    assistant := tgeneriqueint.Create;
    assistant.test;
  except
    on e: Exception do
      writeln(e.ClassName, ': ', e.message);
  end;
  readln;
end.