Влияние ShortTimeFormat на TimeToStr

[Padre_Mortius]

Дописывая один из своих проектов натолкнулся на оригинальное влияние функции ShortTimeFormat на функцию TimeToStr

Код: Выделить всё

var
  myDate : TDateTime;
  formattedDate : string;
begin
  myDate := StrToTime('15:06:23.456');
  ShortTimeFormat := 'hh-mm';
  DateTimeToString(formattedDate, 't', myDate);
  ShowMessage(formattedDate);
end;

В этом случае все отработает как положено, но если использовать TimeToStr, который согласно документации использует ShortTimeFormat для изменения формата времени

Код: Выделить всё

var
  myDate : TDateTime;
  formattedDate : string;
begin
  myDate := StrToTime('15:06:23.456');
  ShortTimeFormat := 'hh-mm';
  ShowMessage(TimeToStr(myDate));
end;

то результатом будет

Код: Выделить всё

15:06:23

т.е. переопределение формата времени никак не повлияло на результат. Это баг или фича?

[Sergei I. Gorelkin]

Функция использует не ShortDateFormat, а LongDateFormat. После исправления в 2007 г. документацию так и не обновили. Доложил по инстанции: http://bugs.freepascal.org/view.php?id=19592