Discussion :

[gregb34]

Bon, me reste assimiler le code parfaitement,

A virer les EXIT (je preferes sans) car je risque d'etre intrrogé sur ce bout de code, je capte parfaitement le principe du tri mais le jonglage entre les lequel... c'est chaud.

De toutes facon meme si j'aurais 2 profs d'informatiques, je pense pas qu'ils ingurgite l'algo en 10min :p

[gregb34]

Ca trie pas

C'est m'enerve, ca fait depuis hier soir, toutes la nuit... que je suis dessus c'est dingue, avec mes 2 petites listes, ca passe, mais avec ma big liste, ou tous les cas doivent etre representés, bein ca foire

[LadyWasky]

Ca trie pas

Je t'assure que sur le PC, là, devant moi, ça trie
Tu as repris ce que je vient de t'envoyer.

vérifie bien que tes pointeurs suivant et précédents sont corectement à nil (où ne le sont pas)

[gregb34]

Bein gros copier-coller.

Comme je te dis, avec les petites listes que j'ai ca semble marcher mais quand je teste avec la grosse (60 000 enregistrements, ou tous les cas doivent être representés, bein ca foire....)

La liste original, s'affiche nickel, je vais essayer de l'afficher à l'envers pour voir si toutes fois les lien precedent ne foire pas, mais je pense pas....

EDIT : L'affiche inversée de la chaine marche nickel. Je comprend vraiment pas

Je te passerais bien mon jeux d'essai mais c'est tendu.

Quoique, si je te file, chacunes des pages/compteurs dans un fichier TXT...

[gregb34]

Si tu es chaud

J'ai généré mon jeux d'essai dans un fichier TXT.

Le truc est structuré comme suit :

la_page**sep**son_compteur

**sep** etant le separateur.

Il suffit juste de parcours le fichier ligne par ligne et de se reconsiturer le jeu d'essai.

Je suis desolé de t'embeter.

[LadyWasky]

Ouai, il manquais deux lignes, j'avais pas vu tout mon listing, là ça marche enfin :

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
 
procedure insert(var tete_top,ApresQuoi,Lequel : pointeur_ligne_top);
begin
  if tete_top=nil
  then begin
           tete_top:=Lequel;
           exit;
         end;
  Lequel ^.precedent:=ApresQuoi;
  if ApresQuoi=nil
   then begin   { insertion début de liste}
             Lequel ^.suivant:=tete_top;
             tete_top^.precedent:=Lequel;
             tete_top:=Lequel;
             exit;
          end;
  //insertion normale
  Lequel^.suivant:=ApresQuoi^.suivant;
  Lequel^.precedent:=ApresQuoi;
 
  ApresQuoi^.suivant:=Lequel;
  Lequel^.suivant^.precedent:=Lequel;
end;

Merci pour les données, je me suis fait un csv.

Je te poste mes sources...

[gregb34]

MERCI bcp, ca marche nickel.

Je vais essayer "d'arranger ca" pour que j'y vois plus clair

THANKS ENCORE !!!!!!!!!!!!!

[edam]

Code :

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

    objet_top_min := objet_top_min.suivant;

J'écrirais plutôt ceci

Code :

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

objet_top_min := objet_top_min^.suivant;

non c'est la meme chose

[gregb34]

C'est certe la meme chose mais il vaut mieux avoir de bonne habitudes, le ^ fait part de ces habitudes. Enfin je pense :p