Discussion :

[Chakalaka]

Bonjour,

Je voudrais récupérer le contenu d'un TlistBox "UserDest" et j'ai 2 questions à poser
2) Dans quel structure pourrais-je mettre les éléments récupérés? J'ai opté pour une TStringList pour pouvoir récupérer et traiter chaque user plustard (le type qui me torture le plus )
1) Comment y parvenir ? J'ai essayé avec le code suivant et ça me génère l'exception suivante

Project Prj.exe raised exception class EStringListError with message 'List index out of bands (1)'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Ttest.btnTransClick(Sender: TObject);
var
  UserDest   : TStringList;
  i : integer;
begin
  UserDest := TStringList.Create;
  UserDest.Clear;
  for i := 0 to SelectedUserList.Items.Count - 1 do
  Begin
      UserDest[i+1] := SelectedUserList.Items[i];
  end;
end;

J'ai commencé UserDest[i+1] puisque à l'index 0 on a le nombre d'élément contenu dans la TStringList

Avez vous une idée de comment faire ? Merci d'avance

[Andnotor]

Code :

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

1
2
3
4
5
6
7
8
var
  UserDest :TStringList;
 
begin
  UserDest := TStringList.Create;
  UserDest.Assign(SelectedUserList.Items);
  ...
end;

[mick605]

+1 Andnotor

Sinon, pour rester dans le principe de son code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Ttest.btnTransClick(Sender: TObject);
var
  UserDest   : TStringList;
  i : integer;
begin
  UserDest := TStringList.Create;
  UserDest.Clear;
  for i := 0 to SelectedUserList.Items.Count - 1 do
  Begin
      UserDest.Add(SelectedUserList.Items[i]);
  end;
end;

Parce qu'avec ton code, tu essayes d'écrire sur une ligne qui n'a pas été ajoutée, d'ou l'erreur ...

Edit :
Et ca, c'est faux :

J'ai commencé UserDest[i+1] puisque à l'index 0 on a le nombre d'élément contenu dans la TStringList

Tu confonds avec le type String qui n'a rien a voir... L'index 0 est l'index de la première ligne de ta StringList. En fait, une stringList, c'est (comme) un tableau dynamique de strings.

Bonne chance

[Chakalaka]

Gros merci à Andnotor et mick605

Ça été du type une pierre 2 coups maintenant je sais comment avoir le tous d'un seul coup et comment récupérer élément par élément