Datum in dbGrid/dbEdit über TAdoQuery formatiert anzeige

[Delphi.Narium]

Dem Ereignis AfterOpen der TADOQuery ... ein Ereignis zuweisen und in dem dann ungefähr sowas:

Delphi-Quellcode:

  for i := 0 to ADOQuery.Fields.Count - 1 do begin
    case ADOQuery.Fields[i].DataType of
      ftDateTime : ADOQuery.Fields[i].DisplayFormat := 'YYYY-MM-DD HH:MM:SS';
      ftDate : ADOQuery.Fields[i].DisplayFormat := 'HH:MM:SS';
      ftTime : ADOQuery.Fields[i].DisplayFormat := 'YYYY-MM-DD';
    end;
  end;

ungetestet hingedaddelt