ShortDateFormatEdit (Delphi)

Description

This examples demonstrates that you can change the date format by changing this variable.

Code

begin
  { Ask the user to supply a date and place it into ShortDateFormat variable }
  WriteLn('Enter the desired format (ex. dd/mm/yyyy):');
  ReadLn(ShortDateFormat);

  { Write the date on the console using the selected short date format }
  WriteLn('Current date is ', DateToStr(Date()));

Uses

• System.SysUtils.TFormatSettings.ShortDateFormat ( fr | de | ja )