Classen Typinfo GUID & Generics. Nicht eindeutig identifizierbar?

[Sequitar]

Delphi-Quellcode:

Class Procedure Tfactory.Reg(Cl: TClass);
Begin
  If Assigned(Fclassregister)
  Then
  Begin
    Var
    Info := Ptypeinfo(Cl.ClassInfo);
    If Assigned(Info)
    Then
      Try
        Var
        Guid := Info^.TypeData.GUID;
        Fclassregister.Reg(Guid, Cl);
      Finally
      End;
  End;
End;

Tfactory.Reg([taclass<String, String>, taclass<String, Byte>,
  taclass<String, Integer>, taclass<Byte, Byte>]);

Hallo, ich bin eben auf ein Problem mit der eindeutigen idenzifizierung meiner registrierten Klassen gestoßen..
Bisher hab ich in einem dictionary die paare (guid,class)registriert, wobei die guid wie oben dargestellt erzeugt/abgefragt wurde.
Ich ging davon aus,die seien systemweit eindeutig und daher besser geeignet als irgendwelche selbst erstellten strings etc ?

nun habe ich den fall, dass ich mehrerere generische klassen registrieren - und auch wieder abfragen will, aber hier scheinen die klassen guids immer gleich zu sein? jedenfalls werden bereits bestehende registrierungen dabei vom neuen generischen typ überschrieben...pale:

wie kann ich nun auch solche generischen klassen eindeutig zuordnen. sonst hab ich bald chaos

[mjustin]

Wie wird der Klasse eine GUID zugeordnet? (per Property, Annotation, Funktion...?)

Hat im Codebeispiel nur die generische "Basis"-Klasse taclass eine GUID?

[Uwe Raabe]

Zitat von mjustin:

Wie wird der Klasse eine GUID zugeordnet? (per Property, Annotation, Funktion...?)

Es handelt sich bei GUID um eine Funktion des Typs TTypeData aus System.TypInfo.

Zitat von Sequitar:

Ich ging davon aus,die seien systemweit eindeutig und daher besser geeignet als irgendwelche selbst erstellten strings etc ?

Die Dokumentation dazu ist etwas sparsam, aber die Implementation lässt schließen, daß nur für Interface-Typen ein brauchbarer Wert dabei herauskommt. Da es sich bei TTypData um einen varianten Record handelt, wird der Speicher für die GUID bei anderen Typen für andere Dinge verwendet. Deswegen steht da wohl immer irgendwas drin, aber nur bei Interface-Typen ist das wirklich eine GUID.

Deinen Ansatz kannst du also getrost in die Tonne treten - nicht nur bei generischen Klassen.

[jaenicke]

Du kannst die Registrierung über die PTypeInfo direkt machen. Da brauchst du keine GUID oder irgendetwas, der Pointer darauf reicht schon zur eindeutigen Identifizierung im Dictionary.

[Sequitar]

Zitat von jaenicke:

Du kannst die Registrierung über die PTypeInfo direkt machen. Da brauchst du keine GUID oder irgendetwas, der Pointer darauf reicht schon zur eindeutigen Identifizierung im Dictionary.

Hm das wäre ja schön einfach. Ich werde das morgen mal testen. Vielen Dank

NB :ich brauche halt eine eindeutige - und am besten bereits automatisierte - Identifizierung, ohne dass ich jetzt ZB irgendwelche hash Funktionen dazugeben muss

Hält das auch bei generics Stand? Müsste ja eigentlich denn tbla<x> ist ja ein anderer Typ als tbla<y> soweit ich weiß... Also auch andere typinfo

[Sequitar]

Zitat von mjustin:

Wie wird der Klasse eine GUID zugeordnet? (per Property, Annotation, Funktion...?)

Hat im Codebeispiel nur die generische "Basis"-Klasse taclass eine GUID?

Naja interfaces ordnet man ja gewöhnlich eine zu. Da ich bei PTypeInfo fündig geworden bin, nahm ich an dass klassen bereits eine von sich aus liefern würden.
Uwes Antwort dagegen schießt einen sinnvolle Verwendung jedoch aus, wenn das nur für Interfaces mit einer *echten * GUID hinterlegt ist

[jaenicke]

Zitat von Sequitar:

Hält das auch bei generics Stand? Müsste ja eigentlich denn tbla<x> ist ja ein anderer Typ als tbla<y> soweit ich weiß... Also auch andere typinfo

Ja, genau.

Das funktioniert nur bei den diversen Typaliasen der einfachen Typen nicht. Zum Beispiel ist TDateTime ja eigentlich nur ein Fließkommawert und hat daher auch dessen Typinfo.