date parsing - Convert month name to number in Delphi?

Question

Is there some built-in Delphi (XE2)/Windows method to convert month names to numbers 1-12; instead of looping through (TFormatSettings.)LongMonthNames[] myself?

Answer 1

You can use IndexStr from StrUtils, returns -1 if string not found e.g.

Caption := IntToStr(
  IndexStr(FormatSettings.LongMonthNames[7], FormatSettings.LongMonthNames) + 1);

EDIT:
To avoid problems with casting and case sensitivity you might use IndexText as shown:

Function GetMonthNumber(Const Month:String):Integer; overload;
begin
   Result := IndexText(Month,FormatSettings.LongMonthNames)+1
end;