Changer le format de la date

{Valeurs prédéfinies dans Delphi
- DateSeparator
- ShortDateFormat
- LongDateFormat;
- ShortMonthNames;
- LongMonthNames;
- ShortDayNames;
- LongDayNames;
}
//change le format de la date
procedure TForm1.Button1Click(Sender: TObject);
begin
DateSeparator:='.';
ShortDateFormat:='dd.mm.yy';
LongDateFormat:='dddd, dd.mmmm.yyyy';
end;

//donne le nom du jour et du mois
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(ShortMonthNames[11]+' - '+LongMonthNames[11]);
ShowMessage(ShortDayNames[5]+' - '+LongDayNames[5]);
end;