ajout dune scrollbar dans un TMemo

Le plus dur dans un programme c'est de savoir pourquoi il marche !

Le plus dur dans un programme c'est de savoir pourquoi il marche !

Le plus dur dans un programme c'est de savoir pourquoi il marche !

Je crois avoir compris !
Je pense qu'il y a une erreur dans le code.. !
au lieu de mettre Memo1.Text := Info.FindData.cFileName;
mets : Memo1.Lines.Add(Info.FindData.cFileName);

Et tu peux aussi remplacer Info.FindData.cFileName par Info.Name;

ce qui donne :

procedure TForm1.listerClick(Sender: TObject);
var
  Chemin : String;
  Info : TSearchRec;
begin

  Chemin := IncludeTrailingPathDelimiter(Memo1.Text);

  if FindFirst(Chemin + '*.*', faAnyFile, Info) = 0 Then
  begin
    repeat
      if Not((Info.Attr And faDirectory) = 0) then
        Memo1.Lines.Add(Info.FindData.cFileName)
      else
        Memo2.Lines.Add(Info.FindData.cFileName);

    until FindNext(Info) <> 0;
    FindClose(Info);
  end;
end;


Voila, en espérant avoir enfin répondu correctement à ta question.
Bon courage !