Section courante

A propos

Section administrative du site

FINDNEXT

 Trouve le suivant
Delphi/Kylix/Lazarus SysUtils

Syntaxe

Function FindNext(var F:TSearchRec):Integer;

Paramètres

Nom Description
F Ce paramètre permet d'indiquer l'enregistrement contenant le résultat de la recherche

Description

Cette fonction permet de rechercher l'élément suivant dans un répertoire contenant des fichiers et répertoires.

Exemple

Voici un exemple montrant comment afficher les fichiers avec l'extension «.DPR» dans le répertoire courant :

  1. Program FindNextSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils; 
  5.  
  6. Var
  7.  Rec:TSearchRec;
  8.  FileHandle:Integer;
  9.  
  10. BEGIN
  11.  FileHandle := FindFirst('*.DPR',faArchive,Rec);
  12.  While FileHandle = 0 do Begin
  13.   Write(Rec.Name:20);
  14.   FileHandle := FindNext(Rec);
  15.  End;
  16.  FindClose(Rec);
  17. END.

on obtiendra un résultat semblable au suivant :

ABS1    .DPR      ABS2    .DPR      ACOS    .DPR      ASC     .DPR
ASIN    .DPR      ATN     .DPR      BEEP    .DPR      BIN     .DPR
CALCIUM .DPR      CALL    .DPR      CDBL    .DPR      CEIL    .DPR
CHECKERS.DPR      CHR     .DPR      CINT    .DPR      CLNG    .DPR
CLOSE   .DPR      COORDELT.DPR      COS     .DPR      CSNG    .DPR
CVD     .DPR      DECR    .DPR      EXP     .DPR      FILES   .DPR
FIX     .DPR      FOR     .DPR      HEX     .DPR      HOCKEY  .DPR
IF      .DPR      INCR    .DPR      INSTR   .DPR      INT     .DPR
IPAYMT  .DPR      LBOUND  .DPR      LEFT    .DPR      LEN     .DPR
METEOCNV.DPR      MODE43  .DPR      NPER    .DPR      OCT     .DPR
PPAYMT  .DPR      PPAYMT2 .DPR      PRINT   .DPR      RIGHT   .DPR
RND     .DPR      ROMAIN  .DPR      SCREEN1 .DPR      SELECT  .DPR
SGN     .DPR      SIN     .DPR      SPC     .DPR      STR     .DPR
STRING  .DPR      SUB     .DPR      TAN     .DPR      TIME    .DPR
UBOUND  .DPR      VAL     .DPR      WHILE   .DPR

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - FileSearch
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - FindClose
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - FindFirst
Langage de programmation - Delphi/Kylix/Lazarus - Type de données élémentaires - TSearchRec

Dernière mise à jour : Mercredi, le 18 février 2015