[Delphi 7] Comment obtenir la dénomination des jours de la semaine ?

**raoulmania** · 09/12/2005, 14h31

Je souhaiterez récupérer les jours de la semaine: lundi ... Dimanche

mais je ne souhaite pas créer un tableau et lui rentrer tab[0] := lundi etc...

Existe t il une fonction qui me permette de récupérer les noms des jours de la semaine selon un entier par exemple ou autre:

Lundi := 1

donc si dans mon code je met Tab.Name := 1 ,
je souhaiterez en fait que cela fasse Tab.Name := Lundi

merci

Anthony

**Nono40** · 09/12/2005, 14h46

Le tableau LongDayNames[1..7] est ce que tu cherches.
Les noms donnés dans ce tableau dépendent directement de la langue d'installtion de Windows.

**raoulmania** · 09/12/2005, 14h51

merci

**raoulmania** · 09/12/2005, 14h54

tu n'aurais pas la même chose mais dont le premier élément soit l'équivalent de lundi et non dimanche pour respecter la norme iso

**LadyWasky** · 09/12/2005, 14h55

Déjà, Tab.Name:=1 n'est pas possible :

Name est un type string, 1 un type integer.

Donc Forcément, tu auras à écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tab.Name:='Lundi';

ou bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
const Jours:array[0..6] of string=('Lundi','Mardi','Mercredi','Jeudi','Vendredi','Samedi','Dimanche');
begin
  Tab.Name:=Jours[0];
end;

ou bien en utilisant un type énuméré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Type
  TJours=(jLundi,jMardi,jMercredi,jJeudi,JVendredi,JSamedi,jDimanche);
Const 
  Jours:array[jLundi..jDimanche] of string=('Lundi','Mardi','Mercredi','Jeudi','Vendredi','Samedi','Dimanche');
begin
  Tab.Name:=Jours[jLundi];
end;