Discussion :

[goodredwine]

Bonjour,

je souhaite enregistrer et lire un fichier de type object, mais j'ai plusieurs problèmes :

1) la variable fichier doit etre déclarée en global et je ne peux pas déclarer

Code :

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

varfic : file of typeOBJECT

car

1°) erreur de type à la compil,
2°) la procedure encapsulée ne connaît pas la variable varfic !

2) je ne peux pas insérer de variable de type RECORD dans la procédure de l'objet encapsulée car ce serait une variable temporaire liée à la procédure encapsulée !

Comment faire ?
Merci

[M.Dlb]

Pas très très clair tout ça

Pourquoi tu ne peux pas déclarer ta variable file of typeObjet ? Si il y a une erreur à la compilation, c'est probablement parce que le compilateur ne connait pas typeObjet, il faut donc que tu places la déclaration du type typeObjet avant la déclaration de ta variable file of typeObjet.

Ensuite si une variable est globale, toutes les sous-procédures connaissent cette variable globale.

Qu'entends-tu par procédure encapsulée ?

[goodredwine]

Bonsoir, merci pour votre réponse. C'est vrai qu'à ma relecture, il n'y a que moi qui puisse me comprendre, mille pardons !!

Il me faut faire une appli qui puisse gérer mes clients/fournisseurs en vue d'établir par la suite tous les documents douaniers pour l'export de vin (tracabilité exige !).

J'ai commencé à programmer en version RECORD mais je me perdais dans les procédures; j'ai donc repris mes books de prog TP6 et repris tout le programme en OBJETS, mais je suis trés vite arrêté sur l'erreur 24 à la compilation : je voudrais créer un fichier typé sur la base de mon OBJET 'Ttiers' devenant soit client, soit fournisseur; on peut aisément créer un fichier typé à partir d'un RECORD, mais pas, à priori, à partir d'un OBJET suite à l'erreur 24 'ne peut ni etre d'un type fichier ni objet'.

Les procédures de lecture et écriture sont encapsulées puisque dans la logique de programmation à objets (sinon l'objet devient un RECORD à programmation classique). Donc, je suis dans la difficulté de déclarer mon objet comme structure de fichier typé. Comme solution, je passe par un RECORD identique à l'objet mais m'enlève toute possibilité d'héritage/succession sur cet objet.

Je suis probablement très compliqué, ou pas assez subtil, mais je n'arrive à trouver de réponse nulle part ! Si quelqu'un peut m'aider, ce serait bien.

Merci.

win pascal 1.5, winxp pro

voici le code simplifié :

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
programme base;
 
Ttiers = object
           code : str10;
           accises : str12;
           ets : str20;
           nom : str20;
           prenom : str10;
           adr1 : str20;
           adr2 : str20;
           codpost : str5;
           ville : str20;
           tel : str10;
           fax : str10;
             procedure init;
             procedure saisir;
             procedure afficher;
             procedure lireenr;
           end;
 
{procedures encapsulees}
procedure ttiers.init; begin end;
procedure ttiers.afficher; begin end;
procedure tiers.saisir; begin end;
 
procedure ttiers.lireenr;
var fichier : file of ttype;      <=erreur compil 24 'components may not be
begin                                                           files or objects'
   read (fichier, ttiers);
end;
 
{variables globales}
var
  client, fournisseur : ttiers;
 
 
{procedures globales}
begin
end;
 
{programme principal}
begin
   client.lireenr;
   client.afficher;
   fournisseur.lireenr;
   fournisseur.afficher;
end.

[Alcatîz]

Bonjour !

Tu ne pourras malheureusement échapper au stockage des données sous forme de fichier de records. Quelles difficultés éprouves-tu exactement avec les records ? Leur stockage en mémoire ?