bonjours à tous
j'ai une fonction qui liste les répertoires et sous répertoires et qui fonctionne très bien mais j'ai ces messages:

Compilation du projet - Cible : lib\x86_64-win64\Project2.exe : Succès - Avertissements : 4
Unit1.pas(59,46) Warning: Implicit string type conversion from "AnsiString" to "WideString"
Unit1.pas(59,73) Warning: Implicit string type conversion with potential data loss from "WideString" to "AnsiString"
Unit1.pas(65,32) Warning: Implicit string type conversion from "AnsiString" to "WideString"
Unit1.pas(65,59) Warning: Implicit string type conversion with potential data loss from "WideString" to "AnsiString"
voici mon 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
Function tform1.ListeFichiers(Chemin:String):boolean;
Var S:TSearchRec;
Begin
  Chemin:=IncludeTrailingPathDelimiter(Chemin);
  Result:=false;
  If FindFirst(Chemin+'*.*',faAnyFile,S)=0
  Then Begin
    Repeat
         if (S.Name<>'.')And(s.Name<>'..')//je saute le début
      Then Begin
        If (S.Attr And faDirectory)<>0 //si répertoire         
          Then ListeFichiers(Chemin+S.FindData.cFileName)   // je rappelle la fonction      
          Else
            begin
            listbox1.items.add(Chemin+S.FindData.cFileName);
            end;
      End;
    Until FindNext(S)<>0;
    FindClose(S);
  End;
result:=true;
End;
la fonction est appelée avec:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled:=False;
  Try
    ListeFichiers(Edit1.Text);
  Finally
    Button1.Enabled:=True;
  End;
end;