HOWTO: Im DBGrid eine Spalte mit Uhrzeit aber ohne Datum anzeigen

CHLINDE

Ich hatte folgendes Problem:

Gegeben war eine Datenbanktabelle mit einem Feld "Uhrzeit". Hierin befanden sich Daten im Format "hhss".
Jetzt habe ich mir die komplette Tabelle in ein ADOQuery eingelesen und anschließend in einem DBGrid angezeigt. Die Uhrzeit wurde dann automatisch mit dem Datum 30.12.1899 ergänzt.

Das konnte ich wie folgt verhindern:

...
ADOQuery->SQL->Add("SELECT * FROM Tabelle");
ADOQuery->Active = true;
ADOQuery->Open();

// Folgeder Code (Kot) ist erforderlich, um zu verhindern, dass vor der Uhrzeit immer "30.12.1899" ergänzt wird
TDateTimeField* Datumsfeld = dynamic_cast <TDateTimeField*> (ADOQuery->FieldByName("Uhrzeit"));
Datumsfeld->DisplayFormat = "hh:mm:ss";
//

DataSource->Enabled = true;
DataSource->DataSet = ADOQuery;

Form1->DBGrid->DataSource = DataSource;