Преобразование дат в Delphi 7?

[Zurs]

Добрый день! Помогите решить задачу в Delphi! Необходимо создать форму с двумя Edit'ми. В первое необходимо вводить дату в любом формате (DD.MM.YY ; DD/MM/YY ; YYYY/MM/DD) необходимо считать эту дату и преобразовать в формат даты (dd.MM.YYYY), заранее спасибо!

[evg_m]

if pos('/', sdate)=5 then // YYYY/MM/DD
  otvet:=format('%s.%s.%s', [copy(sdate, ? ,2), copy(sdate, ? , 2), copy(sdate, ? , 4)]; // ? что здесь посчитай пожалуйста сам
else if pos('/',sdate)=3 then  // DD/MM/YYYY
  otvet:=....
else if pos('.', date)=3 then // DD.MM.YYYY
  otvet:=....
else // формат определить не удалось
  otvet:='a какой это формат?'

[Аватар]

или так коль делфи:

function MyStrToDate(const s: String; const FormatSettings: TFormatSettings; var pOut: TDateTime): Boolean;
begin
  try
    pOut:=StrToDate(s,FormatSettings);
    Result:=True;
  except
    Result:=False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var d: TDateTime;
    s: String;
    xFormatSettings: TFormatSettings;
begin
  s:='2015-07-22';
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,xFormatSettings);
  xFormatSettings.DateSeparator:='-';
  xFormatSettings.ShortDateFormat:='yyyy/mm/dd';
  if MyStrToDate(s,xFormatSettings,d) then s:=FormatDateTime('dd.mm.yyyy',d) else s:='глюк';
  Edit1.Text:=s;
end;