Stored classes identified by integer - how to get type base on number?

[Aphton]

You could probably try this out (depending on your Delphi Version)

Delphi-Quellcode:

type
  TClassEnum = (ceFirstClass, ceAnotherClass{, ...}); // ...

  TBaseClass = class of TBase;  // TBase is your base class (TFirstClass and TAnotherClass inherit from TBase!)

const
  cClassEnumTypes: Array[TClassEnum] of TBaseClass = (TFirstClass, TAnotherClass{, ...});

// AType: TClassEnum;
var
  Instance: TBase;
begin
  Instance := cClassEnum[AType].Create;
  Instance.LoadFromStream; 
  {...}
end;