Ejemplo de cómo definir una clase genérica simple en Delphi

He aquí cómo definir una clase genérica simple:

type

TGenericContainer<T> = class

Value : T;

end;

Con la siguiente definición, aquí está cómo usar un contenedor genérico entero y string:

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;

(0 votes)