voir les fichiers d'un repertoireRésolu

Question

Boujour,
Avec le code ci-dessous, je ne voie que le dernier fichier du repertoire !
Comment les voir tous ?
merci de votre aide

var
  SearchRec : tSearchRec;


begin
   if FindFirst('c:	emp\*.*', faAnyFile, SearchRec) = 0 then
   begin
     While (FindNext(SearchRec) = 0) do
        begin
            edit1.Text := SearchRec.Name;
            Sleep(500);
       end;
   end;
   FindClose(SearchRec);
 end;

cs_Kenavo · Accepted Answer

Salut,



J'ai bien peur qu'il ne te manque aussi, le premier fichier rencontr&#233;,
celui dont le nom t'est renvoy&#233; par la fonction FindFirst (puisque tu
fais un appel &#224; FindNext aussit&#244;t apr&#232;s) !

Et su tu ne veux pas utiliser de Memo comme te le sugg&#232;re jlen100,
n'oublie pas Repaint ou Refresh pour redessiner ton contr&#244;le avant la
suspension du programme (sleep);




var

  SearchRec : tSearchRec;

  resu : integer

 
begin

  Resu :=  FindFirst('c:	emp\*.*', faAnyFile, SearchRec);

  While Resu=0 do

  begin

    edit1.Text := SearchRec.Name;

    Edit1.Repaint;   // pour forcer &#224; redessiner Edit1 

    Sleep(500);

    Resu : = FindNext(SearchRec)

  end;

  FindClose(SearchRec);

end;


Ken@vo

<hr size="2" width="100%">Code, Code, Codec !

[%3C/body ]

cptpingu · Answer

Peut etre comme ceci:



var

  SearchRec : tSearchRec; 

begin

edit1.Text := '';

   if FindFirst('c:	emp\*.*', faAnyFile, SearchRec) = 0 then
   begin

     While (FindNext(SearchRec) = 0) do
        begin
            edit1.Text := edit1.Text +' '+ SearchRec.Name;
            // Sleep(500); // Pourquoi ceci ?
       end;
   end;
   FindClose(SearchRec);
 end;

jlen100 · Answer

autre solution:

remplaces ton edit par un memo et tu remplaces edit1.text  par
memo.lines.add(SearchRec.Name);  tu n'as plus besoin du sleep(500);


bonne prog

fallen angels · Answer

Bonjour,

Un grand merci &#224; [mailto:Ken@vo Ken@vo] qui a trouv&#233; la soluce &#224; mon PB.
Je n'&#233;tais pas loin... promis je vais pers&#233;v&#233;rer...

A bient&#244;t (surement)...

Voir les fichiers d'un repertoire

4 réponses

Votre réponse

Discussions similaires