如果月份是單詞，我可以獲得日期時間嗎？

Question

我已經填充的組合框與格式幾個月和幾年：

August 2014 
July 2014 
June 2014 

在選擇（比方說，2014年7月），我非常喜歡創造格式爲DateTime變量'01/7月14日」。有一種方法需要一個月，目前是一個字符串，並轉換爲一個整數？

非常感謝您的時間。

Answer 1

有沒有一種方法可以取一個月爲目前的字符串並轉換爲整數？

是的。循環搜尋匹配的可能名稱：

function GetMonthNumber(const fs: TFormatSettings; const Name: string): Integer; 
begin 
    for Result := Low(fs.LongMonthNames) to High(fs.LongMonthNames) do 
    if SameText(Name, fs.LongMonthNames[Result]) then 
     exit; 
    Result := -1; 
end; 

Answer 2

這裏是我的簡單示例如何獲取月份編號。

const 
Month : array [1..12] of string = ('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); 

function TForm1.IndexOfMonth(s: string): integer; 
var 
    I: Integer; 
begin 
    result := -1; 
    for I := 1 to 12 do 
    begin 
     if UpperCase(S) = UpperCase(Month[i]) then 
     begin 
     result := i; 
     break; 
     end; 
    end; 
end; 

function TForm1.GetMonthFromCombo : integer; 
var s : string; 
begin 
    s := Copy(ComboBox1.Text,1, Pos(' ', ComboBox1.Text)-1); 
    result := IndexOfMonth(s); 
end;