FormatDateTime - Englisch

[HAF68k]

ich würde das mit einer liste machen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
        MonthList:Array[0..11] of String;
        Datum:String;
begin
        MonthList[0]:='January';
        MonthList[1]:='February';
        MonthList[2]:='March';
        MonthList[3]:='April';
        MonthList[4]:='May';
        MonthList[5]:='June';
        MonthList[6]:='July';
        MonthList[7]:='August';
        MonthList[8]:='September';
        MonthList[9]:='October';
        MonthList[10]:='November';
        MonthList[11]:='December';
        Datum:=FormatDateTime('dd.mm.yyyy',Date);
        Edit1.Text:=FormatDateTime('dd',date) + '.' +
                MonthList[StrToInt(FormatDateTime('mm', Date)) - 1] + ' ' +
                FormatDateTime('yyyy',Date);
end;