Bug à la c** dans ma sourceRésolu

Question

Bonjour à tous.

Voilà c'est tout simple, j'ecris ceci :

var
  Dossier:string;
begin
  if SelectDirectory('Choisissez le dossier contenant les images ...','C:\',Dossier) then
    Edit1.Text:=Dossier;

Et ça marche pas à la compilation ...

> [Erreur] Edition_Configuration.pas(44): Les types des paramètres VAR originaux et formels doivent être identiques

J'ai beau relire mon code, je vois pas où est l'erreur 
J'ai essayé de faire des copier-copier de cette même fonction (SelectDirectory) depuis d'autres sources trouvés sur le net, j'ai exactement le même problème.

Je dois commencer à fatiguer, j'ai l'impression que cette fonction est bugué 

Need help here

Cirec · Accepted Answer

Salut,

je viens de tester ton code et tout fonctionne ????

Uses FileCtrl;
procedure TFormMain.Button1Click(Sender: TObject);
var
  Dossier:string;
begin
  if SelectDirectory('Choisissez le dossier contenant les images ...','C:\',Dossier) then
    Edit1.Text:= Dossier;
 end ;

le problème ne vient pas de là.

si tu retires cette portion de code que ce passe-t'il 

 
@+
Cirec

<hr size ="2" />

John Dogget · Answer

Ayest j'ai trouvé l'erreur grâce à toi 
En fait, mon code est correct comme tu l'as dis.
Le problème c'est que je n'avais pas rajouté l'unité "FileCtrl" dans les uses !

Il semble y avoir 2 routines "SelectDirectory", une dans l'unité "QDialogs", et une autre dans l'unité "FileCtrl".
J'ai simplement utilisé la mauvaise 

D'ailleurs deux fonctions qui ont le même nom, qui font la même choses, mais qui ne s'emploi pas de la même façon, c'est assez sournois de la part des devs 

Merci encore

f0xi · Answer

FileCtrl =  VCL =  Borland Delphi Visual Component Library  (Windows)QDialogs  CLX   Delphi and Kylix Cross-Platform Visual Component Library   (Windows / Linux)

<hr size ="2" width="100%" />Croc (click me)

Bug à la c** dans ma source

3 réponses

Votre réponse

Discussions similaires