[D6] Utilisation du constructeur

Version imprimable

Bonjour à tous

Je suis déporté: le programme compile et il plante :mur:

J'obtiens le message d'erreur suivant :
Le projet Project1.exe a provoqué une classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 00...

J'ai tout effacé ou presque, je n'ai plus de code et je trouve toujours pas d'où vient cette satanée erreur...

Voici le code du composant

Code:

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
unit ra03;
 
interface
uses math, mathematica, contnrs, sysutils, classes;
 
type TRL_0a2=class
    private
        vMemoire:integer;
        aPrix:array of double;
    protected
    public
        constructor create(Prix:String);
 
    end;
 
implementation
 
constructor TRL_0a2.create(Prix:String);
var l:tstringlist;
     i:integer;
 
begin
    decimalseparator:='.';
 
    vMemoire:=0;
    l:=tstringlist.create;
    l.text:=Prix;
 
//transfere dans le tableau
    setlength(aPrix,l.count);
    for i:=0 to l.count-1 do begin
        aPrix[i]:=strtofloat(l[i]);;
    end;
 
    l.free;
 
end;
 
end.

L'unité principal :

Code:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ra03;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
 
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
       RSP.create('11.50'+#13+'12.40'+#13+'13.30'+#13+'14.20'+#13+'15.10'+#13+'16.00'+#13+
                   '17.14'+#13+'18.29'+#13+'19.30'+#13+'20.40'+#13+'21.50'+#13+'22.60'+#13+
                   '23.75'+#13+'24.83'+#13+'25.93'+#13+'26.10'+#13+'27.14'+#13+'28.20');
 
       RSP.Free;
 
end;
 
end.

Merci d'avance pour vos lumières, car ici c'est les ténèbres...

Code:

1
2
3
RSP := TRL_0a2.create('11.50'+#13+'12.40'+#13+'13.30'+#13+'14.20'+#13+'15.10'+#13+'16.00'+#13+
                      '17.14'+#13+'18.29'+#13+'19.30'+#13+'20.40'+#13+'21.50'+#13+'22.60'+#13+
                      '23.75'+#13+'24.83'+#13+'25.93'+#13+'26.10'+#13+'27.14'+#13+'28.20');

;)

12/11/2015, 08h50
SergioMaster

Bonjour,

Citation:

Je suis déporté

expression québécoise je présume ;)

je cherchais vainement le "composant" et sa déclaration Andnotor est allé plus vite que moi
je rajouterais en plus de sa remarque que je n'ai pas vu de déclaration de RSP dans l'unité principale (faute certainement à une simplification excessive du source fautif)

Citation:

pour vos lumières, car ici c'est les ténèbres...

t'inquiètes, c'est le décalage horaire :ptdr:
12/11/2015, 09h52
Aooka

Tu oublié aussi de déshérité ton Create. Vu que tu fait ton propre constructeur Create tu peux avoir un conflit avec l'original. De plus le fait de déshérité te permet de faire hérité les caractéristiques du Create Original vers ton Custom Create.

Inherited Create(Owner);
Edit: Je dis de grosses bêtises.
12/11/2015, 11h27
ShaiLeTroll
Qu'est-ce que c'est que ce charabia de "déshériter" ?
EDIT : MERCI de ton EDIT :mouarf:

l'appel du constructor Create de l'ancêtre n'est pas obligatoire si l'on hérite directement du TObject
Mais il est vrai que c'est une bonne pratique de faire l'appel systématique au constructeur de l'ancêtre.

Et c'est un appel SANS paramètre pour le Create du TObject !
C'est un constructeur simple, une méthode statique

Tu as confondu avec le Create du TComponent qui fait apparaitre le Owner dont hérite la TForm.
Ce constructeur de TComponent est de plus virtuel et cache que le constructeur de l'ancêtre, c'est ce qui impose la rédéfinition par override
on peut éventuellement "masquer" le constructeur du TComponent avec un constructeur statique ou virtuel avec une autre liste de paramètre ce qui génère un avertissement que la directive reintroduce permet de ne plus afficher

En aucun cas l'erreur provenait de cela mais de l'appel du Create à partir d'une référence au lieu de le faire à partir de la classe
Mauvais : RSP.create('...');
Bon : RSP := TRL_0a2.Create('...');
Code:

1 2 3 4 5 6 7 8 9 constructor TRL_0a2.create(Prix:String); var l:tstringlist; i:integer; begin inherited Create(); // Sans paramètre ... end;
12/11/2015, 11h47
sgmsg

Merci à tous.

:mur:
J'ai déjà lancé un fil de discussion sur le sujet
:pastaper:

Citation:

Envoyé par SergioMaster

Bonjour,

expression québécoise je présume ;)

Je ne croyais pas... mais en cherchant sur internet je n'ai rien trouvé. À prendre dans le sens d'une perte de repère. :zen: Je reviens là-dessus si je trouve plus d'informations sur l'expression...

Citation:

je cherchais vainement le "composant" et sa déclaration Andnotor est allé plus vite que moi
je rajouterais en plus de sa remarque que je n'ai pas vu de déclaration de RSP dans l'unité principale (faute certainement à une simplification excessive du source fautif)

t'inquiètes, c'est le décalage horaire :ptdr:

Je crois que c'est plus que ça:fou:

Merci encore à tous!!!
12/11/2015, 18h41
Andnotor
RSP.Create n'est pas interdit mais il faut que l'objet soit déjà instancié ;)
Code:

1 2 3 RSP := TRL_0a2.Create('1'#13'2'#13'3'); RSP.Create('4'#13'5'#13'6'); // Est valide ici