No puedes hacer esto:
Código:
type
TRecordFileClass = class of TRecordFile;
pues, tal como te lo dijo el compilador, TRecordFile tiene que ser una clase.
¿Para qué usar records si puedes usar clases?
Por otra parte no entiendo bien cómo quieres lograr la genericidad. Una vez que usas clases puedes agregar cualquier objeto como se hace con un TObjectList y posteriormente hacer el "casting" cuando tengas que acceder a cada objeto.
Si deseas a toda costa evitar el "casting" puedes definir una clase base para tu lista enlazada que se encargue de todo el manejo (las listas enlazadas sólo requieren un apuntador al objeto que guardan así que pedes hacerla independiente del tipo de objeto):
Código:
type
TListaEnlazada = class
protected
function GetObject(Index: Integer):TObject;
public
property Objects[Index: Integer]: TObject read GetObject;
end;
Después, si necesitas específicamente una lista de facturas crearías un descendiente de TListaEnlazada en donde redefinirías la propiedad Objects:
Código:
type
TListaFacturas = class
private
function GetFactura(Index: Integer):TFactura;
public
property Objects[Index: Integer]: TFactura read GetFactura;
end;
GetFactura simplemente devuelve el Objects[Index] de la clase base pero haciendo el "casting":
Código:
Result := TFactura(inherited Objects[Index]);
El punto aquí es que una vez que la lista base está hecha, los descendientes son muy sencillos de hacer (mera rutina).
Desde luego que lo mejor sería oder declarar algo así como
Código:
property Objects[Index]: TVariantObject;
donde VariantObject puediera cambiarse durante la ejecución. Pero me temo que con Delphi no podrás hacerlo.
// Saludos