Discussion :

[[Silk]]

Salut,
j'ai un problème tout con qui me gène et je ne sait pas comment m'en dépatouiller : je déclare mon enregistrement dans une unité

Code :

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

1
2
3
4
5
6
7
 
type TParametres = record
      RunAtStart,
      BlokWithPass : boolean;
      Pass : string;
      Touches : TStrings;
    end;

et je veux réutiliser ce même enregistrement dans une autre unité mais sa me met : "identificateur non déclaré : 'TParametres' " quand je défini une variable de ce type...
C'est normal ou pas ? j'ai oublié de faire quelque chose ?

[RamDevTeam]

ajoute l'unité qui contient ton Tparametres dans la clauses Uses de celle qui doit l'utiliser.

[TicTacToe]

Il faut
1. que ton type soit défini dans ton unité xxx dans la partie INTERFACE
2. que tu déclares dans la clause use de ton unité yyy, l'unité xxx

[[Silk]]

les deux unité sont bien respectivement dans leur clause uses et mon type est défini dans ma partie interface de mon unité.
Si sa peu aider mon type est déclaré dans une unité sans form mais sa ne devrait pas etre genant non ?

le code de mon unité :

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
 
unit URegistre;
 
interface
 
uses Windows,registry,SysUtils,classes;
 
type TParametres = record
      RunAtStart,
      BlokWithPass : boolean;
      Pass : string;
      Touches : TStrings;
    end;
 
 
Function WriteRegistre(Parametres : TParametres):boolean;
Function ReadRegistre : TParametres;
Function VerifyPassword(Pass : string):boolean;
procedure RegWriteRunApp(Path: string);
Function DeleteRunApp : boolean;
Function ClearRegistry : boolean;
 
 
 
implementation
 
uses UBlok, Uparam;
 
...

Uparam est mon unité avec laquelle je veu utiliser mon record

[TicTacToe]

C'est l'inverse !
il faut mettre use URegistre dans ton unité UParam...

[RamDevTeam]

au vue des noms d'unités, je mettrais le code ci-dessous dans Uparam

Code :

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

1
2
3
4
5
6
type TParametres = record
      RunAtStart,
      BlokWithPass : boolean;
      Pass : string;
      Touches : TStrings;
    end;

et dans la clauses Uses de la partie interface de Uregistre, j'ajouterais Uparam.

[[Silk]]

j'ai déjà essayé est sa me donne pareil pour tout ce qui utilise Tparametres mais dans UResgistre au lieu de Uparam

[[Silk]]

ah c'est bon j'ai réussi il faut mettre l'unité dans les uses de l'interface au lieu de l'implementation ! moi je croyait que sa revenait au même

merci

[RamDevTeam]

tu mets dans Interface si tu as besoin de connaitre la déclaration dans la partie interface (pour simplifier = si tu utilise le type comme propriété ou paramètres d'une méthode des classes de l'unité) et dans implementation si
ca te sert seulement dans le code des procédures ou fonctions

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
UnitA;
 
Interface 
 
uses Uparam;
 ...
  private
     fonction toto(value : tparam);   //tparam doit etre connu
 
  ...

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
 
UnitA;
 
Interface 
 
 ...
  private
     fonction toto;   
 
  ...
 
implementation
 
uses Uparam
 
fonction toto;
  var value : Tparam;
...

[[Silk]]

j'asseyerais de m'en souvenir

merci pour vos réponses