testgenerics2.out

格式化源码的最新板

unit TestGenerics2;


{ AFS November 2007 

  This code compiles, but is not semantically meaningfull.
  It is test cases for the code-formating utility

  Test new generics syntax - like TestGenerics, but all generics have 2 params
}


interface

uses
  SysUtils;

type
  TGenericType<AnyType1, AnyType2> = class
    FData: AnyType;
    function GetData: AnyType;
    procedure SetData(Value: AnyType);
    property Data: AnyType Read GetData Write SetData;
  end;

implementation

function TGenericType<AnyType1, AnyType2>.GetData: AnyType;
begin
  Result := FData;
end;

procedure TGenericType<AnyType1, AnyType2>.SetData(Value: AnyType);
begin
  FData := Value;
end;

type
  TGenericTypeInt = TGenericType<integer, integer>;

var
  I: TGenericTypeInt;

initialization
  try
    with TGenericType<integer, integer>.Create do
      Data := 100;

    I      := TGenericTypeInt.Create;
    I.Data := 100;
    WriteLn(I.Data);

    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.