[lazarus] international dates

[patrick feillant]

Thanks at every one for the responses.
Finally this morning i put in the Initialization section of my main unit a
call to this simply routine i had create, and after all the routine dates i
use are ok. i take the english initialization in sysinth.inc.
The array must begin at 1 and not at 0 !
But is not a generic solution for all the others params.
thanks.

{Initialisation des données francaises pour unix}
Procedure InitFrancais;
begin
  DateSeparator:='/';

  { Format used for short date notation }
  ShortDateFormat:= 'dd/mm/yyyy';

  { Format used for long date notation }
  LongDateFormat:= 'dd" "mmmm" "yyyy';

  { Short names of months. }
  ShortMonthNames[1]:= 'Jan';
  ShortMonthNames[2]:= 'Fév';
  ShortMonthNames[3]:= 'Mar';
  ShortMonthNames[4]:= 'Avr';
  ShortMonthNames[5]:= 'Mai';
  ShortMonthNames[6]:= 'Jui';
  ShortMonthNames[7]:= 'Jul';
  ShortMonthNames[8]:= 'Aou';
  ShortMonthNames[9]:= 'Sep';
  ShortMonthNames[10]:= 'Oct';
  ShortMonthNames[11]:='Nov';
  ShortMonthNames[12]:='Déc';

  { Long names of months. }
  LongMonthNames[1]:= 'Janvier';
  LongMonthNames[2]:= 'Février';
  LongMonthNames[3]:= 'Mars';
  LongMonthNames[4]:= 'Avril';
  LongMonthNames[5]:= 'Mai';
  LongMonthNames[6]:= 'Juin';
  LongMonthNames[7]:= 'Juillet';
  LongMonthNames[8]:= 'Aout';
  LongMonthNames[9]:= 'Septembre';
  LongMonthNames[10]:= 'Octobre';
  LongMonthNames[11]:='Novembre';
  LongMonthNames[12]:='Décembre';

  { Short names of days }
  ShortDayNames[1]:='Dim';
  ShortDayNames[2]:='Lun';
  ShortDayNames[3]:='Mar';
  ShortDayNames[4]:='Mer';
  ShortDayNames[5]:='Jeu';
  ShortDayNames[6]:='Ven';
  ShortDayNames[7]:='Sam';


  { Full names of days }
  LongDayNames[1]:= 'Dimanche';
  LongDayNames[2]:= 'Lundi';
  LongDayNames[3]:= 'Mardi';
  LongDayNames[4]:= 'Mercredi';
  LongDayNames[5]:= 'Jeudi';
  LongDayNames[6]:= 'Vendredi';
  LongDayNames[7]:= 'Samedi';
end;