A generic Delphi class that can wrap any type in an object. Designed for use in wrapping value types and strings in objects. Extracted from my CodeSnip project (http://codesnip.delphidabbler.com/)

UBox.pas

unit UBox;


interface


type
  ///  <summary>Generic class that wraps a type in an object.</summary>
  ///  <remarks>Although this type can be used to wrap any type it is aimed at
  ///  wrapping value types and strings.</remarks>
  TBox<T> = class(TObject)
  strict private
    var
      ///  <summary>Value of Value property.</summary>
      fValue: T;
  public
    ///  <summary>Constructs an object that wraps the specified value.</summary>
    constructor Create(Value: T);
    ///  <summary>Value wrapped by object.</summary>
    property Value: T read fValue;
  end;


implementation


{ TBox<T> }

constructor TBox<T>.Create(Value: T);
begin
  fValue := Value;
end;

end.