Einzelnen Beitrag anzeigen

easywk

Registriert seit: 9. Jul 2003
Ort: Schwanewede
117 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: StrToTime löst unerklärbare Exception aus

  Alt 7. Mär 2007, 16:33
Ob es ein nicht-deutsches Windows ist kann ich nicht sagen. Aber ich habe auch schon folgendes probiert:
Delphi-Quellcode:
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,StartFormatSettings);
try
  Result:=StrToTime(s,StartFormatSettings);
except
  Result:=-1;
end;
Und die StartFormatSettings habe ich in einer Logdatei ausgegeben. Sind die gleichen Werte wie bei mir.

Selbst
Delphi-Quellcode:
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,StartFormatSettings);
StartFormatSettings.ThousandSeparator:='.';
StartFormatSettings.DateSeparator:='.';
StartFormatSettings.TimeSeparator:=':';
StartFormatSettings.DecimalSeparator:=',';
try
  Result:=StrToTime(s,StartFormatSettings);
except
  Result:=-1;
end;
hat nichts gebracht - und spätestens dann müssen es ja die korrekten Settings sein, oder?
Björn
if all else fails - read the instructions
  Mit Zitat antworten Zitat