Timestamp Unix in TDateTime Anzeigen

[Alterauge]

Hallo DeddyH,
habe selber noch keine Ahnung!
Bin noch Ahnungslos am googeln, aber ohne Erfolg.

Timestamp Unix ist was ganz neues für mich!

[DeddyH]

Wieso nutzt Du denn nicht die von Klaus vorgeschlagene Routine UnixToDateTime aus DateUtils?

[Alterauge]

Der Vorschlag von Klaus ist bestimmt gut!
Komme da aber nicht weiter, habe es noch nicht verstanden!

Da ist die Funktion vorgegeben, brauche aber bestimmt noch eine
Procedure fürs Grid oder nicht?

Habe bestimmt gerade wieder ein Brett vorm Kopf!
So sind die Anfänger halt!

[DeddyH]

Kann man da nicht auf Feldebene ansetzen? Also entweder schon in der SQL-Abfrage casten oder wenn das nicht geht, im OnGetText des Feldes umwandeln. Das fällt mir zumindest als Erstes ein.

[Alterauge]

Ok,Danke dür Deinen Hinweis!
Versuche mal mein Glück!

[Klaus01]

Guten Morgen,

kannst Du mal einen Timestamp hier einstellen?
Kann es sein, dass der Timestamp noch Millisekunden enthält?

Kannst Du den Timestamp hier (http://www.unixtime.de/) konvertieren?

Grüße
Klaus

[Alterauge]

Hallo,

siehe Anhang Bild3 das DBGrid mit Timestamp.
Die Daten kommen aus einer MySQL DB.

[DeddyH]

Zitat von DeddyH:

Kann man da nicht auf Feldebene ansetzen? Also entweder schon in der SQL-Abfrage casten

https://dev.mysql.com/doc/refman/5.5..._from-unixtime

[Alterauge]

Hallo,
hier jetzt das Rroblem richtig beschrieben.

Greife mit einem CRDBGrid auf eine mySQL DB zu.
Im CRDBGrid wird in der Zeile Timestamp das UnixDateTime format angezeigt!

Dieses möchte ich gerne ändern in das FormatDateTime.
Habe mir folgendes überlegt:

Delphi-Quellcode:

procedure TForm1.CRDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i : Integer;
  Wert: string;
  d: TDateTime;
begin
   if (CRDBGrid1.DataSource.DataSet.RecordCount = 0) then
     Exit;
  Wert := CRDBGrid1.DataSource.DataSet.FieldByName('Timestamp').Value;
  d:= UnixToDateTime(i);
  Label3.Caption := FormatDateTime('dd/mm/yy  hh:nn:ss', d);  
  //CRDBGrid1.Canvas.TextRect(Rect, Label3.Caption);
  CRDBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Aber komme einfach nicht weiter, wer hat für mich einen Lösungsvorschlag?

[DeddyH]

Immer noch denselben: konvertiere doch gleich in der Abfrage.