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»

PARTAGER CETTE PAGE SUR

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

	ABAP/4
	Ada
	Assembleur
	Assembly & bytecode
	ASP (Active Server Pages)
	Basic
	C
	C++
	C# (C Sharp)
	Cobol
	ColdFusion
	Fortran
	HTML
	Java
	JavaScript
	LISP
	Logo
	LotusScript
	Oberon
	Pascal
	Perl
	PHP
	PL/1
	Prolog
	Python
	Rebol
	REXX
	Ruby
	Rust
	SAS
	NoSQL
	SQL
	Swift
	X++ (Axapta)

	Assembleur 370
	Assembleur 1802
	Assembleur 4004
	Assembleur 6502
	Assembleur 6800
	Assembleur 68000
	Assembleur 8080 et 8085
	Assembleur 8089
	Assembleur 80x86
	Assembleur AGC4
	Assembleur ARM
	Assembleur DPS 8000
	Assembleur i860
	Assembleur Itanium
	Assembleur MIPS
	Assembleur PDP-11
	Assembleur PowerPC
	Assembleur RISC-V
	Assembleur SPARC
	Assembleur SuperH
	Assembleur UNIVAC I
	Assembleur VAX
	Assembleur Z80
	Assembleur Z8000
	Assembleur z/Architecture

	CIL
	Jasmin
	LLVM
	MSIL
	Parrot
	P-Code (PCode)
	SWEET16

	ASP 1.0
	ASP 2.0
	ASP 3.0
	ASP.NET

	ABasiC (Amiga)
	Adam SmartBASIC
	Altair BASIC
	AmigaBASIC (Amiga)
	AMOS Basic (Amiga)
	Atari Basic (Atari 400, 600 XL, 800, 800XL)
	Basic Apple II (Integer BASIC/APPLESOFT)
	Basic Commodore 64 (CBM-BASIC)
	Basic Commodore 128 (BASIC 7.0)
	Basic Commodore VIC-20 (CBM-BASIC 2.0)
	Basic Coco 1 (Color Basic)
	Basic Coco 2 (Extended Color Basic)
	Basic Coco 3 (Extended Color Basic 2.0)
	BASICA (PC DOS)
	Basic Pro
	BBC BASIC
	Blitz BASIC (Amiga)
	DarkBASIC
	Dartmouth BASIC
	GFA-Basic (Atari ST/Amiga)
	GWBASIC (MS-DOS)
	Liberty BASIC
	Locomotive BASIC (Amstrad CPC)
	MSX-Basic
	Omikron Basic (Atari ST)
	Oric Extended Basic
	Power Basic
	Quick Basic/QBasic (MS-DOS)
	Sinclair BASIC (ZX80, ZX81, ZX Spectrum)
	ST BASIC (Atari ST)
	Turbo Basic
	Vintage BASIC
	VBScript
	Visual Basic (VB)
	Visual Basic .NET (VB .NET)
	Visual Basic pour DOS
	Yabasic

Section courante

A propos

Section administrative du site

FINDNEXT