Daten Feld Typ rausfinden

[toyoman]

Hallo Leute

Um in einem Filter-Fenster die Datentypen versch. durchsuchbarer Felder zu wissen habe ich folgende Funktion:

Delphi-Quellcode:

function getAdoFieldDataTyp(query: TAdoQuery; feldtext: String): TFieldType;
begin
      result:=query.Fields.FieldByName(feldtext).DataType;
end;

Im Programm selber frag ich dann wie folgt ab:

Delphi-Quellcode:

// Numerisch?
if (getadoFieldDataTyp(datamodule2005.ADOQuery1, edfeld.text) = ftInteger) or ....

Bis anhin hat das ganz gut funktioniert. Nun greife ich auf eine Tabelle zu welche Datentypen Integer und aber auch NVARCHAR hat. Diese werden nun scheinbar nicht mehr korrekt erkannt, weil er gibt immer numerisch zurück.

Datümer frage ich über getadofielddatatyp.... = ftdatetime or ftdate ab.
Text Felder über ....= ftString
Memo Felder über ....= ftMemo

Was muss ich für NVARCHAR Felder prüfen? Bei einem alten Projekt wo es funktioniert waren es einfache VARCHAR Definitionen....

Danke und Gruss aus der heissen Schweiz

[RavenIV]

Grüäzi

mach doch bei der Funktion einen Breakpoint und schau nach, was in
query.Fields.FieldByName(feldtext).DataType drin steht.

gruesse aus dem heissen Zürich

[toyoman]

Zitat:

Zitat von RavenIV

Grüäzi

mach doch bei der Funktion einen Breakpoint und schau nach, was in
query.Fields.FieldByName(feldtext).DataType drin steht.

gruesse aus dem heissen Zürich

Danke für den Tipp, hätt ich auch drauf kommen können. Aber ist einfach zu heiss... :)

Es war der Typ ftWideString...

[Bernhard Geyer]

Zitat:

Zitat von toyoman

Es war der Typ ftWideString...

NVarchar -> ftWideString
Bei älteren Delphi-Versionen hättest du aufgrund von Bugs in diesem Bereich noch ftString bekommen.

[toyoman]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von toyoman

Es war der Typ ftWideString...

NVarchar -> ftWideString
Bei älteren Delphi-Versionen hättest du aufgrund von Bugs in diesem Bereich noch ftString bekommen.

Ok, würde erklären warum ich das Problem erst jetzt mit Delphi 2007 festgestellt habe (vorher Delphi 7).