J'ai une erreure de compilation avec findfirst. Voici mon code.
--------------------------------------------------------------
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 uses SysUtils, Windows; type TSearchRec = record Time : Integer; Size : Integer; Attr : Integer; Name : TFileName; ExcludeAttr : Integer; FindHandle : THandle; FindData : TWin32FindData; end; //Permet de faire une liste des fichier dans un répertoire //----------------------------------------------------------- Procedure liste; var SR : TSearchRec; f : TextFile; begin findfirst ('c:\in\*.*',faAnyFile, SR); AssignFile(f, 'c:\ftpedi\dir.txt'); Append(f); Writeln(f, SR.name); while findnext(SR) = 0 do writeln(f, SR.name); findclose(SR); Flush(f); CloseFile(f); end;
L'erreure donnée est
les types de paramètres VAR originaux et formels doivent être identique.
Merci
Partager