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

FINDNEXT	Trouvé le suivant
Turbo Pascal 4+	DOS, WinDos

Syntaxe

Procedure FindNext(resul:SearchRec);

Paramètres

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

Description

Cette procédure permet de rechercher l'occurrence suivant (fichier ou répertoire) contenu dans un répertoire de fichier.

Remarques

L'appel de la procédure FindNext doit avoir été précédé par une instruction FindFirst pour pouvoir fonctionner correctement.
On peut rappeler la procédure FindNext tant et aussi longtemps qu'il n'y a pas de code d'erreur retourner par la fonction DOSError.
Le paramètre resul doit être le même passé à FindFirst(SearchRec,...) est déclaré dans l'unité DOS). Les erreurs sont signalées dans DosError; le seul code d'erreur possible dans une situation normal est 18, ce qui indique qu'il n'y a plus de fichiers.

Exemple

Voici un exemple montrant comment afficher les fichiers dans le répertoire courant :


				
Program FindNextSamples;

 

Uses DOS; 

 

Var

 Rec:SearchRec;

 
BEGIN

 FindFirst('*.*',Archive,Rec);

 While DOSError = 0 do Begin

  WriteLn(Rec.Name);

  FindNext(Rec);

 End;

END.

on obtiendra un résultat semblable au suivant :

INPUT.TXT OUTPUT.TXT MAIN.PAS MAIN.EXE

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 181.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1234.

Dernière mise à jour : Dimanche, le 25 janvier 2015

Section courante

A propos

Section administrative du site

FINDNEXT