Fields.DataTyp einer Query in einer Showmessage anzeigen lassen

[juergen]

Hallo zusammen,

ich habe von einer Fremdsoftware die Feldnamen bekommen welche ich abfragen "darf". Allerdings nicht die Datentypen. Der Anwender kann sich aus einem Pool der möglichen Spalten diejenigen auswählen die ihn gerade interessieren.
In meinem Code muss ich auf den jeweiligen Datentyp reagieren und unterschiedliche Funktionen anwenden.
Allerdings funktionieren meine DataType-Abfragen nicht. Jetzt wollte ich mir mal den Datentyp anzeigen lassen.

Delphi-Quellcode:

while not AD_Query_1.Eof do begin
  for j := 0 to AD_Query_1.Fields.Count - 1 do begin
    if j = 7 then ShowMessage(AD_Query_1.Fields[j].DataType);  // das geht so natürlich nicht, aber wie könnte ich mir den DataType anzeigen lassen?
....

Gibt es hierfür eine Möglichkeit?

Vielen Dank schon mal Vorab!

[Sir Rufo]

GetEnumName

[juergen]

Hallo Sir Rufo,

vielen Dank, das scheint es zu sein was ich benötige. :thumb:

Allerdings bekomme ich es nicht ans Laufen, da mir in diesem Bereich die Kenntnisse einfach fehlen.
Ich habe mir das Beispiel aus der Hilfe angeschaut.

Delphi-Quellcode:

Var
Info     : PTypeInfo;
begin
  // 1. Versuch  
  Info := System.TypeInfo(AD_Query_1.Fields[j].DataType); // Fehlermeldung: ...E2133 Standardfunktion TYPEINFO erwartet einen Typbezeichner 
  ShowMessage(Info^.Name);  // Fehlermeldung: ...W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'

  // 2. Versuch
  ShowMessage(TypInfo.GetEnumName(AD_Query_1.Fields[j].DataType) // Fehlermeldung: ...E2010 Inkompatible Typen: 'PTypeInfo' und 'TFieldType'
  
end;

Wie müsste ich das umsetzen? :gruebel:
Vielen Dank!

[Sir Rufo]

Delphi-Quellcode:

uses
  System.TypInfo;

type
  TEnum = (eOne, eTwo);

ShowMessage( 
  GetEnumName( 
    {TypeInfo: PTypeInfo} TypeInfo( TEnum ), 
    {Value: Integer} Ord( eOne ) ) ); // sollte eOne zeigen

[juergen]

Hallo,

habe es jetzt hinbekommen:

Delphi-Quellcode:

ShowMessage(GetEnumName(TypeInfo(TFieldType), Integer(AD_Query_1.Fields[j].DataType)))

Danke für die Unterstützung!

[Rollo62]

Funktioniert das auch ?

Ist etwas kürzer aber wohl erst in neueren Delphis vorhanden.

Rollo