Simple Generics Type Example

Simple Generics Type Example

Here’s how to define a simple generic class:

type

TGenericContainer<T> = class

Value : T;

end;

With the following definition, here’s how to use an integer and string generic container:

var

genericInt : TGenericContainer<integer>;

genericStr : TGenericContainer<string>;

begin

genericInt := TGenericContainer<integer>.Create;

genericInt.Value := 2009; //only integers

genericInt.Free;

genericStr := TGenericContainer<string>.Create;

genericStr.Value := 'Delphi Generics'; //only strings

genericStr.Free;

end;