Software verhält sich auf Betriebssystemen unterschiedlich

[TiGü]

Zitat von günni0:

Ich komme der Problemstelle näher.
Könnte es sein, dass eine der beiden folgenden Zeilen bei manchen Windows 10-Installationen Probleme verursacht?

Delphi-Quellcode:

DateTimePicker1.Time := StrToTime('12:00:00');
DateTimePicker2.DateTime := Now + 1;

Schon vor diesem Fehler beim Programmstart rufe ich eine Prozedur auf die das hier ausführt

Delphi-Quellcode:

 FormatSettings.TimeSeparator := System.SysUtils.TimeSeparator;
 FormatSettings.DateSeparator := System.SysUtils.DateSeparator;

Lass mich raten: Das eine Windows 10, wo es funktioniert, hat deutsche Spracheinstellungen und das andere Windows 10, bei dem es nicht funktioniert, hat eine andere Sprache, bspw. Englisch?

[Delphi.Narium]

Und was steht im System.SysUtils.TimeSeparator?
Der : oder eine andere Systemeinstellung?

Die Windowskonfiguration bezüglich der Datums- und Zeiteinstellungen eventuell mal überprüfen?

[günni0]

Zitat:

Lass mich raten: Das eine Windows 10, wo es funktioniert, hat deutsche Spracheinstellungen und das andere Windows 10, bei dem es nicht funktioniert, hat eine andere Sprache, bspw. Englisch?

Richtig. Der Problem-PC steht irgendwo auf der Welt wo ich keinen Zugriff habe. Wenn ich mich nicht irre irgendwo in Indien.

Ich nutze Delphi für Windows Version 10.2 (kostenlos).

[TiGü]

Zitat von günni0:

Zitat:

Lass mich raten: Das eine Windows 10, wo es funktioniert, hat deutsche Spracheinstellungen und das andere Windows 10, bei dem es nicht funktioniert, hat eine andere Sprache, bspw. Englisch?

Richtig. Der Problem-PC steht irgendwo auf der Welt wo ich keinen Zugriff habe. Wenn ich mich nicht irre irgendwo in Indien.

Ich nutze Delphi für Windows Version 10.2 (kostenlos).

Denk mal drüber nach, was passiert, wenn du einen String mit deutschen Zeitformat versuchst in eine Zeit auf einen (wahrscheinlich) englischen Betriebssystem umzuwandeln.

[Delphi.Narium]

Das ist jetzt geraten und nur so als Idee gedacht:

Delphi-Quellcode:

var
  sUhrZeit : String;
begin
  sUhrZeit := Format('%.2d%s%.2d%s%.2d',[12, System.SysUtils.TimeSeparator, 0, System.SysUtils.TimeSeparator, 0]);
  DateTimePicker1.Time := StrToTime(sUhrzeit);
  DateTimePicker2.DateTime := Now + 1;
end;

[günni0]

Ich dachte StrToTime berücksichtigt das alles.

Mein Workaround sieht so aus

Delphi-Quellcode:

function CustomFormatSettings(TimeSeparator: Char = ':'; DateSeparator: Char = '/'): TFormatSettings;
begin
 Result := TFormatSettings.Create(GetUserDefaultLCID);
 Result.TimeSeparator := TimeSeparator;
 Result.DateSeparator := DateSeparator;
 Result.ShortDateFormat := 'dd' + DateSeparator + 'mm' + DateSeparator + 'yyyy';
 Result.LongDateFormat := 'dddd, dd. mm yyyy';
end;

DateTimePicker1.Time := StrToTime('12:00:00', CustomFormatSettings);

[hoika]

Hallo,
endlich mal eine Problembeschreibung von Dir

Bei manchen Windows-Installationen ist das Datumsformat vermurkst.
Ich weiß, wir sind hier bei der Uhrzeit.

Unter Windows gibt es 2 Einstellungsstellen für die Region.
Die eine Stelle siehst unter Systemsteuerung/ Region, Delphi benutzt die andere ...

Lösung1:
Unter Region auf "Weitere Einstellungen" und dort unten auf "Zurücksetzen".

Lösung2:
DateTimePicker1.Time := EncodeTime(12,0,0,0);
Also weg von den StrToX-Funktionen.

Wir haben uns wie auch Du eine eigene Methode gebaut.

[günni0]

Was ist denn zu bevorzugen.

EncodeTime oder StrToTime mit FormatSettings als Parameter?

[Delphi.Narium]

EncodeTime

[günni0]

Letzte Frage. Wie gehe ich denn am besten an einer Stelle vor, wo ich StrToTime verwenden muss, weil der Parameter ein String ist und ich dessen Format nicht immer zu 100% sicherstellen kann?