Datum anhand Format umwandeln

[Namenloser]

Ungetestet und unoptimiert:

Delphi-Quellcode:

function MyStrToDate(Str, Format: String): TDate;
var
  Settings: TFormatSettings;
  i: integer;
const
  SEPARATOR = '/';
begin
  assert(length(Str) = length(Format));
  i := 2;
  while i <= length(Format) do
  begin
    if Format[i] <> Format[i-1] then
    begin
      Insert(SEPARATOR, Format, i);
      Insert(SEPARATOR, Str, i);
      inc(i);
    end;
    inc(i);
  end;
  Settings.ShortDateFormat := Format;
  Settings.DateSeparator := SEPARATOR;
  Result := StrToDate(Str, Settings);
end;

MyStrToDate('20130705', 'yyyymmdd');