Discussion :

[hlmhv]

Bonsoir,
Cela fait 40 ans que je code en Pascal (Turbo puis Delphi et maintenant Lazarus) et je n'ai jamais connu cette erreur.
Je compile le code suivant sans erreur, mais lorsque je le débogue via F7, arrivé au constructeur "Init", le débogueur pas-à-pas pointe sur la ligne BEGIN, puis saute immédiatement sur END.
Donc aucune initialisation, et forcément tout appel à un TFile par après cela plante avec un message SIGSEGV, ce qui est logique.
Alors pourquoi diable INIT ne s'exécute-t'il pas?

Please help me before I cry!


Voici le code :

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
Type
  TFile = Class(TPersistent)
  Constructor Init(IPath: String; Mode: Char);
  Destructor  Done;
Private
  F: TextFile;
  Path: string;
  end;
 
 
implementation
 
 
Constructor TFile.Init(IPath: String; Mode: Char);
Var
  Code: Integer;
Begin
  Path:=IPath;
  If Mode='w' Then
    Code:=0
  else
    If Mode='a' Then
      Code:=1
   else
     Code:=2;
  If FileExists(Path) Then begin
    AssignFile(F, Path);
    Case Code of
      0:  Rewrite(F);
      1:  Append(F);
      2:  Reset(F);
   end;
  end else Begin
    AssignFile(F, Path);
    Rewrite(F);
  end;
end;

[tourlourou]

Bonjour,
A mon avis, il ne manque que la création de l'objet :

Code :

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

1
2
3
4
5
6
Constructor TFile.Init(IPath: String; Mode: Char);
Var
  Code: Integer;
Begin
  inherited Create; // sinon, rien ne crée l'objet
  Path:=IPath;

[anapurna]

Salut

le constructeur ce n'est pas create pour un Tpersistant ?

je pense donc que ton derivé doit faire de meme
sans oublier le override; a la fin du constructor

cordialement ,

[hlmhv]

Merci à tous deux pour votre rapide intervention!

Je vais voir demain si cela ne cloche plus.

[hlmhv]

Résolu en créant un bon vieil objet plutôt qu'une classe.
J'avoue ne pas comprendre l'intérêt du second par rapport au premier.

[anapurna]

Salut

C'est une question de compatibilité et de gestion mémoire dans mon souvenir.

L'objet est mis sur la pile et donc allocation mémoire obligatoire, ce qui limite en terme de capacité la mémoire globale de l'appli.
La class elle est installée sur le tas... On allow qu'au moment de son utilisation.

À terme l'object tend à disparaître au détriment du record auquel on associe maintenant des méthodes.

[Andnotor]

A mon avis, il ne manque que la création de l'objet :

L'objet existe déjà avant l'appel de cette méthode. Le constructeur sert à la création des objets imbriqués et à l'initialisation des variables.
TPersistent ne définissant pas de constructeur et TObject (ancêtre) qui en déclare un mais n'y fait rien, inherited n'est pas requis dans ce cas précis.

le constructeur ce n'est pas create pour un Tpersistant ?

On peut donner le nom qu'on veut au constructeur comme au destructeur.
Là où ça pourrait être problématique est dans le cas de composants puisque le parent pourrait appeler Free à sa destruction qui invoquera Destroy et non Done. Mais si on maitrise le cycle, pas de soucis !

sans oublier le override; a la fin du constructor

Comme dit précédemment, TPersistent ne définit pas de constructeur et celui de TObject n'est pas virtuelle, override ne compilera pas


Je pense ici que le problème est simplement qu'il y a une deuxième déclaration d'un TFile dans une autre unité (voir les unités dans uses) et que celle utilisée n'est pas celle éditée. Ou alors un problème de DCU (DCU sous Free Pascal ?)

Sinon TPersistent apporte la gestion des flux (lecture/écriture). Par exemple les propriétés de type objet d'un composant dérivent de TPersistent ce qui permet l'édition de ses propriétés à travers l'inspecteur d'objet et la sauvegarde dans le fichier fiche.

[tourlourou]

L'objet existe déjà avant l'appel de cette méthode. Le constructeur sert à la création des objets imbriqués et à l'initialisation des variables.
TPersistent ne définissant pas de constructeur et TObject (ancêtre) qui en déclare un mais n'y fait rien, inherited n'est pas requis dans ce cas précis.

Effectivement, merci pour ta mise au point instructive

[hlmhv]

Merci pour votre aide constructive!

(D'autant plus que pour un problème similaire - je gère un logiciel Lazarus qui doit communiquer avec un logiciel Python) je me suis fait incendier sur ce dernier forum.. )