Découper une StringList en plusieurs StringList ?

Bonjour à tous,

Je cherche à découper une StringList en plusieurs parties.
Découper la liste en 2 parties est facile, j'utilise ce code :

Code:

---

1 2 3 4 5

for I := SL1.Count - 1 downto (SL1.Count div 2) do begin SL2.Insert(0, SL1[I]); SL1.Delete(I); end;

---

Mais imaginons que le nombre de parts soit dynamique (SpinEdit par exemple), comment procéder ?

Je suis un peu perdu...
Merci par avance :)

Beny

Il n'y a pas grand chose qui change !
Un SpinEdit configuré pour aller de 0 à Count qui indique le nombre de part à conserver

Code:

---

1 2 3 4 5

for I := SL1.Count - 1 downto SpinEdit.Value do begin SL2.Insert(0, SL1[I]); SL1.Delete(I); end;

---

ou un nombre de part à éliminer

Code:

---

1 2 3 4 5

for I := SL1.Count - 1 downto SL1.Count - SpinEdit.Value do begin SL2.Insert(0, SL1[I]); SL1.Delete(I); end;

---

Merci pour ta réponse, je me suis mal exprimé en fait.

Car découper la liste en plusieurs parties ne pose pas de problèmes, mais la répartition en plusieurs StringList elle me pose problème...
Cela demande aussi la création d'un nombre dynamique de StringList égal à la valeur du SpinEdit.

Je ne sais pas si je suis très clair... 8O

J'ai commencé cela de cette manière, mais après...

Code:

---

1 2 3 4 5

for i := SL1.Count - 1 downto (SL1.Count div SpinEdit1.Value) do begin SL2.Insert(0, SL1[i]); SL1.Delete(i); end;

---

Beny

Ah, le SpinEdit indique le nombre de liste de 1 à n donc !
Ah oui, ça change tout !

Effectivement, il te faut donc créer autant le liste que nécessaire !

Voyons le cas en 3

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

MoveCount := (SL1.Count div SpinEdit1.Value); for i := SL1.Count - 1 downto SL1.Count - MoveCount do begin SL2.Insert(0, SL1[i]); SL1.Delete(i); end;   for i := SL1.Count - MoveCount - 1 downto SL1.Count - 2 * MoveCount do begin SL3.Insert(0, SL1[i]); SL1.Delete(i); end;

---

En Etudiant, ce code on peut donc dégager un algo, plus général (c'est la phase d'analyse qui t'a manqué)
C'est souvent plus simple de pondre un code à itération fixe, de regarder ce qui reste pareil et ce qui change pour le re-pondre en itération indéterminée
On peut donc l'écrire dans une autre boucle !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var SLL := array of TStringList; begin MoveCount := (SL1.Count div SpinEdit1.Value); SetLength(SLL, SpinEdit1.Value); SLL[0] := SL1; for k := 1 to SpinEdit1.Value - 1 do begin SLL[k] := TStringList.Create(); for i := SL1.Count - ((k-1) * MoveCount) - 1 downto SL1.Count - (k * MoveCount) do begin SLL[k].Insert(0, SL1[i]); SL1.Delete(i); end; end;

---

Bon avec un while, on pourrait avoir un algo plus élégant !

Merci beaucoup pour ces explication :)

Bizarre mais ma procédure me retourne 1 ligne, puis 2, puis 3, puis 4, ... :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.Button1Click(Sender: TObject); var i, k: integer; SLL: array of TStringList; MoveCount: integer; SL1: TStringList; begin SL1 := TStringList.Create; SL1.Assign(ListBox1.Items);   MoveCount := (SL1.Count div SpinEdit1.Value); SetLength(SLL, SpinEdit1.Value); SLL[0] := SL1;   for k := 1 to SpinEdit1.Value - 1 do begin SLL[k] := TStringList.Create(); for i := SL1.Count - ((k - 1) * MoveCount) - 1 downto SL1.Count - (k * MoveCount) do begin SLL[k].Insert(0, SL1[i]); SL1.Delete(i); ShowMessage(SLL[k].Text); end; end; end;

---

Beny

noubli pas que SL1.Count utilisé dans la boucle interne sera modifier car tu utilise SL1.delete[i], mieux supprimer les ligne à la fin, ou utilisé une constante=SL1.Count :aie:

Citation:

---

Envoyé par edam

noubli pas que SL1.Count utilisé dans la boucle interne sera modifier car tu utilise SL1.delete[i], mieux supprimer les ligne à la fin, ou utilisé une constante=SL1.Count :aie:

---

Ah oui, merci ;)
Quelques boucles qui s’entrelassent et je me perd !

Je vais 'checker' tout ça.

Beny