Преобразование строки формата YYYY-MM-DD в дату, Варнинги!

[XerSon]

Всем привет,

Функция писалась в D2009 - варнингов нет!
Проверялась на D2010 - варнингов нет!

Портировалась на DXE - вылезли 2 варнинга!

function YYYY_MM_DD_ToDate(YYYY_MM_DD: string): TDate;
var
  Settings: TFormatSettings;
begin
  GetLocaleFormatSettings(GetThreadLocale, Settings); // типа не её платформа и что то про создание обьекта Settings.Create(Local)
  Settings.DateSeparator := '-';
  Settings.ShortDateFormat := 'yyyy-mm-dd';
  Result := StrToDate(YYYY_MM_DD, Settings);
end;

Что не так Уважаемые?

[GunSmoker]

Он тебе говорит, что на Linux и MacOS такой функции нет.

Если тебя это устраивает - отключи platform-warnings.

(предупреждая вопрос как это сделать: нажми F1 или воспользуйся поиском)

[XerSon]

Сообщение от GunSmoker

Если тебя это устраивает - отключи platform-warnings.

Так и сделал! Но решил спросить.