Привет, использую в одном проекте тип
1.
2.
3.
4.
5.
6.
7.
8.
9.
TSQLTimeStamp = record
Year: Word;
Month: Word;
Day: Word;
Hour: Word;
Minute: Word;
Second: Word;
Fractions: LongWord;
end;
из модуля Data.SqlTimSt.
Отображаются в том числе миллисекунды. Для отображения и сохранения в XML использую функцию
1.
function SQLTimeStampToStr(const Format: string; DateTime: TSQLTimeStamp): string;
Вот таким образом, например:
1.
SubNode.Text := SqlTimeStampToStr('dd.mm.yyyy hh:nn:ss.zzz', aAction.Start);
Нормально сохраняется, вот узел из XML
1.
<start>17.02.2021 15:30:20.500</start>
Для загрузки из XML использую
1.
function StrToSQLTimeStamp(const S: string; const FormatSettings: TFormatSettings): TSQLTimeStamp;
(Там готовых вариантов - 2, этот и то же без FormatSettings).
Обрезаются миллисекунды.
Задаю свойства FormatSettings вот так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var FS: TFormatSettings;
begin
FS := TFormatSettings.Create;
FS.ShortDateFormat := 'dd.mm.yyyy'; //дату показывает нормально
FS.LongDateFormat := 'dd.mm.yyyy'; //это вообще наверное не нужно
FS.LongTimeFormat := 'hh:nn:ss.zzz';
FS.ShortTimeFormat := 'hh:nn:ss.zzz';
...
Ovr.Start := StrToSQLTimeStamp(aNode.ChildValues['start'], FS);
...
Миллисекунды обрезает при преобразовании строки. Я заглянул, как реализована функция, пока не до конца разобрался, ну и напишу, если что, свою для разбора строки, но может быть кто-то сталкивался с такой ситуацией иил похожим, знает, что задать в FormatSettings или еще какой-то нюанс, чтобы просто воспользоваться этой функцией и чтобы из строки передались миллисекунды? Там в функции StrToSQLTimeStamp сначала строка преобразуется в TDateTime, а потом уже в TSQLTimeStamp.
