Discussion :

[Invité]

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 :

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

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 ?

[Reisubar]

Cela reste du domaine du faisable :

Code :

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

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;

[ALWEBER]

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

[Invité]

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

pour l'instant je n'ai rien trouvé

[Reisubar]

sur TStringList + questions sur ce qui bloque...

[ALWEBER]

Petit exemple

Code :

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

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;

[Invité]

bonjour

si j'écris cette procédure :

Code :

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

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 :

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

1
2
REGEDIT 4
truc

non ?

[Cl@udius]

Salut

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

Code :

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

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

[zemeilleurofgreg]

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.

[Invité]

ok merci beaucoup pour toutes ces réponses les gars