Standard-Typen in einer vordefinierten Aufzählung?

[Satty67]

Ich verwende oft eigene untypisierte Pointer die ich dann in einer case-Abfrage entsprechend zuweise oder ähnliche Konstrukte. Für die Case-Abfrage hab' ich dann zuvor eine Aufzählung definiert. z.B.
TDataTyp = (typInteger, typWord, typString); Jetzt dachte ich mir, das es für die Datentypen in Delphi ja sicher schon irgendwo eine Aufzählungen geben müsste, die man dann immer nehmen könnten.

In der System-Unit sind zwar die Typen Byte,Integer & Co. definiert, aber nicht als Aufzählung. Das lässt sich dann aber nicht als Parameter verwenden:
function TuWas(aPtr : Pointer; aTyp : TDataTyp): Pointer; Jetzt gibt es evtl. eine andere Möglichkeit, wie ich in "aTyp" die Standard-Datentypen von Delphi übermitteln kann und zwar so, das dieser Parameter auch möglichst in einer Case-Abfrage verarbeiten kann.

Natürlich hab' ich eine Aufzählung der Typen in einer meiner HelperUnits, aber da müsste es doch was geben?

PS: Delphi 5, also Types und Variants nicht so vollständig wie in D7+

[himitsu]

neee, als Aufzählung wüßt ich nichts.

du könntest höchstens die RTTI-Infos als Parameter übergen, aber ob das dann sooo komfortabel ist?


Ansonsten gibt's 'ne Art Aufzählung bei den Variants.
siehe Units System, Variants und VarUtils
[edit] das PS grad gelesen

aber mir kam es so vor, als wenn man den Variant um weitere Typen nachrüsten kann

[Satty67]

Ja, die Definitionen für Varianten kommt nah ran, wobei nicht alle Varianten zueinander kompatibel definiert sind. So richtig schön ist das damit nicht zu lösen.

derzeit verwende ich halt sowas:

Delphi-Quellcode:

  TDelphiDataTyp = (typBoolean,
                    typByte,
                    typWord,
                    typShortInt,
                    typSmallInt,
                    typLongInt,
                    typInt64,
                    typReal48,
                    typSingle,
                    typDouble,
                    typExtended,
                    typComp,
                    typCurrency,
                    typDateTime,
                    typChar,
                    typShortString,
                    typPChar,
                    typString,
                    typPointer);

Das bietet den meisten Komfort... dachte halt nur, das sowas elementares doch irgendwo definiert sein müsste und ich nur zu blöd bin es zu finden

Dann schreibe ich es meistens auch noch neu, weil ich es vergesse, dass ich es schon definiert hatte (siehe Miltiple TypKonvertierung)

[himitsu]

Zitat von Satty67:

TDelphiDataTyp

du hast den WideString vergessen
und Real48 sowie Comp würde ich garnicht erst aufnehmen ... da ich die nicht verwenden würde.

Comp ist 'nen Int64, nur mit anderem Bitmuster, und daß er meißt nur wie'n ganzzahliger Fließkommatyp verwendbar ist und auch noch über die FPU läuft.

Real48 ist ja auch nichtmehr ein "neuer" Typ und mit seinen 6 Byte auch nicht grad einfach für CPU behandelbar.

[Satty67]

Ja, WideString habe ich noch nicht oft verwendet, weshalb ich den gerne vergesse. Kommt natürlich mit rein.

Real48 brauche ich, da ich noch auf alte FileOfRecord (ja, sehr alte) zugreife, die den Datentyp verwenden. Da kommt demnächst was interessantes von mir (zu dran rummäkeln )

An Comp erinnere ich mich jetzt nicht, dass ich den je gebraucht hätte. Da Real48 drin ist, muss ich auch Comp mit in die Liste nehmen, sonst bekomme ich Ärger mit der Gleichstellungsbeauftragten.