TFormatsettings etc unter Delphi 6 ?

[KodeZwerg]

Da ich Deinen Source nicht kenne gebe ich Dir das mit auf den Weg.
Beispiel:

Delphi-Quellcode:

function StringToDateTime(const Value: String): TDateTime;
var
  FormatSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_USER_DEFAULT, FormatSettings);
  FormatSettings.DateSeparator := '_';
  FormatSettings.ShortDateFormat := 'dd_mm_yyyy_hh_nn_ss';
  Result := StrToDateTime(Value, FormatSettings);
end;

könnte man mit Delphi 6 so machen: (quickanddirty)

Delphi-Quellcode:

function StringToDateTime(const Value: String): TDateTime;
var ds, sdf: Ansistring;
begin
  ds := DateSeparator;
  sdf := ShortDateFormat;
   try
    DateSeparator := '_';
    ShortDateFormat := 'dd_mm_yyyy_hh_nn_ss';
    Result := StrToDateTime(Value);
  finally
    DateSeparator := ds;
    ShortDateFormat := sdf;  
  end;
end;

Hilft Dir das weiter?