Discussion :

[OR34a]

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 :

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

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

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

Code :

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

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

etc... et puis les valeurs :

Code :

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

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.

[droggo]

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.

[Nullosse]

hello,
voici des exemples pour t'aider :

Code :

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

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

ou

Code :

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

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

pour le dynamique :

Code :

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

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

[OR34a]

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 :

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

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.

[Roland Chastain]

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 :

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

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 ?

[Jipété]

(...) 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

(...) 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'

[Roland Chastain]

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

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

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

Code :

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

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.