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?