Delphi XE7 Multidevice SQL Fehler TIMESTAMP Ret. Feld

Question

Ich habe einen SQLTIMESTAMP binded (SQL-Ausgang der Abfrage von Datenmodul)

(On Live-Bindungen) -> BindVIsually TTMFSMXGRID.

Wenn ich die Abfrage öffnen, wird das Feld im Raster (EX: 06/05/2016, etc.) korrekt gefüllt

Aber wenn ich versuche, die Cell[x,y] als StringToSqltimestamp es wieder in einem anderen Format kommen zu nehmen (WRONG FORMAT). Und ich versuche, Feld für eine Abfrage zu verwenden, damit es mir einen Fehler (EOF) macht, weil nichts in diesem Datum findet.

dm1.UpdMsg.ParamByName('data').AsSQLTimeStamp:=StrToSQLTimeStamp(GrRec.Cells[1,GrRec.FocusedCell.Row]); 

Irgendeine Idee darüber, wie man es löst?

Answer 1

Wie andere Formatierfunktionen für Datum/Uhrzeit verwendet StrToSqlTimeStamp() standardmäßig Formatierungskriterien, die auf dem aktuellen Systemgebietsschema basieren. Wenn dies nicht dem entspricht, was Sie benötigen (z. B. können Tag und Monat vertauscht sein), können Sie die überladene Version verwenden, die eine TFormatSettings als Eingabe akzeptiert, damit Sie sie anpassen können.

var 
    Fmt: TFormatSettings; 
begin 
    // Get default settings first... 
    Fmt := TFormatSettings.Create; 

    // customize Fmt as needed... 
    Fmt.ShortDateFormat := 'dd/mm/yyyy'; 
    Fmt.DateSeparator := '/'; 

    // not convert... 
    dm1.UpdMsg.ParamByName('data').AsSQLTimeStamp := StrToSQLTimeStamp(GrRec.Cells[1,GrRec.FocusedCell.Row], Fmt); 
end;