pobleme d'executionRésolu

Question

Bonjour,
alors voila, je doit afficher un graphique a l'ecran, qui est le r&#233;sultat de param&#232;tres entr&#233;s par l'utilisateurs dans des tedit. 
le probleme est que &#231;a compile, &#231;a se construit mais l'execution me fait des erreurs : 
"Le projet project1.exe a provoqu&#233; une classe d'exeption EAccessViolation avec le message d'acc&#232;s a l'adresse004834EF dans le module 'project1.exe'. Lecture de l'adresse 00000308. Processus stopp&#233;. Utilisez pas a pas ou executer pour continuer."
je clique sur OK et j'essaye de cntinuer l'execution, et la il met une autre erreur : "Runtime error 216 at 0040327E"

voila la structure de mon programme : 

type 
tform1=class (Tform)
  mes edits...
  series1 : TlineSeries
  Button1 : TButton    {le bouton qui sert a valider une fois que les parametres sont entr&#233;s}
  +dif variables
  Procedure Button1Click(sender : Tobject)
  
private
public
end;

var
form1 : tform1
a:string
b:string
etc...

implementation
procedure tform1.Button1Click(sender : Tobject)
 begin
recuperation des valeurs des tedits puis series1.add    (a:=strtofloat( edit1.text)) etc...;
end

begin
with form1 do
Button1Click(form1);
end

voila donc en gros, tout se fait dans la proc&#233;dure buttonclick, au moment ou l'utilisateur clique sur le bouton de vlidation.
d&#233;sol&#233; pour la longueur...
merci de votre aide.

florenth · Accepted Answer

Au fait, pourquoi appelles-tu la proc&#233;dure Button1Click() manuellement ?
Normalement, elle n'est senc&#233;e se produire uniquement quand l'utilisateur clique sur le bouton, non

sfkuhvdlkufgs · Answer

euh... ben la en fait je suis pas sur que sa m'aide
je ne suis dans aucuns des cas du post (pentium4 >3Ghz), et franchement je pense que le probleme vient plus de mon code.
peut etre est-ce li&#233; a la premiere erreur?

florenth · Answer

En effet, je pense que le probl&#232;me vient d'abord de ta proc&#233;dure.
Pourquoi ne pas l'avoir post&#233; en entier plutot que sommairement nous la d&#233;crire ?
Sans code, difficile de d&#233;bugger ...

Si tu ne te plantes pas ......
tu ne pousseras jamais

f0xi · Answer

les violation d'acc&#233;s sont des erreurs difficile a determiner tel quel ...

en regle generale elle surviennent avec l'utilisation de pointeur ou de mauvais passage de parametre ou encore a l'initialisation d'objet cr&#233;&#233;s dynamiquement.

par exemple si on tape :

procedure ....
begin
    Button1.create(self);
end;

il y a de forte chance pour qu'une erreur de violation apparraisse.

on ecrit donc :

Button1 := TButton.Create(Self);

pour les objets a cr&#233;er dynamiquement uniquement ... pour les autres possibilit&#233;e, il y en as tellement que toute les decrirent serait long ... tr&#233;s long.

DeltaFX · Answer

J'ai pitet été lapidaire dans ma réponse, j'ai juste tilté sur le error 216, sorry.

sfkuhvdlkufgs · Answer

unit mol;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Buttons,
  DbChart;


type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    StaticText1: TStaticText;


    StaticText2: TStaticText;
    Edit1: TEdit;
    StaticText3: TStaticText;
    Edit2: TEdit;
    StaticText4: TStaticText;
    Edit3: TEdit;
    StaticText5: TStaticText;
    Edit4: TEdit;
    StaticText6: TStaticText;
    Edit5: TEdit;
    Splitter2: TSplitter;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    Edit6: TEdit;
    Edit7: TEdit;
    StaticText10: TStaticText;
    Splitter3: TSplitter;
    Button1: TButton;
    Label1: TLabel;
    Edit8: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit9: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Label8: TLabel;
    Edit15: TEdit;
    Label9: TLabel;
    Edit16: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Edit17: TEdit;
    Label12: TLabel;
    Edit18: TEdit;
    Label13: TLabel;
    Edit19: TEdit;
    Series2: TLineSeries;
    Label14: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var        {par conv, A et B repr&#233;sentent les especes, 1 et 2 les milieux}
  Form1: TForm1;


  dens_pop_a , dens_nour_a, tx_abs_nour_a, dens_pop_b,
  dens_nour_b , tx_abs_nour_b, supply_pool, temps, precision : string;


  dpa,dn1,tana,dpb,dn2,tanb,s, coefr1,
  coefr2,coefn1,coefn2, prec, pt_suiv_r1,pt_suiv_r2,
  coefnA,coefnB,conv1A,conv1B,conv2A,conv2B,perteA,perteB : extended ;


  i,n,c1,c2,pa1,pa2,pb1,pb2 : integer;


  TNA,TNB : array of extended;


  implementation


 



procedure TForm1.Button1Click(Sender: TObject);
  begin


  dpa:=strtofloat(Edit1.text);     {recup&#233;ration des valeurs}
  dn1:=strtofloat( Edit3.text);
  dpb:= strtofloat(  edit2.text);
  dn2:=strtofloat( Edit4.text);
  S:=strtofloat(Edit8.text);
  n:=strtoint(Edit9.Text);
  prec:=strtofloat(Edit5.text);
  pa1:=strtoint(Edit10.Text);
  pa2:=strtoint(Edit11.Text);
  pb1:=strtoint(Edit12.Text);
  pb2:=strtoint(Edit13.Text);
  conv1A:=strtofloat(Edit17.text);
  conv1B:=strtofloat(Edit18.text);
  conv2A:=strtofloat(Edit16.text);
  conv2B:=strtofloat(Edit15.text);
  perteA:=strtofloat(Edit19.text);
  perteB:=strtofloat(Edit14.text);
  S:=strtofloat(Edit8.text);


  c1:=1;
  c2:=1;


  SetLength(TNA, n);       {init des tableaux}
  SetLength(TNB, n);


  tNA[0]:=dpa;
  tNB[0]:=dpb;


  series1.add(dpa);
  series2.add(dpb);


  coefR1:=c1*(S-dn1)-(pa1*dpa*dn1+pb1*dpb*dn1);
  coefR2:=c2*(S-dn2)-(pa2*dpa*dn2+pb2*dpb*dn2);


  coefnA:= dpa*(pa1*conv1A*dn1+pa2*conv1B*dn2-perteA);
  coefnB:= dpa*(pb1*conv2a*dn1+pb2*conv2B*dn2-perteB);



  pt_suiv_r1:=prec*coefR1;  {point 1}
  pt_suiv_r2:=prec*coefR2;


 



  for i:=1 to n  do
  begin
  tna[i]:=coefna*prec+tna[i-1];
  tnb[i]:=coefnb*prec+tnb[i-1];


  series1.add(tna[i]);
  series2.add(tnb[i]);


  coefr1:=c1*(S-pt_suiv_R1)-(pa1*dpa*pt_suiv_R1+pb1*dpb*pt_suiv_r1);
  coefR2:=c2*(S-pt_suiv_r2)-(pa2*dpa*pt_suiv_r2+pb2*dpb*pt_suiv_r2);


  coefna:=tna[i]*(pa1*conv1A*pt_suiv_r1+pa2*conv1B*pt_suiv_R2-perteA);
  coefnb:=tnb[i]*(pb1*conv2a*pt_suiv_r1+pb2*conv2B*pt_suiv_R2-perteA);



  pt_suiv_r1:=prec*coefR1;
  pt_suiv_r2:=prec*coefR2;


  if (pt_suiv_r1<0) then pt_suiv_r1:=0;  {pas de ressources n&#233;gatives}
  if (pt_suiv_r2<0) then pt_suiv_r2:=0;  {ca ou zngi???? ou zngi est a l'equilibre}


 


  end;



  end;


   begin
{$R *.dfm}
    c1:=1;


    with form1 do
   Button1Click(form1);


end.

voila merci de votre aide

florenth · Answer

H&#233;h&#233;, je t'avais dit qu'avec un code, &#231;a ira 10 fois mieux.
Sais-tu qu'un tableau de x &#233;l&#233;ments est ind&#233;x&#233; depuis ?
Et donc que son dernier &#233;l&#233;ment &#224; l'index x - 1 ?
Aparament non.
Voila ce qui cloche.
 for i:=1 to n do
est &#224; rmplacer par
for i := 0 to n - 1 do

Ah tiens, tant que j'y suis, nomme tes composants.
Parce que l&#224;, sans regarder, dis moi &#224; quoi sert l'Edit13 ! Alors ?
Et si tu avais par exemple EdtTelephone tu saurais que l'edit contient un num&#233;ro de t&#233;l&#233;phone...

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

florenth · Answer

Ah, il manque une lettre &#224; la ligne deux : Sais-tu qu'un tableau de x &#233;l&#233;ments est ind&#233;x&#233; depuis 0 (z&#233;ro) ?
Voila c'est tout.

sfkuhvdlkufgs · Answer

ah oui ....
bon j'ai chang&#233; &#231;a, mais sa marche pas mieux.
sinon j'ai pas renom&#233; mes tedits parce que je m'en sert juste une fois dans le programme et donc je n'ai pas trouv&#233; sa utile.
Merci beaucoup

florenth · Answer

Ah zut, j'avais mal lu le code.
Tu commence ta boucle qu'a partir de la deuxi&#232;me case.
donc il faut for I := 1 to N - 1 do et non pas 0 comme je te l'ai dit (j'avais pas compris ce que tu faisait, d&#233;sol&#233;).

Sinon, tout le reste du code ne comporte que des multiplications et des additions, &#231;a devrait marcher.
Si c'est pas le cas, tu fais signe, et si &#231;a marche, tu valide la r&#233;ponse.

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

cs_shining · Answer

Salut,

C'est normal que ça plante petit poucet !!!!, car si tu changes l'index ça aura donc un effet global sur tout les tableaux regit par la variable I

  for i:=0 to n-1  do  <==== l'index vient de changer et est un zéro
  begin
      ...

  for i:=0 to n-1  do
  begin
  tna[i]:=coefna*prec+tna[i-1]; <==== 0-1=-1 donc BOoooMmMmMm
  tnb[i]:=coefnb*prec+tnb[i-1];

  je pense plutôt que c'est ça

  tna[i+1]:=coefna*prec+tna[i];
  tnb[i+1]:=coefnb*prec+tnb[i];

PS: oui oui je sais tu n'es pas plutot car plutot c'est l'ami de Mickey ^^
@+

cs_shining · Answer

où plutôt ça 

  for i:=0 to n-1  do
  begin
      if i>=1 then
      begin 
          tna[i]:=coefna*prec+tna[i-1];
          tnb[i]:=coefnb*prec+tnb[i-1];
      end;

c'est au choix en fonction de ton programme

florenth · Answer

Oui shining je viens de lui faire remarquer.
Mais je pense que son -1 est justifi&#233;, dans ce cas la boucle commence donc &#224; un.

Si tu ne te plantes pas ......
tu ne pousseras jamais

sfkuhvdlkufgs · Answer

ben ca marche toujour pas 
j'ai fait une boucle de 1 &#224; n-1 donc plus de probl&#232;me de tna[-1] (enfin je pense)

sinon sur une execution pas a pas la premiere erreur a lieux a la ligne 
 dpa:=strtofloat(Edit1.text);     {recup&#233;ration des valeurs}

la deuxieme a lieux a l'appel de la procedure button.click dans le corps du programme
merci de votre soutient

florenth · Answer

Si l'Edit1 ne contient pas un nombre d&#233;cimal, cette erreur est g&#233;n&#233;r&#233;e. Mais normalement, il s'agit d'une exception ...
En tout cas, saches que tu ne doit pas te tromper dans le s&#233;parateur d&#233;cimal (point ou virgule), qu'il ne doit pas y avoir de s&#233;parateur de milliers et que la notaiton scientifique s'&#233;crit sous laforme 2.33e+5 par exemple

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

cs_shining · Answer

"Runtime error 216 at 0040327E" <=== c'est une erreur de violation d'accès memoire !!!, les raisons peuvent être multiples !!!

- pointeur invalide
- accès à un tableau en dehors de la plage mémoire
- index supérieur où inférieur à la plage mémoire du tableau
- problème d'HyperThreading d'un CPU Intel
ect...

voici une liste non-exhausive des erreurs fréquemment rencontrés !!!
n°  Exception
200 Division by zeroEDivByZero
201 Range check errorERangeError
202 Stack overflowEStackOverflow
203 Heap overflow errorEOutOfMemory
204 Invalid pointer operationEInvalidPointer
205 Floating point overflowEOverflow
206 Floating point underflowEUnderflow
207 Invalid floating point operationEInvalidOp
210 Abstract Method ErrorEAbstractError in CLX, Program terminates.
215 Arithmetic overflow (integer only)EIntOverflow
216 Access violationEAccessViolation
217 Control-CEControlC
218 Privileged instructionEPrivilege
219 Invalid typecastEInvalidCast
220 Invalid variant typecastEVariantError
221 Invalid variant operationEVariantError
222 No variant method call dispatcherEVariantError
223 Cannot create variant arrayEVariantError
224 Variant does not contain arrayEVariantError
225 Variant array bounds errorEVariantError
226 TLS initialization errorNo exception to map to.
227 Assertion failedEAssertionFailed
228 Interface Cast ErrorEIntfCastError
229 Safecall errorESafecallException
230 Unhandled exceptionNo exception to map to.
231 Too many nested exceptionsUp to 16 permitted.
232 Fatal signal raised on a non-Delphi threadNo exception to 

la solution ??

- mettre des break-points dans des endroits stratégiques !!!
- utiliser MemCheck ?!?

pour les endroits statégiques ....

type
  TForm1 = class(TForm)
...........
  perteB:=strtofloat(Edit14.text);
  S:=strtofloat(Edit8.text);
  mettre un BP ici si ça plante avant ya un prob avec les TEdit (mais je ne pense pas)
  c1:=1;
  c2:=1;
....
  mettre un BP là si tout va bien --->
  coefR1:=c1*(S-dn1)-(pa1*dpa*dn1+pb1*dpb*dn1);
  mettre un BP là 
  coefR2:=c2*(S-dn2)-(pa2*dpa*dn2+pb2*dpb*dn2);

mettre un BP ici et lancer l'application, si tout va bien -->
  for i:=1 to n  do
  begin
  tna[i]:=coefna*prec+tna[i-1];
  tnb[i]:=coefnb*prec+tnb[i-1];

mettre un BP ici et lancer l'application si tout va bien --->
  series1.add(tna[i]);
mettre un BP ici et lancer l'application
  series2.add(tnb[i]);

et après donne nous le resultat !!!

PS : BP = Break Point bien entendu :]

et si malgré ces efforts le bug persiste bah ma foi... refait tout le projet proprement ;)

@+

sfkuhvdlkufgs · Answer

En fait je pense avoir trouv&#233; (on se calme rien de sur encore...), le truc c'est que le programme plante avant memed'afficher ce qui doit l'etre et que la procedure button1.click est lanc&#233; quand m&#234;me (rien d'affich&#233; pourtant donc pas de boutons click&#233;). Il essaye donc de r&#233;cuperer des valeurs dans les tedits alors qu'il ny a rien.
  jessaye de voir &#231;a et vous tient au courant

sfkuhvdlkufgs · Answer

eh bien &#231;a ne marche toujours pas, j'ai essay&#233;de mettre des valeurs par d&#233;faut dans les tedits mais rien.


Sinon est-ce que le pas a pas ne remplace pas avantageusement les breakpoint ?

DeltaFX · Answer

Juste mes 0.02? mais pour un prog, j'ai eu besoin d'un StrtoFloat.... j'ai jamais pu faire marcher ce truc (strtofloat) donc je l'ai r&#233;&#233;crit &#224; ma sauce:

Essaiede remplacer temporairement les instruction STRTOFLOAT par :

function StrToXtd(Chaine,DecSep :string):extended;
var L,K,i: integer;
    R:extended;
begin
  R:=0;
  L:=Length(Chaine);
  K:=Pos(DecSep,Chaine);
  For i:=1 to L do
  if Chaine[i] in ['0'..'9']
  then R:=R*10.0 + StrToInt(Chaine[i]);


  if K > 0 Then R:=R/IntPower(10,(L-K));
  if Pos('-',Chaine) > 0 then R:=R*(-1);


  Result:= R;
end;

Il gere pas les notations scientifiques (les E de base 10). Mais l&#224; tu peux lui dire clairement quel est le s&#233;parateur d&#233;cimal. Le resulat est 0 par defaut.

sfkuhvdlkufgs · Answer

ben en effet oui ca marche mieux sans ^^
mais du coup le corp du prog est vide ?!!
la fenetre se lance, mais appuyer sur le bouton valider ne lance pas le dessin du graphe.
en tout cas merci beaucoup parce que la je voyais pa d'ou cela pouvait venir.

florenth · Answer

Dans une application fenetr&#233;e (contraire d'une application console) normalement, il n'y a rien dans le corps du programme.
Tout est g&#233;r&#233; par les evenements.

Si tu ne te plantes pas ......
tu ne pousseras jamais

Tituit2007 · Answer

merci

Pobleme d'execution

22 réponses

Votre réponse

Discussions similaires