Delphi XE7マルチデバイスSQLエラーTIMESTAMP Ret。フィールド

Question

私は（DataModuleのからクエリのSQL出力）SQLTIMESTAMPバインドさをしました（ライブバインディングオン）

- > BindVIsually TTMFSMXGRID。

私は、クエリを開くと、フィールドが正しくグリッド（EX：06/05/2016、など）に充填され

しかし、私はそれを別の形式に戻ってくるCell[x,y]StringToSqltimestampとして（WRONG FORMATを取るしようとすると、 ）。そして、私はその日付で何も見つからないので、それは私にエラー（EOF）を作るようにクエリのフィールドを使用しようとしています。

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

解決方法はありますか。

Answer 1

その他の日付/時刻の書式設定機能と同様に、StrToSqlTimeStamp()は既定では、現在のシステムロケールに基づく書式設定基準を使用します。それが必要なものと一致しない場合（たとえば、曜日と月が入れ替わった場合など）、入力としてTFormatSettingsを受け入れるオーバーロードされたバージョンを使用して、カスタマイズすることができます。

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;