Conversion array en string possible ?

bonjour je voudrais savoir s'il est possible de convertir un tableau en chaîne de caractère ?

ex : je fais un tableau 1 colonne et 100 lignes :

Code:

---

tableau: array [1..100] of string

---

ensuite j'y inscrit des valeurs

J'aimerais savoir s'il existe une formule magique sous Delphi 7, formule du genre : arraytostring ou arraytostr, tout comme inttostr ?

Cela reste du domaine du faisable :

Code:

---

1 2 3 4 5 6 7 8

function ArrayToString(AArrayOfString: array of string): string; var I: Integer; begin Result := ''; for I := Low(AArrayOfString) to High(AArrayOfString) Result := Result + AArrayOfString[I]; end;

---

Le TStringList fait la même chose et tu récupères l'intégralité du tableau via la propriété "Text"

est-ce que quelqu'un pourrait m'indiquer de la doc pour les Tstringlist ?

pour l'instant je n'ai rien trouvé

:f1: sur TStringList + questions sur ce qui bloque...

Petit exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

var SL1 : TStringList ; St1 : String ; begin SL1 := TStringList.Create; SL1.Add ('AAA') SL1.Add ('BB') St1 := sl1.text ; SL1 .Free; end;

---

bonjour

si j'écris cette procédure :

Code:

---

1 2 3 4 5 6 7 8

procedure Tx264Form.regexport; var chaine: TStringList; begin chaine:= TStringList.Create; chaine[0]:= 'REGEDIT 4'; chaine[1]:= 'truc'; end;

---

il affichera bien ça dans le fichier :

Code:

---

1 2	REGEDIT 4 truc

---

non ?

Salut

Regarde l'exemple d'Alweber au dessus. Il faut utiliser la Méthode Add pour ajouter une chaine à la StringList.

Code:

---

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

procedure Tx264Form.regexport; var chaine: TStringList; begin chaine:= TStringList.Create; try chaine.Add('REGEDIT 4'); chaine.Add('truc'); // ... finally chaine.Free; end; end;

---

@+ Claudius

méthode add pour ajouter des éléments et tu peux utiliser l'indicage (edit1.text:=monstringlist[0]) pour la récupération de tes valeurs.

ok merci beaucoup pour toutes ces réponses les gars