Langage de programmation - Free Pascal - Référence de procédures et fonctions

FINDNEXT	Trouve le prochain
Free Pascal	SysUtils

Syntaxe

Function FindNext(Var Rslt:TSearchRec):LongInt;

Paramètres

Nom	Description
Rslt	Ce paramètre permet d'indiquer l'enregistrement contenant le résultat de la recherche. Voici les champs retourner :
	Champ	Type de données	Description
	Time	LongInt	Ce champ permet d'indiquer le temps du fichier.
	Size	Int64	Ce champ permet d'indiquer la taille du fichier.
	Attr	LongInt	Ce champ permet d'indiquer les attributs du fichier.
	Name	TFilename	Ce champ permet d'indiquer le nom du fichier (le dossier n'est pas inclus).
	ExcludeAttr	LongInt	Ce champ permet d'indiquer les attributs étendues du fichier.
	FindHandle	Pointer	Ce champ permet d'indiquer le gestionnaire interne du système d'exploitation (n'est pas utilisé).
	Mode	TMode	Ce champ permet d'indiquer le mode du fichier UNIX. Ce champ est uniquement utilisé pour les systèmes d'exploitation de style UNIX.
	PathOnly	AnsiString	Ce champ permet d'indiquer uniquement le dossier du fichier sans son nom ni son extension.

Retour

Valeur	Description
0	Cette valeur permet d'indiquer qu'un autre enregistrement de résultat est disponible après celui-ci.
<> 0	Ces valeurs permettent d'indiquer qu'il n'y a plus d'autre enregistrement de disponible.

Description

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

Remarques

ATTENTION ! Il existe également une procédure avec le même nom situé dans l'unité DOS.
Cette fonction doit d'abord être précédé par la fonction «FINDFIRST» afin de déterminer l'objet de la recherche.
Le dernière appel à cette fonction doit toujours être terminer par l'appel à la fonction «FINDCLOSE» ! Si vous ne le faite pas, vous allez gaspiller énormément de mémoire et de ressource.

Exemple

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


				
Program FindNextSamples;

 
{$APPTYPE CONSOLE}

Uses SysUtils; 

 
Var

 Rec:TSearchRec;

 FileHandle:Integer;

 
BEGIN

 FileHandle := FindFirst('*.DPR',faArchive,Rec);

 While FileHandle = 0 do Begin

  Write(Rec.Name:20);

  FileHandle := FindNext(Rec);

 End;

 FindClose(Rec);

END.

on obtiendra un résultat semblable au suivant :

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

Voir également

Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «FINDFIRST»

Dernière mise à jour : Samedi, le 18 juillet 2015

Section courante

A propos

Section administrative du site

FINDNEXT