, het gebruik van FindFirst en FindNext recursief, de naam en de weg van de toevoeging van een stringlist,,,,, het creëren van een lijst van de documenten in een map en de kinderen,,,, in de volgende korte handleiding, laat ik je voor mezelf. "Op basis van kennis; het zoeken naar documenten " instrumenten,  , procedures, het zoeken naar documenten, (,, fileslist, startdir - dossiers, archieven, maskers,) in een bepaalde MAP en de kinderen.Documenten die overeenkomt met een dossier maskers zijn aangewezen.,,, parameters, fileslist, is stringlist het dossier volledig weg zal worden toegevoegd,  , parameters, startdir, je gids (MAP) van de inleiding van de procedure, met inbegrip van de schijf.Als je wilt doorzoeken het hele harde schijf, je bedoeld de DISK wortel, zoals C, of:,,,, de parameters, de archieven masker, je naam te vinden, of een masker van documenten (voor gebruik met de onzekerheid en de???????)Voorbeeld:,,,. Het zoeken naar documenten (fileslist, C: "," letter01 DOC "); het zoeken naar documenten (fileslist,, C:", ",", het zoeken naar documenten (DPR); fileslist, D:\\ project "," test????????. DPR ");,,, als je het wilt proberen deze procedure, door toevoeging van de volgende ingrediënten:,,,, twee redactionele (voor een gids, een masker),,,,, een lijst van de knop,,,,,,,,, TLabel dossier vinden, de source code in het dossier,, gebruiken we de Bug noemt: het programma zelf, om op het bestand.,,,, de procedures te vinden (fileslist:tstringlist;,   startdir, archieven masker: string); var, de   SR:tsearchrec;,,   genomen: tstringlist; dat,  : Bull.  : getallen, ik begin  ;,, als startdir (lengte (startdir)] < > "en dan,       startdir:= startdir +";,,   /startdir tot Gids van de lijst van documenten, met inbegrip van   /geen gids.,,  IsFound :=,    FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;,  while IsFound do begin,    FilesList.Add(StartDir + SR.Name);,    IsFound := FindNext(SR) = 0;,  end;,  FindClose(SR);,,  //Build a list of subdirectories,  DirList := TStringList.Create;,  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;,  while IsFound do begin,    if ((SR.Attr and faDirectory) <> 0) and,         (SR.Name[1] <> '.') then,      DirList.Add(StartDir + SR.Name);,    IsFound := FindNext(SR) = 0;,  end;,  FindClose(SR);,,  //Scan the list of subdirectories recursively,  for i := 0 to DirList.Count-1 do,    FindFiles(DirList[i], FileMask);,,  DirList.Free;,end; , ,, ,,How to use Het zoeken naar documenten?,,,, in de oproep tot het indienen van het zoeken naar documenten, creëer je een stringlist dossier volledig weg, toe te voegen documenten gevonden.De inhoud van de programma stringlist kan worden weergegeven in, te redden, of...   eindelijk   heb je de vrijheid stringlist.,,,, een gebeurtenis plaatsvindt. Buttonfindclick (afzender: TObject); var, de   fileslist:tstringlist beginnen,   fileslist:=;, tstringlist. Creëren,  ; proberen,       dossier vinden (fileslist, editstartdir. Tekst, editfilemask. Tekst); het aantal  ,    . Project. De toewijzing (fileslist);  ,     labelcount. Beschrijving: = documenten: "+IntToStr (fileslist. Tellen);  ,     /en documenten met  ... De lijst,     /////// ... Eindelijk.  ,     fileslist. Vrijheid, aan het einde van het  ;,,,,,,;;