Dato-problemer

Hvad med dette i f.eks. din OnCreate:
Application.UpdateFormatSettings:=false;
ShortDateFormat:='dd-mm-yyyy';

var
  Dato : TDateTime;
begin
  Dato := now;
  Caption := FormatDateTime('DDMMYYYY',Dato);
end;

Troede i øvrigt ikke at DateToStr() var en Delphi-funktion, men der ligger en mother-f funktion i vcl'et.

Undskyld. Sådan her:

  Caption := FormatDateTime('DD"-"MM"-"YYYY',Dato);

Løser FormatDateTime mit problem?
Problemet er jo at jeg skal have konverteret en streng indenholdende en dato over til TDataTime-format.

Hvis nu strengen er af dette format:
DatoStreng:='mm-dd-yyy';
men Delphi forudsætter jo at den er af dette format:
DatoStreng:='dd-mm-yyy';

Programmet går ned her, hvis jeg prøver det.

Kroning > Har endnu ikke kunne få testet om det der virker på en "udenlandsk" pc. Vender tilbage hurtigst muligt.

Min fejl. Det må være noget med at snuppe ShortDateFormat og identificere hvor de forskellige elementer er i strengen:

function TForm1.DecodeMyDate1(const aLocalizedDate: String): TDateTime;
var
  pd, pm, pyyy : integer;
begin
  // Den primitive, simple:
  pd := pos('dd',ShortDateFormat);
  pm := pos('mm',ShortDateFormat);
  pyyy := pos('yyyy',ShortDateFormat);

  result := EncodeDate(StrToInt(copy(aLocalizedDate,pyyy,4)),
                      StrToInt(copy(aLocalizedDate,pm,2)),
                      StrToInt(copy(aLocalizedDate,pd,2)));
end;

function TForm1.DecodeMyDate2(const aLocalizedDate: String): TDateTime;
var
  FormatSettings : TFormatSettings;
begin
  // Den bedste løsning er nok denne:
  // Se: http://delphi.about.com/library/rtl/blrtlGetLocaleFormatSettings.htm
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FormatSettings);
  result := StrToDate(aLocalizedDate, FormatSettings);
end;

Jeg sad med samme problem for noget tid siden.
Jeg løste det lidt ligesom hrc, bare lidt mere primitivt.

var
  dato : TDate;

dato := EncodeDate(strToInt(strDate[7]+strDate[8]+strDate[9]+strDate[10]), StrToInt(strDate[4]+strDate[5]), StrToInt(strDate[1]+strDate[2]));

Tak for svaret.

Jeg har prøvet den løsning Kroning foreslår nu og det virker perfekt.
Så hvis I lige afgiver svar, så deler jeg points ud :-)

svar

Lige et slag for den sidste af mine løsningsforslag. Det er nok (i al beskedenhed) den rigtigste af bruge da den også vil fungere i Langbortistan. Svaret har du fra tidligere.