Warning: Implicit string type conversion from "AnsiString" to "WideString"
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:
Citation:
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:
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:
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; |
