Discussion :

[Tuxxy]

Voila mon petit problème :
J'ai deux variables TStrings, une correspondant à des éléments de la ListBox et l'autres aux éléments (chemins des fichiers) à y ajouter. J'ai pensé concaténer les deux morceaux et mettre comme items dans la listboxce résultat. Mais je n'arrive pas à les concaténer.
Par exemple si
a='Ligne1
Ligne2
Ligne3'

et b='Ligneaajouter1
Ligneaajouter2'

Je voudrais avoir c='Ligne1
Ligne2
Ligne3
Ligneaajouter1
Ligneaajouter2'

Merci d'avance

[Smortex]

Fais un truc comme ca :

Code :

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

1
2
c.assign(a);
c.AddStrings(b);

Bon dev'

[Invité]

Salut,

A priori, s'il s'agit simplement d'ajouter les lignes du deuxième TStrings à la suite de celles stockées dans le premier TStrings, tu dois pouvoir écrire l'instruction suivante :

A.Text := A.Text + B.Text

A+

Didier

[Tuxxy]

Dans les deux cas, ça me met :

Le projet a provoqué une classe d'exception EAccessViolation avec le message "Violation d'accès à l'adresse 00459908 dans le module 'MP3Encoder.exe'. Lecture de l'adresse 8BD88B5B. Processus stoppé.

J'arrive pas à trouver pourquoi. Ca bloque au moment :

Code :

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

tout.Assign(exist);

Morceau de code :

Code :

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

1
2
3
4
5
6
Ouvrir.Execute;
ajout:=Ouvrir.Files;
exist:=Listefich.Items;
tout.Assign(exist);
tout.AddStrings(ajout);
Listefich.Items:=tout;

En fait je voudrais ajouter au contenu de la listbox les chemins des fichiers ajoutés.

Merci à tous

[gibet_b]

As tu essaye :
tout:=TStringList.Create;
ajout:=TStringList.Create;
exist:=TStringList.Create;
tout:=AddStrings(ajout);
tout:=AddStrings(ajout);
Listefich.Items:=tout;

[Tuxxy]

Merci beaucoup, c'est presque ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
Ouvrir.Execute;
tout:=TStringList.Create; 
ajout:=TStringList.Create; 
exist:=TStringList.Create;
 
ajout:=Ouvrir.Files;
exist:=Listefich.Items;
tout.AddStrings(exist);
tout.Addstrings(ajout);
Listefich.Items:=tout;

C'est juste tout.Addstrings et non tout:=Addstrings.
Merci !!

[Smortex]

Oublie pas de libérer la mémoire :

Code :

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

1
2
3
4
tout.free;
ajout.free;
exists.free;
[...]

[Pierre Castelain]

Tu peux faire beaucoup plus simple. Dans la mesure où les propriétés Items et Files sont de type TStrings, tu peux écrire directement:

Code :

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

1
2
 
  Listefich.Items.AddStrings(Ouvrir.Files);

[Tuxxy]

Merci c'est encore plus simple avec la solution de Pierre Castelain, mais les autres pourront toujours me servir!