Discussion :

[Tuxico]

Bonjour,

Je me demandais comment lister tous les fichiers du répertoire courant sous linux (compilateur: FPC).
Je sais que l'unité Dos propose des fonctions adéquates mais c'est dos, hors sous linux...
Je sais aussi que sysutils propose des fonctions telles que FileSeek etc...mais malgré une recherche sur google je ne trouve pas beaucoup de codes valables...
De plus la fonction FileSeek retourne un entier si le fichier existe ou non, ce qui ne m'interesse pas...
J'ia bien essayé aussi, ScanDir mais apparemment cette fonction n'est pas supportée par fpc.

Dois-je passer par les interruptions?

merci de votre aide

[Clandestino]

La réponse a déjà été donnée sur ce forum , et tu étais sur la bonne piste : il faut utiliser l'unit DOS qui contre toute attente compile et fonctionne aussi sous X...

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
program test;
 
uses dos;
var
S: SearchRec;
 
begin
{ On recherche les fichiers ayant l'attribut Archive, n'importe quel nom }
FindFirst('*.*', Archive, S);
while DosError = 0 do
begin
WriteLn(S.Name); { On affiche le nom du fichier }
FindNext(S); { On recherche l'ocurrence suivante }
end;
end.

Bonne programmation

clandestino

[Tuxico]

ah beh merci

j'apprends quelque chose

j'avais en effet lu ce post et cherché à re-coder FindNext mais bon


merci (y)