A PROPOS DES NOMS DE COMMUNES...
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
2 nov. 2004 à 15:06
Debiars Messages postés 285 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 11 février 2018 - 16 févr. 2005 à 09:39
Debiars Messages postés 285 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 11 février 2018 - 16 févr. 2005 à 09:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27205-a-propos-des-noms-de-communes
https://codes-sources.commentcamarche.net/source/27205-a-propos-des-noms-de-communes
16 févr. 2005 à 09:39
Ces fichiers sont intéressants à plus d'un point, mais ils ne donnent toujours pas le bureau distributeur...
14 févr. 2005 à 15:38
10 nov. 2004 à 09:06
9 nov. 2004 à 20:08
mea culpa, le code source fonctionne, alors que mon rectificatif ne fonctionne pas selon le désir de l'auteur du programme. Désolé pour cette fausse alerte.
bonne continuation.
9 nov. 2004 à 19:10
Ensuite j'ai eu des erreurs avec le programme tel quel.j'ai du le modifier:
procedure TForm1.Edit4Exit(Sender: TObject);
var
i:integer;
codepostal:string;
Commune:string;
begin
i:=-1;
if length(edit4.Text)<>5 then exit;
combobox3.Clear;
if (edit4.Text>'21121') then i:=7876
else if (edit4.Text>'38350') then i:=15758
else if (edit4.Text>'57370') then i:=23638
else if (edit4.Text>'71960') then i:=31513
else if (edit4.Text>'99100') then i:=39183
else i:=0;
while not((i=listcp.Count) or (codepostal=Edit4.Text)) do
begin
codepostal:=copy(listcp.Strings[i],1,5);
commune:=copy(listcp.Strings[i],7,length(listcp.Strings[i]));
if ((codepostal=edit4.Text) and (edit4.Text<'98891')) then
begin
combobox3.Items.Add(commune);
Edit6.Text:='France';
end
else
if ((codepostal=edit4.Text) and (edit4.Text>'98891')) then
Edit6.Text:='Commune';
i:=i+1;
end;
combobox3.text:=combobox3.items[0];
end;
et cela fonctionne sans erreur, mais malgré tout à vérifier, car je suis, on peut le considérer,débutant.
bonne continuation
4 nov. 2004 à 17:09
Les amateurs éclairés ne peuvent qu'être intéressés.
Je vous incite tous à encourager Debiars à se lancer dans cette tâche.
Moi je dis ok, Debiars, et si tu t'en sens, bon courage !
4 nov. 2004 à 16:05
et les ordinos, comme tu l'as démontré, peuvent servir souvent :) ouè ça m'interesse bien ô Debiars
4 nov. 2004 à 15:42
Je pourrait bien me lancer dans un prog permettant de réaliser des ordinos, vu que cela t'intéresse, ô Julio, il y a peut-être d'autres amateurs...
4 nov. 2004 à 14:26
si c un prog : je n'en veux bien :)
3 nov. 2004 à 20:06
et notre CedFlow n'a pa besoin extreme de mettre les B.D en premier ... dommage :p le boulot aurait été fait :D
2 nov. 2004 à 17:28
J'en ai fait l'expérience lors d'un changement d'adresse
suite à un déménagement.
2 nov. 2004 à 15:06
Il ne reste plus qu'a réorganiser le fichier Cplist.txt, en plaçant le bureau distributeur en tête quand plusieurs communes se partagent le même code...
Si j'étais sûr que ce fichier est fiable, je m'y collerais bien, à l'aide du "Code Postal" édition 1989, le seul que j'aie sous la main, mais n'est-il pas obsolète par endroit ?
Peut-être en contactant la direction de La Poste pourrait-on disposer de données actualisées ?