Discussion :

[benymypony]

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 :

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

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

[ShaiLeTroll]

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 :

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

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 :

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

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;

[benymypony]

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

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

Code :

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

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

[ShaiLeTroll]

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 :

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

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 :

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

[benymypony]

Merci beaucoup pour ces explication

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

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

[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

[benymypony]

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

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

Je vais 'checker' tout ça.

Beny