ShortDateFormat: String;
Свойство ShortDateFormat возвращает краткий формат даты с учётом настроек региональных параметров.
Sub UserProc;
Var
CI: ICultureInfo;
S: String;
Begin
CI := CultureInfo.Current;
S := CI.ShortDateFormat;
Debug.WriteLine(S);
End Sub UserProc;
После выполнения примера в консоль будет выведен краткий формат даты, заданный в настройках региональных параметров.
См. также: