Discussion :

[isachat666]

Bonjour,

J'ai un objet (dataset) qui me renvoie les informations sous la forme suivante (pous simplifier):
début a fin c
début d fin e
début e fin g

je voudrais avoir au final
début a fin c
début d fin g (car fin de la 2e ligne = début de la 3e ligne)

Les éléments contigus peuvent être n'importe où dans la liste et il peut y en avoir un nb indéterminé.

Comment dois-je m'y prendre ? Je parcours ma liste mais je n'arrive à rien de concret...

merci
Isa

[Graffito]

Bonjour,

Une méthode assez bourrine consiste à créér en paralléle avec les relations un chainage :

Au départ :
1 : début a fin c pointesur rien
2 : début d fin e pointesur rien
3 : début e fin g pointesur rien
4 : début g fin h pointesur rien
...

Prendre chaque fin et vérifier s'il existe un début qui correspond :
1 : début a fin c pointesur rien
2 : début d fin e pointesur 3
3 : début e fin g pointesur 4
4 : début g fin h pointesur rien
...

Il suffit ensuite de parcourir la liste des relations et de traiter celles qui ont des chainages non vides en supprimant tous les éléments chainés sauf la tête de liste dont on modifiera la "fin".

Lors du traitement du 2 : il existe un chainage qui pointe vers 3, puis vers 4, on garde 2 et on fait fin(2)=fin(4)=h, et on obtient :
1 : début a fin c pointesur rien
2 : début d fin h pointesur rien

[isachat666]

Désolée mais je n'y comprends rien...
Comment déterminer les relations du chaînage ?
Pour l'instant je parcours ma boucle en testant si début = fin de la ligne précédente, mais en faisant de la sorte, je n'arrive à récupérer correctement que le 1er élément, j'oublie sûrement quelquechose quelquepart...

Isa

[Graffito]

Bonjour,

Apparament, si les éléments contigus sont consécutifs, le problème est donc plus simple que je ne le pensais : pas besoin de chainage.

Code :

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

1
2
3
4
5
6
7
8
 
ilast:=0 ;
for i:=1 to high(Debut) do 
    if Fin[ilast]=Debut[i]
      then begin Fin[ilast]:=Fin[i] ; Debut[i]:=-1 ; end 
      else ilast:=i ;
// A la fin, supprimer les éléments dont le début a été marqué à -1 
...