Discussion :

[keul85]

Bonjour,


Je suis actuellement en train de programmer un logiciel en Delphi et j'ai un souci que je n'arrive pas à résoudre. J'ai déclaré un nouveau type ObjetUn avec parmi ses champs, un champ FContenu de type string. Pour créer une nouvelle instance d'ObjetUn, je vais chercher dans une base de données les informations nécessaires et je les passe au constructeur. Cependant, au moment de l'affectation de la nouvelle valeur de Fcontenu, j'ai le message "Access violation at address ..." qui apparaît.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
type TFluxRSS = class
    FidObj: Integer;
    FdateObj: TDateTime;
    Fcontenu: string;
 
public
    constructor Create(idObj: integer; dateObj: TDateTime; contenu: string);
 
end;

et le constructeur :

Code :

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

1
2
3
4
5
6
constructor ObjetUn.Create(idObj: integer; dateObj: TDateTime; contenu: string);
begin
  FidObj := idObj;
  FdateObj := dateObj;
  Fcontenu := contenu;  //La ligne qui pose problème
end;

Et le constructeur est appelé de la manière suivante :

Code :

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

1
2
3
4
Titre := Query.FieldByName('titre').AsString;
        DatePubli := Query.FieldByName('date_publication').AsDateTime;
        IdInfo := Query.FieldByName('id_info').AsInteger;
        ObjetUn.Create(IdInfo, DatePubli, Titre);

Sachant que j'ai essayé en remplaçant Titre par un string quelconque, en utilisant un setContenu dans le constructeur, rien n'y fait.

Merci d'avance.

[Just-Soft]

Salut;

ton query est fermé faut ajouter :

Code :

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

Query.Open;

[Cl@udius]

Salut

Je vois d'une part une classe qui s'appelle TFluxRSS, puis d'autre part un constructeur d'une autre classe ObjetUn.

Est-ce une erreur de copier/coller ?

Ensuite la création de ton objet n'est pas correcte:

Code :

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

 ObjetUn.Create(IdInfo, DatePubli, Titre);

Ce devrait être:

Code :

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

1
2
3
4
5
6
7
 
var
  ObjetUn: TFluxRSS;
begin
  ObjetUn := TFluxRSS.Create(IdInfo, DatePubli, Titre);
  //...
end;

@+ Claudius

[keul85]

Salut;

ton query est fermé faut ajouter :

Code :

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

Query.Open;

Non, il était bien ouvert, mais j'ai essayé de garder que ce qui semblait poser problème dans le code.

Salut

Je vois d'une part une classe qui s'appelle TFluxRSS, puis d'autre part un constructeur d'une autre classe ObjetUn.

Est-ce une erreur de copier/coller ?

Oui, là aussi, une petite erreur de c/c. J'avais voulu simplifier le code mais j'aurais peut-être pas du

Ensuite la création de ton objet n'est pas correcte:

Code :

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

 ObjetUn.Create(IdInfo, DatePubli, Titre);

Ce devrait être:

Code :

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

1
2
3
4
5
6
7
 
var
  ObjetUn: TFluxRSS;
begin
  ObjetUn := TFluxRSS.Create(IdInfo, DatePubli, Titre);
  //...
end;

@+ Claudius

Effectivement, le problème était là. Je m'étais entêté à croire que le problème venait de l'affectation de 'contenu' et omis de regarder plus en amont.

Merci