Concaténer TStrings

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

Fais un truc comme ca :

Code:

---

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

---

Bon dev' :wink:

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

Dans les deux cas, ça me met :

Citation:

---

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:

---

tout.Assign(exist);

---

Morceau de code :

Code:

---

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

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

Merci beaucoup, c'est presque ca :

Code:

---

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

Oublie pas de libérer la mémoire :

Code:

---

1 2 3 4

tout.free; ajout.free; exists.free; [...]

---

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:

---

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

---

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