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