Discussion :

[mm_71]

Bonjour,

J'utilise FPC 2.7.1 svn et Lazarus 1.1 svn.

Si j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if FindFirst(Dir + aFilter, aFileType, info)=0

J'ai droit à:

fonctions_bouq.pas(699,7) Error: Incompatible types: got "untyped" expected "LongInt"

Si je me contente de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FindFirst(Dir + aFilter, aFileType, info)

Je n'ai plus le message d'erreur. Bug de FPC 2.7.1 ou autre chose ?

[Roland Chastain]

Bonjour !

Quelle est l'unité utilisée ?

Je pose la question parce qu'il y a la procédure FindFirst de l'unité Dos, et la fonction FindFirst de l'unité SysUtils.

Quoiqu'il en soit, si tu veux vraiment une réponse, il faudrait nous montrer ton code.

[mm_71]

Bonjour !

Quelle est l'unité utilisée ?

Je pose la question parce qu'il y a la procédure FindFirst de l'unité Dos, et la fonction FindFirst de l'unité SysUtils.

ARGH ! J'ai les deux unités dans ma clause use, j'ignorais ce détail. Si j'enlève l'unité dos ça marche, les deux ont un problème de cohabitation.

Les docs que j'avais consultées faisaient toutes référence à l'unité dos. Je suppose que cette dernière est devenue obsolete depuis ?

Quoiqu'il en soit pour ce que je voulais faire ( Adapter ma fonction récursive pour lister tous les fichiers d'un répertoire distant via indy ) findallfiles de fileutil me fait ça en une seule ligne.