TField.AsDateTime Exception?

[Mavarik]

Aus Data.DB

Delphi-Quellcode:

function TField.GetAsDateTime: TDateTime;
begin
  raise AccessError('DateTime'); { Do not localize }
end;

Ok, Also jeder Aufruf von

Delphi-Quellcode:

var
  D  : TDateTime.
  FD : TFDQuery;
begin
//  ..
  D := FD.FieldByName('LastChange').AsDateTime;
//  ..
end;

Erzeugt eine Exception... (Ich steh gerade auf dem Schlauch)

Wo ist der Trick den ich gerade nicht sehe?

Mavarik

[sahimba]

function GetAsDateTime: TDateTime; virtual;
und ist bspw. in TStringField überschrieben mit
Result := StrToDateTime(GetAsString);

[mkinzler]

Ich nehme an, das dies die Standardmethode ist und in abgeleiteten Klassen entsprechend überschrieben wird.

[Mavarik]

Zitat von mkinzler:

Ich nehme an, das dies die Standardmethode ist und in abgeleiteten Klassen entsprechend überschrieben wird.

Ja klar, aber ein FDQuery.FieldbyName('LastChange') hat als Result ein TField, welches nicht überschrieben ist..

[mkinzler]

Es wird aber die entsprechende Ableitung zurückgegeben: IntegerField, StringField, usw.

[sahimba]

[QUOTE=Mavarik;1323977]

Zitat von mkinzler:

Ja klar, aber ein FDQuery.FieldbyName('LastChange') hat als Result ein TField, welches nicht überschrieben ist..

Was da zurückkommt, ist von TField abgeleitet.

[DeddyH]

Das nennt sich Polymorphie

[Mavarik]

[QUOTE=sahimba;1323981]

Zitat von Mavarik:

Zitat von mkinzler:

Ja klar, aber ein FDQuery.FieldbyName('LastChange') hat als Result ein TField, welches nicht überschrieben ist..

Was da zurückkommt, ist von TField abgeleitet.

Wenn das so wäre, würde ja die abgeleitete Methode aufgerufen werden... Ist aber nicht so!

[Daniel]

Wie sieht denn der Feld-Typ in der DB aus und verwendest Du bei FD irgendwelche Typ-Mappings?
Bei mir geht's nämlich.

[Mavarik]

Zitat von Daniel:

Wie sieht denn der Feld-Typ in der DB aus und verwendest Du bei FD irgendwelche Typ-Mappings?
Bei mir geht's nämlich.

Keine Typ-Mappings...

Nur der "Query" kann das nicht, wenn ich

Delphi-Quellcode:

function GetLastChange: TDateTime;
begin
  Result := FDBase.SQLConnection.ExecSQLScalar('SELECT LastChange FROM FOOTABLE order by LastChange DESC LIMIT 1');
end;

funktioniert es...