Les tableaux de données

Bonjour,

J'essaye, pour la première fois, d'utiliser des tableaux de données sous Lazarus. En fait, je cherche à renseigner dans une base de données le nom (en toutes lettres) d'un département à partir d'un code postal :
Expl : afficher Hérault si le code postal est 34532 .
Pour cela j'ai créé un tableau selon le code :

Code:

---

Type Dptlist = Array [1..105, 1..105]of string ;

---

et ensuite, après le Begin, j'ai entré les valeurs :

Code:

---

1 2	Dptlist [1,1]:='AIN '; Dptlist [1,2]:='AISNE ';

---

etc... et puis les valeurs :

Code:

---

1 2	Dptlist [2,1]:='01'; Dptlist [2,2]:='02';

---

etc..
Je compte après faire un test sur les 2 ou 3 premiers caractères du code postal pour afficher automatiquement le nom du département.
J'ai un message : Variable identifier Expected pour chacune des lignes entrées (en fait j'ai fabriqué les 210 lignes du code à l'aide d'une formule sous Calc Libreoffice et ai collé dans Lazarus cette liste au format CSV).
Quelqu'un pourrait-il m'éclairer sur le problème car il me semble que tout est défini comme une chaîne ?
De plus, les départements avec des apostrophes me posent un problème. J'ai bien tenté de substituer aux ' l'instruction QuotedStr() mais cela ne fonctionne pas comme je voudrais.
Autre question : est-il possible de remplacer dans la définition de la taille du tableau des valeurs fixes [1..105] par exemple par une variable dont la valeur sera connue lors de l'exécution du programme (par exemple le nombre d'enregistrements - expl: [1..NbEnr] avec NbEnr := Recordcount.
Merci pour votre aide.

R.O.

Noa,

Tu confonds définition d'un type et définition d'une variable.

Dans ton code, Dptlist n'est qu'un type, il faut déclarer une variable de ce type pour pouvoir l'utiliser.

hello,
voici des exemples pour t'aider :

Code:

---

1 2	type typDptlist = Array [1..105, 1..105]of string ; var DptList : typDptlist;

---

ou

Code:

---

var Dptlist: Array [1..105, 1..105]of string ;

---

pour le dynamique :

Code:

---

1 2 3 4 5 6

var Dptlist: Array of Array of string ; begin SetLength(Dptlist,105,105); Dptlist[1, 22] := 'Côtes-d''Armor '; Dptlist[2, 22] := '22'; end;

---

je ne sais pas exactement ce que tu veux faire mais il me semble qu'il te faudrait mieux utiliser une classe ou une structure (record).

Amicalement, nullosse

Bonjour,

Merci à Drogo pur la réponse.
En fait, après avoir posté, j'ai regardé sur Delphi et ai vu qu'il fallait que je définisse des variables et non pas un type :

Code:

---

Var Dptlist : Array [1..105, 1..105]of string ;

---

et là cela fonctionne.
Par contre mes questions sur le probème de l'apostrophe (Côte d'Or, Côte d'Armor et Val D'Oise reste entier ainsique la définifion de la taille du tableau par une variable.

Merci

R.O.

Bonjour !

Pour commencer, il y a quelque chose qui me laisse perplexe dans ton code, c'est le tableau à deux dimensions. Pourquoi deux dimensions, alors qu'il s'agit d'une simple liste ?

Il me semble qu'un tableau de chaînes à une dimension ferait l'affaire, le numéro du département pouvant être utilisé pour accéder directement à la chaîne correspondante.

Code:

---

1 2	NomDepartement[45] := 'Loiret';

---

Cela poserait peut-être un problème pour les départements d'outremer qui commencent par les deux mêmes chiffres (97).

Pour la taille du tableau définie par une variable, la réponse a déjà été donnée par Nullosse : il suffit de remplacer "105" par une variable, comme argument de la procédure SetLength().

Concernant les apostrophes, il faudrait que tu dises plus précisément quel est le problème rencontré.

P.-S. Mais, vu que le nombre de départements ne change pas, pourquoi utiliser une variable ?

Citation:

---

Envoyé par Roland Chastain

(...) le numéro du département pouvant être utilisé pour accéder directement à la chaîne correspondante.

---

Faudra le coder en hexa, alors, parce que la Corse c'est 2A et 2B :aie:

Citation:

---

Envoyé par Roland Chastain

(...) Concernant les apostrophes, il faudrait que tu dises plus précisément quel est le problème rencontré.

---

Je pense qu'il doit avoir le problème avec 'Côte d'Azur' par exemple.
Suffit de doubler les apostrophes "grammaticales", si je puis dire : 'Côte d''Azur'

Citation:

---

Envoyé par Jipété

Faudra le coder en hexa, alors, parce que la Corse c'est 2A et 2B :aie:

---

C'est vrai, je n'y avais pas pensé. :roll:

Du coup mon truc ne fonctionne que pour les dix-neuf premiers départements.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

program ExempleDepartements;   {$IFDEF VPASCAL}{&PMTYPE VIO}{&USE32+}{$H+}{$ELSE}{$APPTYPE CONSOLE}{$IFDEF FPC}{$MODE DELPHI}{$H+}{$ENDIF}{$ENDIF}   type tDepartement = record numero: string; nom: string; end;   const nombreDepartements = 101;   var departements: array[1..nombreDepartements]of tDepartement;   begin departements[20].numero := '2A'; departements[20].nom := 'Corse-du-Sud'; departements[21].numero := '2B'; departements[21].nom := 'Haute-Corse'; departements[22].numero := '21'; departements[22].nom := 'Côte-d''Or';   Write('Appuyez sur la touche Entr'#130'e... '); ReadLn; end.

---

Quelle drôle d'idée aussi, d'avoir coupé la Corse en deux ! :)

P.-S. D'après la liste que je viens de consulter, il y aurait 101 départements, et non pas 105. :roll:

Bonjour à tous,
D'abord merci pour les nombreuses réponses reçues, qui m'ont été très utiles et qui me permettent de considérer la question comme résolue.
Je dois tout de même quelques explications :
Tout d'abord sur le nombre de départements : dans ma liste (extraite d'un site officiel mais je ne sais plus lequel je n'ai qu'une seule corse (20 : Corse) venant après la Corrèze (19) je vais donc corriger cela. J'ai aussi pris en compte le départements d'outre-mer : Guadeloupe, Martinique, Guyane, Réunion, St Pierre et Miquelon, Mayotte, Wallis et Futuna, Polynésie Française, Nouvelle Calédonie.... et même Monaco avec les N° correspondants : 971, 972, 973, 974, 985,,986,987,988 et pour Monaco 991.
Tout cela se retrouve sur ma base comme étant une chaîne de caractères.
Si j'ai fait un tableau à 2 dimensions c'est pour, par la suite, lorsque je remplira le champ Code Postal, par eemple 34587 que la reconnaissance automatique des caractère 3 - 4- implique automiquement le remplissage d'un champ dit -Pays/Département avec Hérault. Si j'ai prévu ce stockage dans un champ de base de données, c'est que je peux avoir des adresses à l'étranger et dans ce cas je rentre comme code postal 000 - et je renseigne manuellement les infos correspondant à l'équivalence Dept/Pays par expl : Figueras -Prov Girona (- Espagne).
En tous cas merci pour les réponses rapides et constructives.

Citation:

---

Envoyé par OR34a

Tout d'abord sur le nombre de départements : dans ma liste (extraite d'un site officiel mais je ne sais plus lequel je n'ai qu'une seule corse (20 : Corse)

---

En effet : ça dépend si on parle "code postal" ou "immatriculation des véhicules".

Mettons que je n'ai rien dit :oops:

Citation:

---

Envoyé par OR34a

Si j'ai fait un tableau à 2 dimensions c'est pour, par la suite, lorsque je remplirai le champ Code Postal, par exemple 34587 que la reconnaissance automatique des caractère 3 et 4 implique automatiquement le remplissage d'un champ Pays/Département avec Hérault.

---

Soit, mais dans ce cas je crois que les dimensions de ton tableau doivent être [1..2, 1..105] ou [1..105, 1..2], plutôt que [1..105, 1..105]. ;)