Перевод строки в TDateTime

[Avazart]

 Month: array [0..11] of TMonth = (
  (engMonth: 'January'; ruMonth: 'Январь'),
  (engMonth: 'February'; ruMonth: 'Февраль'),
  (engMonth: 'March'; ruMonth: 'Март'),
  (engMonth: 'April'; ruMonth: 'Апрель'),
  (engMonth: 'May'; ruMonth: 'Май'),
  (engMonth: 'June'; ruMonth: 'Июнь'),
  (engMonth: 'July'; ruMonth: 'Июль'),
  (engMonth: 'August'; ruMonth: 'Август'),
  (engMonth: 'September'; ruMonth: 'Сетябрь'),
  (engMonth: 'October'; ruMonth: 'Октябрь'),
  (engMonth: 'November'; ruMonth: 'Ноябрь'),
  (engMonth: 'December'; ruMonth: 'Декабрь'));

Опять привязка к глобальным настройкам?
Что будет если винда будет немецкая?

Я бы просто распарсил решуляркой и преобразовал в числа месяца.

[exyl]

Да я не знаю, зачем там вообще названия месяцев на каком бы то ни было другом языке, потому что на входе идет строка только с английскими не зависимо от винды. А вот уже после StrToDateTime вывод может быть в любом удобном пользователю формате и с учетом региональных особенностей ОС.

[Avazart]

uses
  //...
  System.RegularExpressions,
  System.DateUtils;

type
  MonthNames= array [0 .. 11] of string;

function ParseDateTime(ADataTimeStr:String): TDateTime; overload; inline;
function ParseDateTime(ADataTimeStr:String; AMonthNames:MonthNames):TDateTime;overload;

const
  EnglishMonthNames:MonthNames =
  ('January', 'February', 'March',
    'April', 'May', 'June',
    'July', 'August', 'September',
    'October','November', 'December');

function NumberOfMonth(AMonthName:String;
                       AMonthNames: MonthNames):Integer;
var
  i: Integer;
begin
   for i := Low(MonthNames) to High(AMonthNames) do
      if AMonthName= AMonthNames[i] then
      begin
         Result:= i+1;
         Exit();
      end;
   Result:= 0;
end;

function ParseDateTime(ADataTimeStr:String;
                       AMonthNames:MonthNames):TDateTime;
var
  M:  TMatch;
  MonthNumber: Integer;
begin
   M:= TRegEx.Match(ADataTimeStr,
                   // '4 March 2018 13:10'
                    '(\d{1,2}) (\w+) (\d{4}) (\d{2}):(\d{2})');
                   // 1-day  2-month 3-year  4-hour 5-minute
   if not M.Success then
      raise Exception.Create('Wrong Date Time String Format!');

   MonthNumber :=  NumberOfMonth(M.Groups.Item[2].Value,AMonthNames);
   if MonthNumber=0 then
      raise Exception.Create('Wrong Month Name!');

   Result := EncodeDateTime(
           StrToInt(M.Groups.Item[3].Value),  // 3-year
           MonthNumber,                       // 2-month
           StrToInt(M.Groups.Item[1].Value),  // 1-day
           StrToInt(M.Groups.Item[4].Value),  // 4-hour
           StrToInt(M.Groups.Item[5].Value),  // 5-minute
           0, // second
           0  // millisecond
           );
end;

function ParseDateTime(ADataTimeStr:String):TDateTime;
begin 
  Result:= ParseDateTime(ADataTimeStr,EnglishMonthNames);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Str = '4 March 2018 13:10';
var
  DT: TDateTime;
begin

  DT := ParseDateTime(Str);
  Caption:= DateTimeToStr(DT);
end;

[Aliens_wolfs]

У вас тоже привязка к глобальному массиву

const
EnglishMonthNames:MonthNames =
('January', 'February', 'March',
'April', 'May', 'June',
'July', 'August', 'September',
'October','November', 'December');

а если строка будет такой
Str = '4 Dezember 2018 13:10'; по немецки
сработает ли ваш код?

[Avazart]

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

если строка будет такой
Str = '4 Dezember 2018 13:10'; по немецки

Не будет, ибо я как понимаю она берется из интернета и другого источника, формат которого постоянен и не зависит от локальных настроек.

И даже если так произойдет, мой код куда легче будет расширить/модифицировать чем Ваш,
добавив другой массив с именами месяцев и передав в ф-цию вторым параметром.

[Aliens_wolfs]

Вы по сути ничего нового не предложили)

И даже если так произойдет, мой код куда легче будет расширить/модифицировать чем Ваш.

Каждый хвалит свое)
И приведите пример для немецкой модификации)

В общем у него все равно идет по английски все месяца и для этого простой код пойдет.
Пусть сам решит что ему нужно)

[Avazart]

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

Вы по сути ничего нового не предложили)

Регулярки, вместо плясок вокруг кривого StrToDateTime() и тупой подмены символов.

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

И приведите пример для немецкой модификации)

const
GermanMonthNames:MonthNames =
('Januar',
 Februar',

// ...
);

DT := ParseDateTime(Str,GermanMonthNames);

[Aliens_wolfs]

GermanMonthNames

По поводу этого просветите)
Вы также берете из массива инфу)

Смотрите пост #3 там такой же массив который можно дополнить чем угодно и взять все тоже самое что и вы предложили,
а в посте #10 я просто для двух языков для удобства написал,

[Avazart]

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

По поводу этого просветите)
Вы также берете из массива инфу)

Да но я ее не зашиваю в реализацию, а передаю параметром.

Другому программисту достаточно объявить массив и передать его в мою ф-цию, без правки моего модуля.

[Aliens_wolfs]

Все зависит от массива, чем заполнишь для своих нужд то и поймаешь
Можно массив сделать и глобальным, это на свой вкус и удобства изменения в нем значений