Discussion :

[Art19]

Bonjour,
J'ai un faux out of memory sur le bout de code:

Code :

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

a2.add( a1.Items[j] );

ou a2 est un TVector.

Voici mon code:

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
function Fill( a1: TVector; a2: TVector ): TVector;
var
  i, j: Integer;
begin
  i := 0;
//  ShowMessage(DateToStr(ATDATA(a2.Items[i]^).heure));
  if Assigned(a2.Items[i]) and Assigned(a1.Items[0]) then begin
    while ( i<a2.Count ) and (CompareDate( ATDATA(a2.Items[i]^).heure, ATDATA(a1.Items[0]^).heure ) < 0 ) do Inc(i);
  end;
 
  if i < a2.Count then begin
    for j := 0 to a1.Count-1 do begin
      a2.Insert( i, a1.Items[j] );
      Inc(i);
    end;
  end
  else begin
    for j := 0 to a1.Count-1 do begin
      a2.add( a1.Items[j] );
    end;
  end;
 
  result := a2;

et:

Code :

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

1
2
3
4
5
6
7
8
 if CompareDate( date, datePrec ) <> 0 then begin
      if not Belongs( datePrec, a2 ) then begin
      //ShowMessage(IntToStr(Length(a1)));
        a2 := Fill( a1, a2 ); // fills a2 with the datas in a1
     //   ShowMessage( 'boucle if '+IntToStr(Length(a2)) );
        // updates l
        l.AddObject( DateToStr(datePrec), Pointer(a1.Count) );
      end

Une idee?

le bug est dans la fonction Fill

[Fabrice ROUXEL 1]

la ligne

Code :

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

if Assigned(a2.Items[i])

ne vérifie que la premiere condition.Il faut l'insérer dans la boucle.

La condition de bouclage est à revoir aussi:

Code :

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

while ( i<a2.Count ) and (CompareDate( ATDATA(a2.Items[i]^).heure, ATDATA(a1.Items[0]^).heure ) < 0 ) do Inc(i);

si

Code :

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

Odd(CompareDate( ATDATA(a2.Items[i]^).heure, ATDATA(a1.Items[0]^).heure )

retourne systematiquement false tu boucleras jusqu'au débordement de pile.

Sinon le reste du code est correct.


Tu peux utiliser la méthode Pack pour supprimer les références nil dans les listes.

Par ailleurs, le prototype de fonction est un peu bête puisque tu retournes a2.

Remplaces:

Code :

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

function Fill( a1: TVector; a2: TVector ): TVector;

par

Code :

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

procedure Fill(a1, a2: TVector);

[Art19]

si

Code :

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

Odd(CompareDate( ATDATA(a2.Items[i]^).heure, ATDATA(a1.Items[0]^).heure )

retourne systematiquement false tu boucleras jusqu'au débordement de pile.

que veux-tu dire je ne comprend pas d'ou sort le Odd???

[ShaiLeTroll]

Odd c'est une fonction qui renvoie true si Impair, qui revient à différent 0 pour CompareDate !

pour l'histoire du Fill en procedure au lieu de fonction, je te l'avais déjà dit dans l'autre sujet ... d'ailleurs, il t'avait été fourni complet ... avec le Assigned dans la boucle ...

[Art19]

non mais j'ai supprime le assigned car mon pointeur ne peut pas etre nil

[Art19]

bah alors je vois pas pourquoi je bouclerai jusqu'au debordement de pile vu que j'ai la condition:

Code :

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

( i<a2.Count )

[ShaiLeTroll]

Eh bien, vu que je TVector fait des copies selon tes dire, et que la maitrise des pointeurs ne semble pas acquise, je renouvelle ma proposition d'utiliser l'outil de Waskol pour avoir une Liste gene TATDATAlist fortement typée ...

Ensuite, tout cela, aurait été géré via un modèle inspiré du TStringListSortCompare et CustomSort de ka TStringList pour merger deux listes, cela aurait été plus simple ou plus objet ...

[Art19]

ok mais moi j'ai des contraintes, et une contrainte est d'utiliser les TVector (bon si je n'y arrive vraiment pas je verrai si je peux changer)

[Art19]

bon j'ai remplace un bug par un autre.. maintenant j'ai un bug ici:

Code :

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

1
2
3
4
5
6
7
 
i := 0;  
while (j < a2.Count) and (CompareDate( ATDATA(a2.Items[j]^).heure, day ) = 0) do begin
    ATDATA(a2.Items[j]^) := ATDATA(a1.Items[i]^);
    Inc(j);
    Inc(i);
  end;

a la ligne:

Code :

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

1
2
 
    ATDATA(a2.Items[j]^) := ATDATA(a1.Items[i]^);

sachant qu'il y a plus d'element dans a1 que d'element de a2 dont la date vaut 'day' (d'ou l'absence de verification sur i)

a votre avis?

[ShaiLeTroll]

je proposerais cela

Code :

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

while (j < a2.Count) and (i < a1.Count) and  (CompareDate( ATDATA(a2.Items[j]^).heure, day ) = 0) do begin

Il nous manque le message d'erreur

[Art19]

tu n'as pas lu toute ma question:

sachant qu'il y a plus d'element dans a1 que d'element de a2 dont la date vaut 'day' (d'ou l'absence de verification sur i)

[ShaiLeTroll]

Oui, mais tu ne donnes pas le message d'erreur, info incomplète, réponse fausse ou incomplète ...

[Art19]

mauvaise foi!

ok attends 2 secondes et je te donne le message d'erreur..

je crois que c'etait Access violation

c'est quoi la bonne couleur?

[Art19]

en effet c'etait du a un probleme sur i et la taille de a1 d'ou ma sideration: je ne sais pas coder

[ShaiLeTroll]

je ne sais pas coder

Je pense plutôt que tu as la tête dans le guidon, et que tu ne prend plus assez de recul, souvent quand j'ai un algo dont je ne maitrise plus les résultats, je remets tout à plat, je supprime ce que j'ai fait (backup), et je recommence totalement autrement, en révisant le contexte, en vérifiant que les paramètres que j'attends sont bien ceux que j'attends, (le top étant un jeu de Test, avec des fonctions de tests ou carément voir des vrais Tests avec DUnit) ...

[Art19]

Oui c'est la meilleure solution car sinon on connait tellement notre code au bout d'un moment que tout nous semble bon et fluide et qu'on ne voit pas les erreurs