Bonjour à tous
Je suis déporté: le programme compile et il plante
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
L'unité principal :
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 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.
Merci d'avance pour vos lumières, car ici c'est les ténèbres...
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 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.
Partager