Discussion :

[MaTHieU_]

Bonjour,

J'ai un petit soucis avec une fonction qui renvoi un TStringList, j'ai l'impression qu'elle ne renvoi rien alors que les fichiers sont bien trouvés.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
function GetListFiles(MyPattern:String):TStringList;
var
     MySearch  : TSearchRec;
     MyListe   : TStringList;
begin
     try
          MyListe := TStringList.Create;
          if FindFirst(MyPattern, faAnyFile, MySearch) = 0 then
          begin
               repeat
                    MyListe.Add(MySearch.Name);
               until FindNext(MySearch) <> 0;
               FindClose(MySearch);
          end;
          Result := MyListe;
          MyListe.Free;
     except on E : Exception
     do
          begin
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;
end;
 
procedure TFPrincipale.FormCreate(Sender: TObject);
begin
     Listbox2.Items.Assign(GetListFiles('.\Update\*.exe'));
end;

Le problème doit se trouver au niveau du Result mais je ne sais pas comment le résoudre

Merci pour votre aide,
Mathieu

[Vinchou]

C'est tout simple. TStringList est un objet, donc quand tu fais Result := MyListe, tu passes à la valeur de retour non pas l'objet mais le pointeur vers cet objet. Du coup quand à la ligne d'après tu fais MyListe.Free, tu vides également l'objet Result...

La solution consiste à ne pas détruire ton objet MyListe dans la fonction GetListFiles mais dans le FormCreate.

[tourlourou]

Bonjour,

Il me semble que tu libères la liste après l'avoir assignée à Result...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function GetListFiles(MyPattern:String):TStringList;
var
     MySearch  : TSearchRec;
begin
     try
          if FindFirst(MyPattern, faAnyFile, MySearch) = 0 then
          begin
               repeat
                    Result.Add(MySearch.Name); // il me semble que l'objet résultat est déjà créé par le compilo ; à vérifier
               until FindNext(MySearch) <> 0;
               FindClose(MySearch);
          end;
 
     except on E : Exception
     do
          begin
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;
end;

[MaTHieU_]

Bonjour,

Merci pour votre aide. Si j'ai bien compris, il faut que je retire ma ligne MyListe.Free cependant, ce n'est plus un code très propre ?

Y-a-t-il un code plus propre que le mien ou alors dans le cas ou je retire mon MyListe.Free, celle-ci est quad même appelée implicitement ?

Merci,
Mathieu

[MaTHieU_]

Bonjour,

Pour que mon code soit plus propre, j'ai donc transformé ma fonction en procedure comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
procedure GetListFiles(MyListe:TStringList;MyPattern:String);
var
     MySearch  : TSearchRec;
begin
     try
          if FindFirst(MyPattern, faAnyFile, MySearch) = 0 then
          begin
               repeat
                    MyListe.Add(MySearch.Name);
               until FindNext(MySearch) <> 0;
               FindClose(MySearch);
          end;
     except on E : Exception
     do
          begin
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;
end;
 
procedure TFPrincipale.FormCreate(Sender: TObject);
var
     ListeFiles     : TSTringList;
begin
     ListeFiles := TStringList.Create;
     GetListFiles(ListeFiles,'.\Update\*.exe');
     Listbox2.Items := ListeFiles;
     ListeFiles.Free;
end;

Cordialement,
Mathieu

[JeanMarc_T2k]

Bonjour, Mathieu

Il y a légèrement plus simple :

- définir la procédure GetListFiles, avec comme paramètre un objet TStrings pour MyListe :

Code :

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

1
2
3
4
5
 
procedure GetListFiles(MyListe : TStrings; ;MyPattern:String);
begin
   .....
end;

- Ensuite, tu appelles ta procédure de la façon suivante :

Code :

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

1
2
 
GetListFiles(Listbox2.Items, '.\Update\*.exe');

Ainsi, pas besoin de créer une liste temporaire, donc pas besoin de la supprimer ensuite.