Discussion :

[Daniel Magron]

Bonjour,
Cela parait simple mais je n'arrive pas à m'en sortir avec
cette logique
Je veux dire décendre toutes les lignes de stringgrid si la condition n'est pas remplie jusqu'à qu'elle
le soit à nouveau :
Les variables indicées nom, codepostal, ville sont enregistrées dans un fichier x
La variable indicée nomsup est dans un fichier y.
Par comparaison, si nom est différent de nomsup j'aimerais que nom + codepostal + ville descendent d'une
ligne dans stringgrid

exemple :

Code :

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

for n:=1 to 20

si nom[n] = nomsup[n] alors écrit les variables codepostal + ville sur la ligne correspondante de la stringgrid
si nom[n] <> nomsup[n] alors la ligne correspondante :=''et descend d'une ligne nom +code postal +ville
si nom[n] = nomsup[n] alors écrit les variables codepostal + ville sur la ligne correspondante de la stringgrid
si nom[n] = nomsup[n] alors écrit les variables codepostal + ville sur la ligne correspondante de la stringgrid
si nom[n] <> nomsup[n] alors la ligne correspondante :=''et descend d'une ligne nom + code postal +ville
etc ...

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
Stringgrid1.RowCount:= PosPosition1; // integer
for n:= 1 to PosPosition1-1 do begin
if indexCotisFNI[n].PositionFNI= IndexPosition1[n].Position1
  then begin
      stringgrid1.Cells[0,n]:= IndexPosition1[n].Position1;
      stringgrid1.Cells[1,n]:= inttostr(IndexPosition1[n].FNI);
      stringgrid1.Cells[2,n]:= indexCotisFNI[n].ReglesFNI;
      stringgrid1.Cells[3,n]:= indexCotisFNI[n].ResteFNI;
      stringgrid1.Cells[5,n]:= indexCotisFNI[n].MontantFNI;
      end
      else begin // si différent de IndexPosition1[n].Position1
      stringgrid1.Cells[0,n]:= IndexPosition1[n].Position1;
      stringgrid1.Cells[1,n]:=   inttostr(IndexPosition1[n].FNI);       stringgrid1.Cells[2,n+1]:=indexCotisFNI[n].ReglesFNI;
      stringgrid1.Cells[3,n+1]:= ndexCotisFNI[n].ResteFNI;
      stringgrid1.Cells[5,n+1]:= indexCotisFNI[n].MontantFNI;
      end;
  end;

Merci d'avance

[tatareau]

J'ai pas compris , mais est-ce que ça ne ressemble pas à un parcours récursif dans un arbre? Sinon il te faut travailler sur une autre liste (une deuxieme liste) que tu rempliras "au fil de l'eau" jusqu'à que ta condition de fin soit atteinte.

[edam]

+ tatareau
fait dans la tete que la stringgrid n'est là que pour affiché une résultat prés, ni plus

[basteo]

Bonjour

Ton problème est que quand tu écris sur la ligne (sans descendre), tu écrases la ligne précédente si elle est écrite en dessous. (j'espère juste avoir bien compris ton problème )
Alors, pour tout descendre, il faut ajouter un offset que tu incrémentes :

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
var offset:integer;
...
begin
...
offset := 0;
for n:=1 to PosPosition-1 do
begin
  // Tu effectue un décalage général si le 
  // test l'exige
  if (.... <> .... ) then // tu remets ton test
     Offset := Offset + 1;
 
  // Ici tu écris tout normalement à la ligne [n+offset]
  StringGrid1[0, n+offset] := TesDonnees[n];
  ...
end;

Si j'ai bien compris ton problème de décalage, cela devrais résoudre ton problème.

A+
Basteo

[Daniel Magron]

Je vais essayer ton code, en attendant merci beaucoup pour ta réponse