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