Discussion :

[JediKerian]

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

[Invité]

Tu as mis :

Code :

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

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 :

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

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é

[Invité]

Code :

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

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;