Discussion :

[DevelOpeR13]

Quelq'un peut-il me dire pourquoi quand j'ajoute l'unit windows ça beugue ?

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
{ --------------------------------------------------------------------------------------------------------------------
                                   Unité globale
  -------------------------------------------------------------------------------------------------------------------- }
 
  unit agProcs;
 
  interface
 
  uses
    Menus, Forms, StdCtrls, SysUtils, windows(houla! :o);
 
  type
    TgProcs = class(TObject)
    procedure FindDir(gDirectory: string; var AListBox: TListBox);
    procedure FileNameWithoutExt(gDirectory: string; var AListBox:Tlistbox);
  end;
 
  implementation
 
  uses
    aMenu;
 
  procedure TgProcs.FindDir(gDirectory: string; var Alistbox:Tlistbox );
  var
    SearchRec: TSearchRec;
    i: Cardinal;
  begin
    Alistbox.Clear;
    i := FindFirst(gDirectory + '\*.*', faAnyFile, SearchRec);
    while i = 0 do
      begin
        if ((SearchRec.Attr and faDirectory > 0) and (SearchRec.Name <> '.') and (SearchRec.Name<>'..')) then
          Alistbox.Items.Add(SearchRec.Name);
          i := Findnext(SearchRec);
      end;
      FindClose(SearchRec);
  end;
 
  procedure TgProcs.FileNameWithoutExt(gDirectory: string; var AListBox:Tlistbox);
  var
    SearchRec: TSearchRec;
    i: Cardinal;
  begin
    AListBox.Clear;
    i := FindFirst(gDirectory + '\*.html', faAnyFile, SearchRec);
    while i = 0 do
      begin
        if ((faDirectory > 0) and (SearchRec.Name <> '.') and (SearchRec.Name<>'..')) then
          Alistbox.Items.Add(ChangeFileExt(SearchRec.Name, ''));
          i := Findnext(SearchRec);
      end;
      FindClose(SearchRec);
  end;
  end.

le message d'erreur qui apparait est le suivant
type incompatible "cardinal" "TSearchRec"

pour l'instant ça marche mais j'ai une fonction que je doit ajouter en globale et qui utilise l'unit windows à ce moment quand j'ajoute windows, c'est le comble non

auriez vous une explication pour ne pas dire à "ce phénomène bizare"?

Merci.

[Nono40]

Ce qui serait bien dans ce genre de cas, c'est de dire sur quelle ligne est l'erreur de compilation. Dans le cas présent c'est sur la ligne

Code :

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

FindClose(SearchRec);

Bon ensuite, c'est simple. Delphi utilise Windows.FindClose ou lieu de SysUtils.FindClose() car Windows est placé après SysUtils.

Deux solutions :
Tu mets Windows avant SysUtils :

Code :

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

uses Windows,Menus, Forms, StdCtrls, SysUtils;

Tu mets explicitement SysUtils dans l'utilisation de FindClose :

Code :

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

SysUtils.FindClose(SearchRec);

Perso, je préfère la première.

P.S : Mettre un titre clair

[DevelOpeR13]

excélent !!!!, elle était pas évidente celle là d'erreur, je n'en avait pas connaissance.



merci
pour le titre..

[Denis69]

Ben si ça marche, tu peux éditer ton premier message pour mettre [Résolu] dans le titre, merci.

[DevelOpeR13]

ok c'est fait ...

[vexal]

J'avais le meme probleme, Merci