Salut les gens
j'ai un problème EAccessViolation quand j'utilise un stringlist sur ce code:
Code :
- procedure TForm1.Button2Click(Sender: TObject);
- var
- i:Integer;
- SelectedDir:string;
- Chemin:string;
- Info : TSearchRec;
- begin
- LstFichier := TStringList.Create;
-
- if SelectDirectory('Select a directory', 'Desktop', SelectedDir) then
- begin
- SLDir:=TStringList.Create;
- RecurseSubFolder(SelectedDir);
-
- for i:= 0 to (sldir.count)-1 do
- begin
- LstFichier.Clear;
- Chemin := IncludeTrailingPathDelimiter(SLDir.Strings[i]);
- If FindFirst(Chemin+'*.*',faAnyFile,Info)=0 Then
- Begin
- Repeat
- If ((Info.Attr And faDirectory)=0) then LstFichier.Add('Dossier '+inttostr(i)+' '+Chemin+Info.FindData.cFileName);
- Until FindNext(Info)<>0;
- FindClose(Info);
- End;
-
- LstFichier.Free;
- end;
- SLDir.Free;
- ShowMessage('Fini');
- end;
- end;
|
RecurseSubFolder ça vient du code qu'a posté Gilbert Geyer sur cette page à 16h52 http://www.developpez.net/forums/d [...] er-disque/
j'ai juste viré les uppercase
si je met un memo.lines.add à la place du LstFichier.Add et que je met en commentaire tout ce qui a trait au stringlist tout marche bien mais je ne peut pas utiliser le stringlist LstFichier
mon stringlist est bien initialisé...
quelqu'un a une chtite idée?
Message édité par Flagad'aware le 25-06-2015 à 20:47:14
