StringToClass for TCustomAttribute descendant?

[HJay]

Ich benötige eine Umwandlung eines Strings ('TestListAttribute') in eine Klasse. Wie kann man einen String in eine Klasse umwandeln, die von TCustomAttribute abgeleitet ist?

Delphi-Quellcode:

interface

TestListAttribute = class(TCustomAttribute) end;

implementation

procedure Frage;
  var AClass : TClass;
      AName  : String;
begin
  AName  := 'TestListAttribute';
  AClass := StringToClass(AName); // how to implement StringToClass()?
end;

[himitsu]

Via RTTI suchen.

Ich wüsste jetzt auch keinen Grund, wozu man sowas gebrauchen könnte, drum hat da auch niemand 'ne zentrale Registrierungsstelle dafür eingebaut.