Discussion :

[tlolo]

bonjour,

j'ai un probleme qui est certainement très bête et tout simple
mais bon...

dans l'appli que je fais, j'ai plusieurs fiches et je souhaite que certaines variables soient accessibles à partir de n'importe quelle fiche;
j'ai donc déclarer une variable publique (periphs) basée sur un type (tbl_periph) ci dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  public
    { Déclarations publiques }
    type
     tbl_periph = record
       lecteur : string[2];
       description : string[200];
    end;
    var
     periphs : array[0..25] of tbl_periph;
  end;

L'accès à periphs fonctionne dans la fiche courante mais pas dans une autre.
J'ai essayé de rajouter ma fiche (celle contenant la déclaration) dans les autres fiches en passant par "uses" mais ca ne fait rien de plus.

donc si quelqu'un peut me donner la soluce
ca serait sympa

merci

[qi130]

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
public
    { Déclarations publiques }
    type
     tbl_periph = record
       lecteur : string[2];
       description : string[200];
    end;
    
  end;

var
     periphs : array[0..25] of tbl_periph;

[tlolo]

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
public
    { Déclarations publiques }
    type
     tbl_periph = record
       lecteur : string[2];
       description : string[200];
    end;
    
  end;

var
     periphs : array[0..25] of tbl_periph;

Marche pas non plus, meme dans la fiche principale !!!

[slimjoe]

Marche pas non plus, meme dans la fiche principale !!!

Quel est le message au juste ?

Es-tu certain que le type va bien à l'intérieur la déclaration de la classe ? Suis pas certain que ça soit valide en Delphi ce type de déclaration.

As-tu essayé ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  public
    { Déclarations publiques }
  end;
 
type
    tbl_periph = record
       lecteur : string[2];
       description : string[200];
    end;
 
var
     periphs : array[0..25] of tbl_periph;

[slimjoe]

Salut!

Syncèrement, j'ai de la difficulté à comprendre comment ça peut compiler:

Code :

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

1
2
3
4
5
6
7
8
9
10
   public
      { Déclarations publiques }
   type
      tbl_periph = record
         lecteur: string[2];
         description: string[200];
      end;
   var
      periphs: array[0..25] of tbl_periph;
   end;

On dirait que tu as intercalé une déclaration de type dans celle d'une classe. Ça ressemble à ce que je ferais en VB.NET .

Règle générale, en Delphi, on n'utilise que ce qu'on déclare. De plus, Delphi lit du haut vers le bas, c'est à dire que ce qu'on utilise doit être déclaré plus haut dans le code. Si tu remarques, il y a 2 section uses. Peut-être que ton unit devrait se retrouver dans la section interface et non implementation.

Perso, si j'avais à utiliser une variable globale, je la metterais dans un unit séparé des autres. Mais ceci étant dit, il y a toujours moyen de s'en sortir sans, ce qui non seulement clarifie le code mais permet sa réutilisation et est généralement une bonne habitude de programmation.

Bon dev!

[qi130]

Perso, si j'avais à utiliser une variable globale, je la metterais dans un unit séparé des autres.

Regarde du coté du DataModule = unité d'un projet ne contenant aucun objet visuel

[tlolo]

Salut!

Syncèrement, j'ai de la difficulté à comprendre comment ça peut compiler:

Code :

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

1
2
3
4
5
6
7
8
9
10
   public
      { Déclarations publiques }
   type
      tbl_periph = record
         lecteur: string[2];
         description: string[200];
      end;
   var
      periphs: array[0..25] of tbl_periph;
   end;

On dirait que tu as intercalé une déclaration de type dans celle d'une classe. Ça ressemble à ce que je ferais en VB.NET .

Règle générale, en Delphi, on n'utilise que ce qu'on déclare. De plus, Delphi lit du haut vers le bas, c'est à dire que ce qu'on utilise doit être déclaré plus haut dans le code. Si tu remarques, il y a 2 section uses. Peut-être que ton unit devrait se retrouver dans la section interface et non implementation.

Perso, si j'avais à utiliser une variable globale, je la metterais dans un unit séparé des autres. Mais ceci étant dit, il y a toujours moyen de s'en sortir sans, ce qui non seulement clarifie le code mais permet sa réutilisation et est généralement une bonne habitude de programmation.

Bon dev!

salut

je suis d'accord avec toi sauf que :
ma declaration est bonne : je declare un type de donnée (tbl_periph) et ensuite une variable basé sur ce type (periphs),
j'ai essayé de rajouter la fiche dans la partie "implementation" ou "uses" et le resultat est le meme : marche pas

Par contre, le fait de creer une nouvelle "unit" qui contient toutes les variables fonctionne.

je vais donc partir sur ce principe, mais il n'empeche que je ne comprends pas d'ou vient l'erreur; surtout que ce principe fonctionne a 100% sur delphi pro 4;
là je suis en version 2005 personnelle.

Merci

[slimjoe]

Salut!

mais il n'empeche que je ne comprends pas d'ou vient l'erreur

Simple :

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
 
 
   public  // <-- Fait partie de la déclaration d'une classe.  Donc, on est déjà À L'INTÉRIEUR DE LA DÉCLARATION D'UN TYPE DE DONNÉES
 
      { Déclarations publiques }
 
   type // <-- On déclare une AUTRE section "type" À L'INTÉRIEUR DE LA CLASSE (qui est elle même dans une section "type").  Ça ne peut que planter ;-)
 
      tbl_periph = record
         lecteur: string[2];
         description: string[200];
      end;
 
   var // <-- On déclare une section "var" toujours à l'intérieur d'une déclaration de classe
      periphs: array[0..25] of tbl_periph;
 
   end;  <-- Semble être le "end;" de la déclaration de la classe

Selon ma connaissance (toutefois limitée ), Delphi ne permet pas d'imbriquer les types de données.

À mon avis, ça fonctionne dans le second unit parce qu'il n'y a pas de déclaration de classe qui vient t'embêter.

Qu'en dis-tu ?

[tlolo]

Salut!




Simple :

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
 
 
   public  // <-- Fait partie de la déclaration d'une classe.  Donc, on est déjà À L'INTÉRIEUR DE LA DÉCLARATION D'UN TYPE DE DONNÉES
 
      { Déclarations publiques }
 
   type // <-- On déclare une AUTRE section "type" À L'INTÉRIEUR DE LA CLASSE (qui est elle même dans une section "type").  Ça ne peut que planter ;-)
 
      tbl_periph = record
         lecteur: string[2];
         description: string[200];
      end;
 
   var // <-- On déclare une section "var" toujours à l'intérieur d'une déclaration de classe
      periphs: array[0..25] of tbl_periph;
 
   end;  <-- Semble être le "end;" de la déclaration de la classe

Selon ma connaissance (toutefois limitée ), Delphi ne permet pas d'imbriquer les types de données.

À mon avis, ça fonctionne dans le second unit parce qu'il n'y a pas de déclaration de classe qui vient t'embêter.

Qu'en dis-tu ?

en effet tu as raison, il faut que je fasse ma declaration juste apres le end
de la declaration "public" et la tout fonctionne

public
{ Déclarations publiques }
end;
type
tbl_periph = record
lecteur: string[2];
description: string[200];
end;
var
periphs: array[0..25] of tbl_periph;


Merci