StrToTime löst Exception bei Millisekunden

[Union]

Du musst den Decimalseparator in dem TFormatSetting anpassen, da dieser als ms Trennzeichen verwendet wird. Und natürlich auch die Formatsettings als Parameter übergeben. Zudem würde ich keine Funktionsnamen (i.e. Date) als Variablennamen verwenden:

Delphi-Quellcode:

var
   glFmtSet: TFormatSettings;
   Datum : TDateTime;
begin
   GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, glFmtSet);
   glFmtSet.DecimalSeparator := '.';
   Datum := StrToTime('12:05:20.160', glFmtSet);
end;