Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.508 Beiträge
 
Delphi 7 Professional
 
#4

AW: Datum in dbGrid/dbEdit über TAdoQuery formatiert anzeige

  Alt 26. Feb 2021, 17:15
Hast Du denn schon AfterOpen-Ereignisse?

Wenn nein, dann eine Routine schreiben und die allen entsprechenden Komponenten zuweisen.
Delphi-Quellcode:
procedure TForm1.ADOQryAfterOpen(DataSet: TDataSet);
var
          i : Integer;
begin
  for i := 0 to DataSet.Fields.Count - 1 do begin
    case DataSet.Fields[i].DataType of
      ftDateTime : DataSet.Fields[i].DisplayFormat := 'YYYY-MM-DD HH:MM:SS';
      ftDate : DataSet.Fields[i].DisplayFormat := 'HH:MM:SS';
      ftTime : DataSet.Fields[i].DisplayFormat := 'YYYY-MM-DD';
    end;
  end;
end;

// Irgendwo zentral z. B. sowas in der Art:
procedure TForm1.SetAfterOpen;
var
  i : Integer;
begin
  for i := 0 to ComponentCount do begin
    if Components[i] is TDataSet then TDataSet(Components[i]).AfterOpen := ADOQryAfterOpen;
  end;
end;
auch wieder nur hingedaddelt.
  Mit Zitat antworten Zitat