FindFirst me dit "got untyped" ?

Bonjour,

J'utilise FPC 2.7.1 svn et Lazarus 1.1 svn.

Si j'utilise :

Code:

---

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

---

J'ai droit à:

Citation:

---

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

---

Si je me contente de :

Code:

---

FindFirst(Dir + aFilter, aFileType, info)

---

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

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.

Citation:

---

Envoyé par 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.

---

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.