Discussion :

[Shibron]

Bonjour a tous,
je cherche a faire un tableau structuré qui contient toujours les mêmes valeures,j'ai fouiné sur le FAQ mais etant donné que je suis un petit debutant en delphi je n'arrive pas a comprendre comment je pourrais réaliser ce fameux tableau

je m'explique,je declare ma structure comme ceci :

Code :

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

1
2
3
4
5
type
  TTabNomMois = Record
    NumMois : Integer;
    LibelleMois : string;
end;

puis je declare un tableau comme cela :

Code :

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

1
2
const
    TabDate : TTabNomMois

et la je ne sais pas comment procèder pour remplir mon tableau comme ceci par exemple :

1ère case
1
janvier

2ème case
2
février

ect...

donc voila j'espère que c'est possible
merci a tous ceux qui prendrons le temps d'etudier ma question!

[Andnotor]

Pour un tableau de constantes:

Code :

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

1
2
3
4
5
6
const
  TabDate : array[1..12] of TTabNomMois = (
    (NumMois:1; LibelleMois:'Janvier'),
    (NumMois:2; LibelleMois:'Février')
    //etc. 12x
  );

[sam83]

Bonjour; shibron pour quoi tu veux utiliser un enregistrement alors que vous pouvez utiliser un tableau "array"?

[Shibron]

Andnotor merci pour ta solution ça fonctionne au poil!

sam83 j'utilise cette ma nière de faire car je suis débutant je ne connais pas les autres manière de faire et je trouve que cela colle plus ou moins avec mon language de base qui est le C#

cependant si tu as une solution plus simple a me proposé je suis tout ouïe,j'ai soif d'apprendre

encore merci et bonne journée

[ShaiLeTroll]

Ben, surtout voir SysConst.pas et SLongMonthNameJan, SLongMonthNameFeb, ... ou encore la fonction qui le fait tout seul FormatDateTime avec la langue du système normalement !

Code :

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

ShowMessage(FormatDateTime('mmmm', EncodeDate(1900, AMonth, 01)));

[Shibron]

ShaiLeTroll je ne savait absolument pas que ces méthodes existaient !
merci de me les avoir montrées, je pense que je les utiliseraient pour obtimiser le code une fois que tout marchera comme sur des roulettes

merci!

[Andnotor]

... ou encore la fonction qui le fait tout seul FormatDateTime avec la langue du système normalement !

Malheureusement non, je viens de faire l'essai sur un système en anglais

[ShaiLeTroll]

J'avais un doute aussi, cela utilise LongMonthNames (finalement le tableau comme l'avait proposé sam83 existe déjà), il y a un moyen de le mettre à jour par rapport au système d'exploitation en utilisant les variantes pour l'utilisation en thread !

est-ce que ceci passe mieux en OS anglais ?

Code :

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

1
2
3
4
5
6
var
   FormatSettings: TFormatSettings;
begin
    GetLocaleFormatSettings(GetThreadLocale(), FormatSettings);
    ShowMessage(FormatDateTime('mmmm', EncodeDate(1900, AMonth, 01), FormatSettings));   
end;

[Andnotor]

Non, toujours français.
Mais je pense que tu t'approches

Si je change le format au niveau de l'OS, la langue est adaptée.

Edit:
En fait je dis une connerie, mon OS anglais avait un format date/heure français (=> texte en français)
Donc, ça fonctionne

[archonte]

Petite contribution moins technique que celles de ShailLeTroll ou d'Andnotor :

Pour un tableau de constantes:

Code :

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

1
2
3
4
5
6
const
  TabDate : array[1..12] of TTabNomMois = (
    (NumMois:1; LibelleMois:'Janvier'),
    (NumMois:2; LibelleMois:'Février')
    //etc. 12x
  );

Array[1..12] et NumMois variant de 1 à 12 semblent équivalent. Si l'on veut pour des raisons diverses afficher d'autres info que celles fournie par LongMonthNames, on peut simplement déclarer un array[1..12] of string. Et comme ça, on affiche un mot / une phrase différente pour chaque mois .. enfin, ça offre plein d'autres possibilités, dont vraissemblablement le choix de la langue ... (mais qu'il faudra coder). Au passage on évite la déclaration d'un record.

Et pourquoi pas un tableau 2D avec une dimension langue / une dimension traduction .....