TStringList en array of string

Comment faire pour transformer un stringlist en array of string ?

g créer une fonction, mais j'arrive pas a donner le type array of string en resultat.

voici la fonction:

function listtoarray(strlist:Tstringlist): // array of string ?!!
var
tmp: array of string;

begin
for i:=0 to strlist.count -1 do
tmp[i]:=strlist.valuefromindex[i];
end;

end;

la fonction rempli bien l'array tmp, mais je peux pas definir le retour de la fonction...

Bouh...... :cry:

Tu as mis :

Code:

---

result := tmp;

---

dans ta procédure et à la fin de la boucle ?

Il y a aussi une erreur : tu met un "end;" en trop ou alors il te manque un begin.
(Je pense que ca donne :

Code:

---

1 2 3 4 5 6 7 8

function listtoarray(strlist:Tstringlist): array of string; var tmp: array of string; begin for i:=0 to strlist.count -1 do tmp[i]:=strlist.valuefromindex[i]; result := tmp; end;

---

Mais j'ai pas testé :oops:

Code:

---

1 2 3 4 5 6 7 8

type TStringArray = array of string;   procedure listtoarray(strlist:TStringList; var res: TStringArray); var i: Integer ; begin SetLength(res,strlist.Count); for i:=0 to strlist.count -1 do res[i]:=strlist.Strings[i]; end;

---